Mercurial > emacs

changeset 21578:6175866e1b71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(local-set-key, global-set-key): Return what define-key returns.
author Richard M. Stallman <rms@gnu.org>
date Thu, 16 Apr 1998 05:40:48 +0000
parents 027075cb9a49
children b26c7c2891b4
files lisp/subr.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Thu Apr 16 05:38:51 1998 +0000
+++ b/lisp/subr.el	Thu Apr 16 05:40:48 1998 +0000
@@ -1133,8 +1133,7 @@
   (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 @@
 	(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.