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

diff --git a/lisp/subr.el b/lisp/subr.el
index 653ab63e01589ce647ea6f2984dfcc582b6a2e26..c21b862333d71d1dfc4b31cd153ef8b997b2f86b 100644 (file)
--- 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.