diff options
| author | Juri Linkov | 2021-10-24 22:20:15 +0300 |
|---|---|---|
| committer | Juri Linkov | 2021-10-24 22:22:16 +0300 |
| commit | 7385a7667fda2bcc0df71def10c9e14c995ee8f9 (patch) | |
| tree | 4da879620e63450f77c943125cd37a41d7e5084e | |
| parent | 56caf1c9b887ccbb6d35a95ca257f633bb71d1d3 (diff) | |
| download | emacs-7385a7667fda2bcc0df71def10c9e14c995ee8f9.tar.gz emacs-7385a7667fda2bcc0df71def10c9e14c995ee8f9.zip | |
* 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.
| -rw-r--r-- | lisp/tab-bar.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 10ff57bfd0a..10f26875db5 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el | |||
| @@ -2378,12 +2378,13 @@ Used in `repeat-mode'.") | |||
| 2378 | 2378 | ||
| 2379 | (defvar tab-bar-move-repeat-map | 2379 | (defvar tab-bar-move-repeat-map |
| 2380 | (let ((map (make-sparse-keymap))) | 2380 | (let ((map (make-sparse-keymap))) |
| 2381 | (define-key map "m" 'tab-bar-move-tab) | 2381 | (define-key map "m" 'tab-move) |
| 2382 | (define-key map "M" 'tab-bar-move-tab-backward) | 2382 | (define-key map "M" 'tab-bar-move-tab-backward) |
| 2383 | map) | 2383 | map) |
| 2384 | "Keymap to repeat tab move key sequences `C-x t m m M'. | 2384 | "Keymap to repeat tab move key sequences `C-x t m m M'. |
| 2385 | Used in `repeat-mode'.") | 2385 | Used in `repeat-mode'.") |
| 2386 | (put 'tab-move 'repeat-map 'tab-bar-move-repeat-map) | 2386 | (put 'tab-move 'repeat-map 'tab-bar-move-repeat-map) |
| 2387 | (put 'tab-bar-move-tab-backward 'repeat-map 'tab-bar-move-repeat-map) | ||
| 2387 | 2388 | ||
| 2388 | 2389 | ||
| 2389 | (provide 'tab-bar) | 2390 | (provide 'tab-bar) |