Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(local-set-key, global-set-key): Return what define-key returns.

Browse source
This commit is contained in:
Richard M. Stallman 1998-04-16 05:40:48 +00:00
parent f0c030b36d
commit ff663bbec9
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -1133,8 +1133,7 @@ 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)
nil)
(define-key (current-global-map) key command))
(defun local-set-key (key command)
"Give KEY a local binding as COMMAND.
@ -1152,8 +1151,7 @@ which in most cases is shared with all other buffers in the same major mode."
(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))
nil)
(define-key map key command)))
(defun global-unset-key (key)
"Remove global binding of KEY.