1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00

(Fsingle_key_description): Allow strings as keys.

This commit is contained in:
Karl Heuer 1994-06-15 01:09:17 +00:00
parent 3081bf8d25
commit 1fefcb09d3

View file

@ -1458,8 +1458,12 @@ Control characters turn into C-whatever, etc.")
case Lisp_Symbol: /* Function key or event-symbol */
return Fsymbol_name (key);
/* Buffer names in the menubar can trigger this. */
case Lisp_String:
return Fcopy_sequence (key);
default:
error ("KEY must be an integer, cons, or symbol.");
error ("KEY must be an integer, cons, symbol, or string.");
}
}