From a2f9aa84c3c70a84f8c1827278f762daddb95d10 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 23 Feb 2002 22:26:44 +0000 Subject: [PATCH] (global-set-key, local-set-key): Undo 2002-02-06 change (no longer accept a symbol for the KEY argument). --- lisp/subr.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 3ff0f96afcf..4f2b7572861 100644 --- 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))) -- 2.39.2