1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 16:41:45 -08:00

(Fmap_keymap): Use xsignal1.

This commit is contained in:
Kim F. Storm 2006-07-18 13:28:21 +00:00
parent 43cae48c41
commit fb53f3543b

View file

@ -758,7 +758,7 @@ usage: (map-keymap FUNCTION KEYMAP) */)
if (INTEGERP (function))
/* We have to stop integers early since map_keymap gives them special
significance. */
Fsignal (Qinvalid_function, Fcons (function, Qnil));
xsignal1 (Qinvalid_function, function);
if (! NILP (sort_first))
return call3 (intern ("map-keymap-internal"), function, keymap, Qt);