# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1153229301 0
# Node ID df96acbe2970dbeb4691d435e1b20a0b2dc4b60b
# Parent  802436ff7a47c8f7b579447ef97fb0429c3e507d
(Fmap_keymap): Use xsignal1.

diff -r 802436ff7a47 -r df96acbe2970 src/keymap.c
--- a/src/keymap.c	Tue Jul 18 13:28:16 2006 +0000
+++ b/src/keymap.c	Tue Jul 18 13:28:21 2006 +0000
@@ -758,7 +758,7 @@
   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);