Mercurial > emacs
changeset 26864:b89eb8bbaff1
(push_key_description): Adjusted for the change of
CHAR_STRING.
(Ftext_char_description): Likewise.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 15 Dec 1999 00:15:57 +0000 |
parents | 9fa7ffa9b04d |
children | 87623e53b7c6 |
files | src/keymap.c |
diffstat | 1 files changed, 10 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keymap.c Wed Dec 15 00:15:16 1999 +0000 +++ b/src/keymap.c Wed Dec 15 00:15:57 1999 +0000 @@ -1903,10 +1903,7 @@ } 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 @@ (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; - - return build_string (tem); + *push_text_char_description (c & 0377, str) = 0; + + return build_string (str); } /* Return non-zero if SEQ contains only ASCII characters, perhaps with