Commit 6ad5eb97 authored by Juri Linkov's avatar Juri Linkov

* lisp/tab-bar.el: Better handling of closed-tabs in tab-bar-list.

* lisp/tab-bar.el (tab-bar-list-delete-from-list): Add closed tab to
tab-bar-closed-tabs.
(tab-bar-list-select): Don't add the closed intermediate tab to
tab-bar-closed-tabs.
parent 7e151f5b
Pipeline #4004 failed with stage
in 90 minutes and 2 seconds
......@@ -1210,6 +1210,10 @@ Then move up one line. Prefix arg means move that many lines."
(defun tab-bar-list-delete-from-list (tab)
"Delete the window configuration from both lists."
(push `((frame . ,(selected-frame))
(index . ,(tab-bar--tab-index tab))
(tab . ,tab))
tab-bar-closed-tabs)
(set-frame-parameter nil 'tabs (delq tab (funcall tab-bar-tabs-function))))
(defun tab-bar-list-execute ()
......@@ -1238,8 +1242,10 @@ in the selected frame."
(interactive)
(let* ((to-tab (tab-bar-list-current-tab t)))
(kill-buffer (current-buffer))
;; Delete the current window configuration
(tab-bar-close-tab nil (1+ (tab-bar--tab-index to-tab)))))
;; Delete the current window configuration of tab list
;; without storing it in the undo list of closed tabs
(let (tab-bar-closed-tabs)
(tab-bar-close-tab nil (1+ (tab-bar--tab-index to-tab))))))
(defun tab-bar-list-mouse-select (event)
"Select the window configuration whose line you click on."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment