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

Merge branch 'emacs-30' of git.savannah.gnu.org:/srv/git/emacs into emacs-30

Browse source
This commit is contained in:
Eli Zaretskii 2024-07-29 21:52:05 +03:00
commit 74fe889a93
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/tab-bar.el
View file

@ -2229,14 +2229,16 @@ function `tab-bar-tab-name-function'."
(seq-position (nthcdr beg tabs) group
(lambda (tb gr)
(not (equal (alist-get 'group tb) gr))))))
(pos (when beg
(cond
;; Don't move tab when it's already inside group bounds
((and len (>= tab-index beg) (<= tab-index (+ beg len))) nil)
;; Move tab from the right to the group end
((and len (> tab-index (+ beg len))) (+ beg len 1))
;; Move tab from the left to the group beginning
((< tab-index beg) beg)))))
(pos (if beg
(cond
;; Don't move tab when it's already inside group bounds
((and len (>= tab-index beg) (<= tab-index (+ beg len))) nil)
;; Move tab from the right to the group end
((and len (> tab-index (+ beg len))) (+ beg len 1))
;; Move tab from the left to the group beginning
((< tab-index beg) beg))
;; Move tab with a new group to the end
-1)))
(when pos
(tab-bar-move-tab-to pos (1+ tab-index)))))