# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1013036744 0
# Node ID 43607fa601029d3d16efcce332c48fc0f9264b62
# Parent  c72ba425c03852ae800630902c893c23e830ea41
(global-set-key, local-set-key): Accept a symbol for the
KEY argument (like define-key).

diff -r c72ba425c038 -r 43607fa60102 lisp/subr.el
--- a/lisp/subr.el	Wed Feb 06 23:05:03 2002 +0000
+++ b/lisp/subr.el	Wed Feb 06 23:05:44 2002 +0000
@@ -1669,7 +1669,7 @@
 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)
+  (or (vectorp key) (stringp key) (symbolp key)
       (signal 'wrong-type-argument (list 'arrayp key)))
   (define-key (current-global-map) key command))
 
@@ -1687,7 +1687,7 @@
   (let ((map (current-local-map)))
     (or map
 	(use-local-map (setq map (make-sparse-keymap))))
-    (or (vectorp key) (stringp key)
+    (or (vectorp key) (stringp key) (symbolp key)
 	(signal 'wrong-type-argument (list 'arrayp key)))
     (define-key map key command)))