From 4c1958f4a989f573680ff901798aa2f291fd26ce Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 16 Feb 2009 13:04:15 +0000 Subject: [PATCH] (Fcheck_coding_systems_region): Fix test for unibyte string. --- src/ChangeLog | 5 +++++ src/coding.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 4a1b7f3fc1..3d86f4d105 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-02-16 Andreas Schwab + + * coding.c (Fcheck_coding_systems_region): Fix test for unibyte + string. + 2009-02-16 Kenichi Handa * coding.c (Fcheck_coding_systems_region): Fix typo; Qt -> Qnil. diff --git a/src/coding.c b/src/coding.c index bd8c19f374..fff4d01d89 100644 --- a/src/coding.c +++ b/src/coding.c @@ -8463,7 +8463,7 @@ START may be a string. In that case, check if the string is encodable, and the value contains indices to the string instead of buffer positions. END is ignored. -If the current buffer (or START if it is string) is unibyte, the value +If the current buffer (or START if it is a string) is unibyte, the value is nil. */) (start, end, coding_system_list) Lisp_Object start, end, coding_system_list; @@ -8478,7 +8478,7 @@ is nil. */) if (STRINGP (start)) { if (!STRING_MULTIBYTE (start) - && SCHARS (start) != SBYTES (start)) + || SCHARS (start) == SBYTES (start)) return Qnil; start_byte = 0; end_byte = SBYTES (start); -- 2.20.1