[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 7385a76 1/2: * lisp/tab-bar.el (tab-bar-move-repeat-map): Fix a
From: |
Juri Linkov |
Subject: |
emacs-28 7385a76 1/2: * lisp/tab-bar.el (tab-bar-move-repeat-map): Fix alias binding of tab-move. |
Date: |
Sun, 24 Oct 2021 15:23:05 -0400 (EDT) |
branch: emacs-28
commit 7385a7667fda2bcc0df71def10c9e14c995ee8f9
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/tab-bar.el (tab-bar-move-repeat-map): Fix alias binding of tab-move.
(tab-bar-move-tab-backward): Put 'repeat-map' symbol property.
---
lisp/tab-bar.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 10ff57b..10f2687 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -2378,12 +2378,13 @@ Used in `repeat-mode'.")
(defvar tab-bar-move-repeat-map
(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)
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)
+(put 'tab-bar-move-tab-backward 'repeat-map 'tab-bar-move-repeat-map)
(provide 'tab-bar)