diff options
author | Juri Linkov <juri@linkov.net> | 2024-05-02 20:44:04 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2024-05-02 20:44:04 +0300 |
commit | a914667a0071e3a19846fff9ea5ff8e8f1457e17 (patch) | |
tree | 62fa15561906d0896979ba44c21520b97f07bbb2 /lisp/tab-bar.el | |
parent | 12e3ffcc97af739f0134959ce4a5ff2f23ffa971 (diff) | |
download | emacs-a914667a0071e3a19846fff9ea5ff8e8f1457e17.tar.gz |
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.
Diffstat (limited to 'lisp/tab-bar.el')
-rw-r--r-- | lisp/tab-bar.el | 5 |
1 files changed, 2 insertions, 3 deletions
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)) |