1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00

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.
This commit is contained in:
Juri Linkov 2024-05-02 20:44:04 +03:00
parent 12e3ffcc97
commit a914667a00
2 changed files with 5 additions and 6 deletions

View File

@ -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 <name>*" 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'.

View File

@ -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))