From a914667a0071e3a19846fff9ea5ff8e8f1457e17 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 2 May 2024 20:44:04 +0300 Subject: [PATCH] Make the buffer displayed by tab-bar-select-restore-windows internal * lisp/tab-bar.el (tab-bar-select-restore-windows): Make the buffer " *Old buffer %s*" internal with the leading space in its name. --- etc/NEWS | 6 +++--- lisp/tab-bar.el | 5 ++--- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index b55ee02e0bd..e2588afeb40 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -352,9 +352,9 @@ points after switching back to that tab. --- *** New user option 'tab-bar-select-restore-windows'. It defines what to do with windows whose buffer was killed since the tab -was last selected. By default it displays a placeholder buffer that -provides information about the name of the killed buffer that was -displayed in that window. +was last selected. By default it displays a placeholder buffer +with the name " *Old buffer *" that provides information about +the name of the killed buffer that was displayed in that window. --- *** New user option 'tab-bar-tab-name-format-functions'. diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index cd076664faf..2a4f8fd6916 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1440,11 +1440,10 @@ if it was visiting a file." (buffer-file-name old-buffer))) (name (or file (and (bufferp old-buffer) - (fboundp 'buffer-last-name) (buffer-last-name old-buffer)) old-buffer)) (new-buffer (generate-new-buffer - (format "*Old buffer %s*" name)))) + (format " *Old buffer %s*" name)))) (with-current-buffer new-buffer (set-auto-mode) (insert (format-message "This window displayed the %s `%s'.\n" @@ -1511,7 +1510,7 @@ Negative TAB-NUMBER counts tabs from the end of the tab bar." (when (and read-minibuffer-restore-windows minibuffer-was-active (not tab-bar-minibuffer-restore-tab)) (setq-local tab-bar-minibuffer-restore-tab (1+ from-index)) - (add-hook 'minibuffer-exit-hook 'tab-bar-minibuffer-restore-tab nil t)) + (add-hook 'minibuffer-exit-hook #'tab-bar-minibuffer-restore-tab nil t)) (unless (eq from-index to-index) (let* ((from-tab (tab-bar--tab))