Mercurial > emacs

changeset 43498:ecd03935bb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(global-set-key, local-set-key): Undo 2002-02-06 change (no longer accept a symbol for the KEY argument).
author Kim F. Storm <storm@cua.dk>
date Sat, 23 Feb 2002 22:26:44 +0000
parents 65eacd9b2e17
children 5f7255c11791
files lisp/subr.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Sat Feb 23 22:03:17 2002 +0000
+++ b/lisp/subr.el	Sat Feb 23 22:26:44 2002 +0000
@@ -1671,7 +1671,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) (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 @@
   (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)))