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:
parent
12e3ffcc97
commit
a914667a00
6
etc/NEWS
6
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 <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'.
|
||||
|
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user