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

[Kim F. Storm]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.288 emacs/lisp/subr.el:1.289
*** emacs/lisp/subr.el:1.288    Wed Feb 20 17:30:39 2002
--- emacs/lisp/subr.el  Sat Feb 23 17:26:44 2002
***************
*** 1671,1677 ****
  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))
  
--- 1671,1677 ----
  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))
  
***************
*** 1689,1695 ****
    (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)))
  
--- 1689,1695 ----
    (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)))