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

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index e00839572c8590068ff451d23953b2ba42936de5..95835862ff80b4fd3225e3c4465ccac125fdd323 100644 (file)
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -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."