From 24be523fde01e61ab8bff785f272645b59dc60f3 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 24 Feb 2021 20:51:04 +0200 Subject: [PATCH] * lisp/tab-bar.el (tab-switch): New defalias to 'tab-bar-switch-to-tab'. (tab-prefix-map): Bind "O" to 'tab-previous'. --- lisp/tab-bar.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 0893a98e606..3b1fc89f30d 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1288,6 +1288,7 @@ and can restore them." (defalias 'tab-close-other 'tab-bar-close-other-tabs) (defalias 'tab-undo 'tab-bar-undo-close-tab) (defalias 'tab-select 'tab-bar-select-tab) +(defalias 'tab-switch 'tab-bar-switch-to-tab) (defalias 'tab-next 'tab-bar-switch-to-next-tab) (defalias 'tab-previous 'tab-bar-switch-to-prev-tab) (defalias 'tab-last 'tab-bar-switch-to-last-tab) @@ -1708,10 +1709,11 @@ When `switch-to-buffer-obey-display-actions' is non-nil, (define-key tab-prefix-map "1" 'tab-close-other) (define-key tab-prefix-map "0" 'tab-close) (define-key tab-prefix-map "o" 'tab-next) +(define-key tab-prefix-map "O" 'tab-previous) (define-key tab-prefix-map "m" 'tab-move) (define-key tab-prefix-map "M" 'tab-move-to) (define-key tab-prefix-map "r" 'tab-rename) -(define-key tab-prefix-map "\r" 'tab-bar-select-tab-by-name) +(define-key tab-prefix-map "\r" 'tab-switch) (define-key tab-prefix-map "b" 'switch-to-buffer-other-tab) (define-key tab-prefix-map "f" 'find-file-other-tab) (define-key tab-prefix-map "\C-f" 'find-file-other-tab) -- 2.39.2