mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

Apply vc-use-incoming-outgoing-prefixes to vc-dir-mode-map too

Browse source 
* lisp/vc/vc-dir.el (vc-use-incoming-outgoing-prefixes):
* lisp/vc/vc-hooks.el: Apply vc-use-incoming-outgoing-prefixes
to the corresponding bindings in vc-dir-mode-map, too.
This commit is contained in:
Sean Whitton 2025-07-11 09:30:19 +01:00
parent 0814a93a04
commit 5d048521e2
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc/vc-dir.el
View file

@ -424,6 +424,10 @@ That is, refreshing the VC-Dir buffer also hides `up-to-date' and
map)
"Keymap for directory buffer.")
(when vc-use-incoming-outgoing-prefixes
(keymap-set vc-dir-mode-map "I" vc-incoming-prefix-map)
(keymap-set vc-dir-mode-map "O" vc-outgoing-prefix-map))
(defmacro vc-dir-at-event (event &rest body)
"Evaluate BODY with point located at `event-start' of EVENT.
If BODY uses EVENT, it should be a variable,

15
lisp/vc/vc-hooks.el
View file

@ -971,11 +971,16 @@ other commands receive global bindings where they had none before."
:type 'boolean
:version "31.1"
:set (lambda (symbol value)
(if value
(progn (keymap-set vc-prefix-map "I" vc-incoming-prefix-map)
(keymap-set vc-prefix-map "O" vc-outgoing-prefix-map))
(keymap-set vc-prefix-map "I" #'vc-log-incoming)
(keymap-set vc-prefix-map "O" #'vc-log-outgoing))
(let ((maps (list vc-prefix-map)))
(when (boundp 'vc-dir-mode-map)
(push vc-dir-mode-map maps))
(if value
(dolist (map maps)
(keymap-set map "I" vc-incoming-prefix-map)
(keymap-set map "O" vc-outgoing-prefix-map))
(dolist (map maps)
(keymap-set map "I" #'vc-log-incoming)
(keymap-set map "O" #'vc-log-outgoing))))
(set-default symbol value)))
(defvar vc-menu-map