[Emacs-diffs] Changes to emacs/lisp/subr.el

[Kim F. Storm]

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)))