# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1044974124 0
# Node ID e4fcec69ba699a1d59437731fabd718cbf0d322b
# Parent  d5b45b7a0eff619f1b6afeaa6ffd355c85336378
(Fremap_command): Return nil if arg is not a symbol.

diff -r d5b45b7a0eff -r e4fcec69ba69 src/keymap.c
--- a/src/keymap.c	Tue Feb 11 14:35:09 2003 +0000
+++ b/src/keymap.c	Tue Feb 11 14:35:24 2003 +0000
@@ -1070,10 +1070,13 @@
 
 DEFUN ("remap-command", Fremap_command, Sremap_command, 1, 1, 0,
        doc: /* Return the remapping for command COMMAND in current keymaps.
-Returns nil if COMMAND is not remapped.  */)
+Returns nil if COMMAND is not remapped (or not a symbol).  */)
      (command)
      Lisp_Object command;
 {
+  if (!SYMBOLP (command))
+    return Qnil;
+
   ASET (remap_command_vector, 1, command);
   return Fkey_binding (remap_command_vector, Qnil, Qt);
 }