Mercurial > emacs

diff src/editfns.c @ 23650:3cc42e65f25b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fstring_to_char): Don't return a multibyte character if STRING is a unibyte string.
author Kenichi Handa <handa@m17n.org>
date Fri, 06 Nov 1998 00:44:16 +0000
parents 8dcbcad4482c
children 986eeaabee10
line wrap: on
line diff
--- a/src/editfns.c	Fri Nov 06 00:44:16 1998 +0000
+++ b/src/editfns.c	Fri Nov 06 00:44:16 1998 +0000
@@ -154,7 +154,12 @@
   CHECK_STRING (string, 0);
   p = XSTRING (string);
   if (p->size)
-    XSETFASTINT (val, STRING_CHAR (p->data, STRING_BYTES (p)));
+    {
+      if (STRING_MULTIBYTE (string))
+	XSETFASTINT (val, STRING_CHAR (p->data, STRING_BYTES (p)));
+      else
+	XSETFASTINT (val, p->data[0]);
+    }
   else
     XSETFASTINT (val, 0);
   return val;