(Fcheck_coding_systems_region): Fix test for unibyte

string.
This commit is contained in:
Andreas Schwab 2009-02-16 13:04:15 +00:00
parent a057d86ade
commit 4c1958f4a9
2 changed files with 7 additions and 2 deletions

View file

@ -1,3 +1,8 @@
2009-02-16 Andreas Schwab <schwab@suse.de>
* coding.c (Fcheck_coding_systems_region): Fix test for unibyte
string.
2009-02-16 Kenichi Handa <handa@m17n.org>
* coding.c (Fcheck_coding_systems_region): Fix typo; Qt -> Qnil.

View file

@ -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);