mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 16:30:46 -08:00
Code Issues Projects Releases Wiki Activity

text-char-description minor cleanup

Browse source 
* src/keymap.c (push_text_char_description): Omit useless code.
(Ftext_char_description): Minor code cleanup, inspired by
seeing an incorrect comment about MAX_MULTIBYTE_LENGTH’s value.
This commit is contained in:
Paul Eggert 2020-04-22 19:00:08 -07:00
parent 023ff119fb
commit 7b15cc3ebb
1 changed files with 8 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/keymap.c
View file

@ -2268,12 +2268,6 @@ See `text-char-description' for describing character codes. */)
static char *
push_text_char_description (register unsigned int c, register char *p)
{
if (c >= 0200)
{
*p++ = 'M';
*p++ = '-';
c -= 0200;
}
if (c < 040)
{
*p++ = '^';
@ -2302,23 +2296,22 @@ characters into "C-char", and uses the 2**27 bit for Meta.
See Info node `(elisp)Describing Characters' for examples. */)
(Lisp_Object character)
{
/* Currently MAX_MULTIBYTE_LENGTH is 4 (< 6). */
char str[6];
int c;
CHECK_CHARACTER (character);
c = XFIXNUM (character);
int c = XFIXNUM (character);
if (!ASCII_CHAR_P (c))
{
char str[MAX_MULTIBYTE_LENGTH];
int len = CHAR_STRING (c, (unsigned char *) str);
return make_multibyte_string (str, 1, len);
}
*push_text_char_description (c & 0377, str) = 0;
return build_string (str);
else
{
char desc[4];
int len = push_text_char_description (c, desc) - desc;
return make_string (desc, len);
}
}
static int where_is_preferred_modifier;