(Fchar_to_string): If CHARACTER is less than 256,

return a unibyte string.

(Fchar_to_string): If CHARACTER is less than 256,
return a unibyte string.
603a8d59 · Kenichi Handa · 5729c92f · 603a8d59
Commit 603a8d59 authored Feb 09, 2001 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

src/editfns.c src/editfns.c +3 -1

No files found.
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -167,7 +167,9 @@ DEFUN ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0,

  CHECK_NUMBER (character, 0);

-  len = CHAR_STRING (XFASTINT (character), str);
+  len = (SINGLE_BYTE_CHAR_P (XFASTINT (character))
+	 ? (*str = (unsigned char)(XFASTINT (character)), 1)
+	 : char_to_string (XFASTINT (character), str));
  return make_string_from_bytes (str, 1, len);
 }