From cde5dcd441b5db79f39b8664221866566c400b05 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 17 Nov 2021 08:34:32 +0100 Subject: Change the call signature to keymap-substitute * lisp/keymap.el (keymap-substitute): Make the keymap the first parameter for symmetry with the other functions. * lisp/emacs-lisp/shortdoc.el (keymaps): * lisp/emacs-lisp/bytecomp.el (lambda): Adjust. --- lisp/emacs-lisp/bytecomp.el | 2 +- lisp/emacs-lisp/shortdoc.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 4078a7314f3..3338c383171 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -5066,7 +5066,7 @@ binding slots have been popped." (keymap-unset 2) (keymap-global-unset 1) (keymap-local-unset 1) - (keymap-substitute 1 2) + (keymap-substitute 2 3) (keymap-set-after 2) (key-translate 1 2) (keymap-lookup 2) diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index 228d1e05513..157209fcf74 100644 --- a/lisp/emacs-lisp/shortdoc.el +++ b/lisp/emacs-lisp/shortdoc.el @@ -1242,7 +1242,7 @@ There can be any number of :example/:result elements." (keymap-global-unset :no-eval (keymap-global-unset "C-c C-c")) (keymap-substitute - :no-eval (keymap-substitute "C-c C-c" "M-a" map)) + :no-eval (keymap-substitute map "C-c C-c" "M-a")) (keymap-set-after :no-eval (keymap-set-after map "" menu-bar-separator)) "Predicates" -- cgit v1.2.3