Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/tab-bar.el: Add repeat-map keymaps.

Browse source 
* lisp/tab-bar.el (tab-bar-switch-repeat-map): New keymap used for
'tab-next' and 'tab-previous'.
(tab-bar-move-repeat-map): New keymap used for 'tab-move'.
https://lists.gnu.org/archive/html/emacs-devel/2021-03/msg01103.html
This commit is contained in:
Juri Linkov 2021-04-06 00:18:59 +03:00
parent 15de559d98
commit c049c8da58
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/tab-bar.el
View file

@ -2075,6 +2075,28 @@ When `switch-to-buffer-obey-display-actions' is non-nil,
(define-key tab-prefix-map "\C-r" 'find-file-read-only-other-tab)
(define-key tab-prefix-map "t" 'other-tab-prefix)
(defvar tab-bar-switch-repeat-map
(let ((map (make-sparse-keymap)))
(define-key map "o" 'tab-next)
(define-key map "O" 'tab-previous)
map)
"Keymap to repeat tab switch key sequences `C-x t o o O'.
Used in `repeat-mode'.")
(put 'tab-next 'repeat-map 'tab-bar-switch-repeat-map)
(put 'tab-previous 'repeat-map 'tab-bar-switch-repeat-map)
(defvar tab-bar-move-repeat-map
(let ((map (make-sparse-keymap)))
(define-key map "m" 'tab-move)
(define-key map "M" (lambda ()
(interactive)
(setq repeat-map 'tab-bar-move-repeat-map)
(tab-move -1)))
map)
"Keymap to repeat tab move key sequences `C-x t m m M'.
Used in `repeat-mode'.")
(put 'tab-move 'repeat-map 'tab-bar-move-repeat-map)
(provide 'tab-bar)