diff options
| -rw-r--r-- | doc/emacs/frames.texi | 5 | ||||
| -rw-r--r-- | lisp/tab-bar.el | 12 |
2 files changed, 17 insertions, 0 deletions
diff --git a/doc/emacs/frames.texi b/doc/emacs/frames.texi index 869b77d86bd..169eebab3e6 100644 --- a/doc/emacs/frames.texi +++ b/doc/emacs/frames.texi @@ -1307,6 +1307,11 @@ Switch to another tab. If you repeat this command, it cycles through all the tabs on the selected frame. With a positive numeric argument N, it switches to the next Nth tab; with a negative argument −N, it switches back to the previous Nth tab. + +@item C-x 6 1 +@kindex C-x 6 1 +@findex tab-close-other +Close all tabs on the selected frame, except the selected one. @end table @node Dialog Boxes diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 27ae274eaa4..1c1acaafa47 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -560,6 +560,17 @@ TO-INDEX counts from 1." (tab-bar-tabs))))) (tab-bar-close-tab (1+ (tab-bar--tab-index-by-name name)))) +(defun tab-close-other () + "Close all tabs on the selected frame, except the selected one." + (interactive) + (let* ((tabs (tab-bar-tabs)) + (current-index (tab-bar--current-tab-index tabs))) + (when current-index + (set-frame-parameter nil 'tabs (list (nth current-index tabs))) + (if tab-bar-mode + (force-mode-line-update) + (message "Deleted all other tabs"))))) + ;;; Short aliases @@ -819,6 +830,7 @@ Like \\[find-file-other-frame] (which see), but creates a new tab." (switch-to-buffer-other-tab value)))) (define-key ctl-x-6-map "2" 'tab-new) +(define-key ctl-x-6-map "1" 'tab-close-other) (define-key ctl-x-6-map "0" 'tab-close) (define-key ctl-x-6-map "o" 'tab-next) (define-key ctl-x-6-map "b" 'switch-to-buffer-other-tab) |