Mercurial > emacs
comparison src/keymap.c @ 29651:31099bb76b6e
(Fsingle_key_description): Enclose function key and
event symbol names in angle brackets.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 14 Jun 2000 13:35:45 +0000 |
parents | 59f2b30d577b |
children | 5201e6953968 |
comparison
equal
deleted
inserted
replaced
29650:2411aacca614 | 29651:31099bb76b6e |
---|---|
1950 *push_key_description (XUINT (key), tem) = 0; | 1950 *push_key_description (XUINT (key), tem) = 0; |
1951 return build_string (tem); | 1951 return build_string (tem); |
1952 } | 1952 } |
1953 } | 1953 } |
1954 else if (SYMBOLP (key)) /* Function key or event-symbol */ | 1954 else if (SYMBOLP (key)) /* Function key or event-symbol */ |
1955 return Fsymbol_name (key); | 1955 { |
1956 char *buffer = (char *) alloca (STRING_BYTES (XSYMBOL (key)->name) + 5); | |
1957 sprintf (buffer, "<%s>", XSYMBOL (key)->name->data); | |
1958 return build_string (buffer); | |
1959 } | |
1956 else if (STRINGP (key)) /* Buffer names in the menubar. */ | 1960 else if (STRINGP (key)) /* Buffer names in the menubar. */ |
1957 return Fcopy_sequence (key); | 1961 return Fcopy_sequence (key); |
1958 else | 1962 else |
1959 error ("KEY must be an integer, cons, symbol, or string"); | 1963 error ("KEY must be an integer, cons, symbol, or string"); |
1960 } | 1964 } |