From: Kenichi Handa <handa@m17n.org>
Date: Fri, 9 Feb 2001 05:32:46 +0000 (+0000)
Subject: (Fchar_to_string): If CHARACTER is less than 256,
X-Git-Tag: emacs-pretest-21.0.98~80
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=603a8d59d24dbfab9c3a1fc9e819cc62aaf86d6f;p=emacs.git

(Fchar_to_string): If CHARACTER is less than 256,
return a unibyte string.
---

diff --git a/src/editfns.c b/src/editfns.c
index bf65c0a86d5..2f5e3f711ea 100644
--- 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);
 }