[Emacs-diffs] Changes to emacs/src/keymap.c

[Kim F. Storm]

Index: emacs/src/keymap.c
diff -c emacs/src/keymap.c:1.270 emacs/src/keymap.c:1.271
*** emacs/src/keymap.c:1.270    Sun Jan  5 19:53:47 2003
--- emacs/src/keymap.c  Tue Feb 11 09:35:24 2003
***************
*** 1070,1079 ****
  
  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.  */)
       (command)
       Lisp_Object command;
  {
    ASET (remap_command_vector, 1, command);
    return Fkey_binding (remap_command_vector, Qnil, Qt);
  }
--- 1070,1082 ----
  
  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 (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);
  }