From: Kim F. Storm <storm@cua.dk>
Date: Tue, 18 Jul 2006 13:28:21 +0000 (+0000)
Subject: (Fmap_keymap): Use xsignal1.
X-Git-Tag: emacs-pretest-22.0.90~1366
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb53f3543b3e779582d5183fb58c28dd138dfd84;p=emacs.git

(Fmap_keymap): Use xsignal1.
---

diff --git a/src/keymap.c b/src/keymap.c
index 6f57bd63376..71fd5f03390 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -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);