From ff663bbec9e2b4e0480e4d670c862fcfb9c3e594 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Apr 1998 05:40:48 +0000 Subject: [PATCH] (local-set-key, global-set-key): Return what define-key returns. --- lisp/subr.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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. -- 2.39.2