mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(push_key_description): Adjusted for the change of

Browse Source 
CHAR_STRING.
(Ftext_char_description): Likewise.
This commit is contained in:
Kenichi Handa 1999-12-15 00:15:57 +00:00
parent adf5cb9c38
commit 0a16479ffe
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/keymap.c
View File

@ -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