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 }