[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el |
Date: |
Wed, 06 Feb 2002 18:05:44 -0500 |
Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.286 emacs/lisp/subr.el:1.287
*** emacs/lisp/subr.el:1.286 Wed Feb 6 10:21:20 2002
--- emacs/lisp/subr.el Wed Feb 6 18:05:44 2002
***************
*** 1669,1675 ****
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)
(signal 'wrong-type-argument (list 'arrayp key)))
(define-key (current-global-map) key command))
--- 1669,1675 ----
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)
(signal 'wrong-type-argument (list 'arrayp key)))
(define-key (current-global-map) key command))
***************
*** 1687,1693 ****
(let ((map (current-local-map)))
(or map
(use-local-map (setq map (make-sparse-keymap))))
! (or (vectorp key) (stringp key)
(signal 'wrong-type-argument (list 'arrayp key)))
(define-key map key command)))
--- 1687,1693 ----
(let ((map (current-local-map)))
(or map
(use-local-map (setq map (make-sparse-keymap))))
! (or (vectorp key) (stringp key) (symbolp key)
(signal 'wrong-type-argument (list 'arrayp key)))
(define-key map key command)))