From 5d436090952559eb4fe8204e75760f96dcadd599 Mon Sep 17 00:00:00 2001 From: Kiso Katsuyuki Date: Wed, 9 Sep 2020 22:22:49 +0300 Subject: [PATCH] Introduce a new variable tab-line-switch-cycling If it is set t, enable cycling tab switch. Default is nil. Copyright-paperwork-exempt: yes --- lisp/tab-line.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 140ee8c389e..ddba483859c 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -658,7 +658,10 @@ Its effect is the same as using the `previous-buffer' command (if (bufferp tab) (eq buffer tab) (eq buffer (cdr (assq 'buffer tab))))))) - (tab (if pos (nth (1- pos) tabs))) + (tab (if pos + (if (and tab-line-switch-cycling (<= pos 0)) + (nth (1- (length tabs)) tabs) + (nth (1- pos) tabs)))) (buffer (if (bufferp tab) tab (cdr (assq 'buffer tab))))) (when (bufferp buffer) (switch-to-buffer buffer))))))) @@ -679,11 +682,23 @@ Its effect is the same as using the `next-buffer' command (if (bufferp tab) (eq buffer tab) (eq buffer (cdr (assq 'buffer tab))))))) - (tab (if pos (nth (1+ pos) tabs))) + (tab (if pos + (if (and tab-line-switch-cycling (<= (length tabs) (1+ pos))) + (car tabs) + (nth (1+ pos) tabs)))) (buffer (if (bufferp tab) tab (cdr (assq 'buffer tab))))) (when (bufferp buffer) (switch-to-buffer buffer))))))) +(defcustom tab-line-switch-cycling nil + "Enable cycling tab switch. +If non-nil, `tab-line-switch-to-prev-tab' in the first tab +switches to the last tab and `tab-line-switch-to-next-tab' in the last +tab swithces to the first tab." + :type 'boolean + :group 'tab-line + :version "28.1") + (defcustom tab-line-close-tab-function 'bury-buffer "Defines what to do on closing the tab. -- 2.39.5