masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 19:59:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* lisp/tab-bar.el (tab-bar-move-repeat-map): Fix alias binding of tab-move.

Browse source 
(tab-bar-move-tab-backward): Put 'repeat-map' symbol property.
This commit is contained in:
Juri Linkov 2021-10-24 22:20:15 +03:00
parent 56caf1c9b8
commit 7385a7667f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/tab-bar.el
View file

@ -2378,12 +2378,13 @@ Used in `repeat-mode'.")
(defvar tab-bar-move-repeat-map (defvar tab-bar-move-repeat-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map "m" 'tab-bar-move-tab) (define-key map "m" 'tab-move)
(define-key map "M" 'tab-bar-move-tab-backward) (define-key map "M" 'tab-bar-move-tab-backward)
map) map)
"Keymap to repeat tab move key sequences `C-x t m m M'. "Keymap to repeat tab move key sequences `C-x t m m M'.
Used in `repeat-mode'.") Used in `repeat-mode'.")
(put 'tab-move 'repeat-map 'tab-bar-move-repeat-map) (put 'tab-move 'repeat-map 'tab-bar-move-repeat-map)
(put 'tab-bar-move-tab-backward 'repeat-map 'tab-bar-move-repeat-map)
(provide 'tab-bar) (provide 'tab-bar)