Commit 7b15cc3e authored by Paul Eggert's avatar Paul Eggert

text-char-description minor cleanup

* 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.
parent 023ff119
Pipeline #5343 failed with stage
in 56 minutes and 32 seconds
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment