From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 16 Apr 1998 05:40:48 +0000 (+0000)
Subject: (local-set-key, global-set-key): Return what define-key returns.
X-Git-Tag: emacs-20.3~1497
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff663bbec9e2b4e0480e4d670c862fcfb9c3e594;p=emacs.git

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

diff --git a/lisp/subr.el b/lisp/subr.el
index 653ab63e015..c21b862333d 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.