diff options
| author | Richard M. Stallman <[email protected]> | 1998-04-16 05:40:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1998-04-16 05:40:48 +0000 |
| commit | ff663bbec9e2b4e0480e4d670c862fcfb9c3e594 (patch) | |
| tree | c161c5b56cbc1880dd12c478d391e5f512a0a329 /lisp/subr.el | |
| parent | f0c030b36d55d0f954f4c2fd0f75d34a0aadfeff (diff) | |
(local-set-key, global-set-key): Return what define-key returns.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 653ab63e01..c21b862333 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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. |