Mercurial > emacs

comparison src/keymap.c @ 71982:df96acbe2970

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmap_keymap): Use xsignal1.
author Kim F. Storm <storm@cua.dk>
date Tue, 18 Jul 2006 13:28:21 +0000
parents 838fd2b04ce0
children 91ea8d22ef60 8a8e69664178
comparison
equal deleted inserted replaced
71981:802436ff7a47 71982:df96acbe2970
756 Lisp_Object function, keymap, sort_first; 756 Lisp_Object function, keymap, sort_first;
757 { 757 {
758 if (INTEGERP (function)) 758 if (INTEGERP (function))
759 /* We have to stop integers early since map_keymap gives them special 759 /* We have to stop integers early since map_keymap gives them special
760 significance. */ 760 significance. */
761 Fsignal (Qinvalid_function, Fcons (function, Qnil)); 761 xsignal1 (Qinvalid_function, function);
762 if (! NILP (sort_first)) 762 if (! NILP (sort_first))
763 return call3 (intern ("map-keymap-internal"), function, keymap, Qt); 763 return call3 (intern ("map-keymap-internal"), function, keymap, Qt);
764 764
765 map_keymap (keymap, map_keymap_call, function, NULL, 1); 765 map_keymap (keymap, map_keymap_call, function, NULL, 1);
766 return Qnil; 766 return Qnil;