procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change the call signature to keymap-substitute

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2021-11-17 08:34:32 +01:00
parent 249095fd67
commit cde5dcd441
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/bytecomp.el
View file

@ -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)

2
lisp/emacs-lisp/shortdoc.el
View file

@ -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 "<separator-2>" menu-bar-separator))
"Predicates"

2
lisp/keymap.el
View file

@ -121,7 +121,7 @@ parent keymap to be used."
(keymap--check key)
(define-key keymap (key-parse key) nil remove))
(defun keymap-substitute (olddef newdef keymap &optional oldmap prefix)
(defun keymap-substitute (keymap olddef newdef &optional oldmap prefix)
"Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.
In other words, OLDDEF is replaced with NEWDEF wherever it appears.
Alternatively, if optional fourth argument OLDMAP is specified, we redefine