emacs-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]