(global-set-key, local-set-key): Undo 2002-02-06

change (no longer accept a symbol for the KEY argument).

diff --git a/lisp/subr.el b/lisp/subr.el
index 3ff0f96afcf6586b846267383debdf5e0b7ddaf4..4f2b757286183d33e0f0b3ae93563c2acfa116ea 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1671,7 +1671,7 @@ Note that if KEY has a local binding in the current buffer,
 that local binding will continue to shadow any global binding
 that you make with this function."
   (interactive "KSet key globally: \nCSet key %s to command: ")
-  (or (vectorp key) (stringp key) (symbolp key)
+  (or (vectorp key) (stringp key)
       (signal 'wrong-type-argument (list 'arrayp key)))
   (define-key (current-global-map) key command))
 
@@ -1689,7 +1689,7 @@ which in most cases is shared with all other buffers in the same major mode."
   (let ((map (current-local-map)))
     (or map
        (use-local-map (setq map (make-sparse-keymap))))
-    (or (vectorp key) (stringp key) (symbolp key)
+    (or (vectorp key) (stringp key)
        (signal 'wrong-type-argument (list 'arrayp key)))
     (define-key map key command)))