procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Introduce a new variable tab-line-switch-cycling

Browse source 
If it is set t, enable cycling tab switch.  Default is nil.

Copyright-paperwork-exempt: yes
This commit is contained in:
Kiso Katsuyuki 2020-09-09 22:22:49 +03:00 • committed by Juri Linkov
parent c3f986a455
commit 5d43609095
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/tab-line.el
View file

@ -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.