From: Kenichi Handa <handa@m17n.org>
Date: Wed, 15 Dec 1999 00:15:57 +0000 (+0000)
Subject: (push_key_description): Adjusted for the change of
X-Git-Tag: emacs-pretest-21.0.90~5744
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a16479ffe53ff94f987f658018330fedc6ab07c;p=emacs.git

(push_key_description): Adjusted for the change of
CHAR_STRING.
(Ftext_char_description): Likewise.
---

diff --git a/src/keymap.c b/src/keymap.c
index 5070fc1d1c8..4b7c6c2a4a0 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1903,10 +1903,7 @@ push_key_description (c, p)
 	}
       else
 	{
-	  unsigned char work[4], *str;
-	  int i = CHAR_STRING (c, work, str);
-	  bcopy (str, p, i);
-	  p += i;
+	  p += CHAR_STRING (c, p);
 	}
     }
 
@@ -1997,21 +1994,23 @@ Control characters turn into \"^char\", etc.")
   (character)
      Lisp_Object character;
 {
-  char tem[6];
+  /* Currently MAX_MULTIBYTE_LENGTH is 4 (< 6).  */
+  unsigned char str[6];
+  int c;
 
   CHECK_NUMBER (character, 0);
 
-  if (!SINGLE_BYTE_CHAR_P (XFASTINT (character)))
+  c = XINT (character);
+  if (!SINGLE_BYTE_CHAR_P (c))
     {
-      unsigned char *str;
-      int len = non_ascii_char_to_string (XFASTINT (character), tem, &str);
+      int len = CHAR_STRING (c, str);
 
       return make_multibyte_string (str, 1, len);
     }
 
-  *push_text_char_description (XINT (character) & 0377, tem) = 0;
+  *push_text_char_description (c & 0377, str) = 0;
 
-  return build_string (tem);
+  return build_string (str);
 }
 
 /* Return non-zero if SEQ contains only ASCII characters, perhaps with