mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Disobey display actions while using switch-to-buffer on the tab-line

Browse Source 
* lisp/tab-line.el (tab-line-select-tab-buffer)
(tab-line-switch-to-prev-tab, tab-line-switch-to-next-tab): Let-bind
switch-to-buffer-obey-display-actions to nil around the call to
switch-to-buffer to restrain buffer switching in bounds of
the same window only (bug#69993).
This commit is contained in:
Juri Linkov 2024-04-04 09:21:01 +03:00
parent daefd6771a
commit 57e78f2d49
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/tab-line.el
View File

@ -832,7 +832,8 @@ using the `previous-buffer' command."
(switch-to-prev-buffer window)))
(t
(with-selected-window window
(switch-to-buffer buffer))))))
(let ((switch-to-buffer-obey-display-actions nil))
(switch-to-buffer buffer)))))))
(defcustom tab-line-switch-cycling nil
"Enable cycling tab switch.
@ -863,7 +864,8 @@ Its effect is the same as using the `previous-buffer' command
(nth (1- (length buffers)) buffers)
(nth (1- pos) buffers)))))
(when (bufferp buffer)
(switch-to-buffer buffer)))))))
(let ((switch-to-buffer-obey-display-actions nil))
(switch-to-buffer buffer))))))))
(defun tab-line-switch-to-next-tab (&optional event)
"Switch to the next tab's buffer.
@ -885,7 +887,8 @@ Its effect is the same as using the `next-buffer' command
(car buffers)
(nth (1+ pos) buffers)))))
(when (bufferp buffer)
(switch-to-buffer buffer)))))))
(let ((switch-to-buffer-obey-display-actions nil))
(switch-to-buffer buffer))))))))
(defcustom tab-line-close-tab-function 'bury-buffer