[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#68235: 29.1.90; Switching tabs stops following process output in sel
From: |
Juri Linkov |
Subject: |
bug#68235: 29.1.90; Switching tabs stops following process output in selected window |
Date: |
Tue, 05 Mar 2024 19:27:18 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/30.0.50 (x86_64-pc-linux-gnu) |
>> Patch attached. I now provide only one hook I called
>> 'window-kept-windows-functions' which is run by both
>> 'set-window-configuration' and 'window-state-put'.
>
> Should be on master now.
Thanks. This will allow such option:
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 61efa332e0b..b2eb1c9d576 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -1393,6 +1405,44 @@ tab-bar-tab-post-select-functions
:group 'tab-bar
:version "30.1")
+(defcustom tab-bar-select-keep-windows-function #'tab-bar-select-keep-windows
+ "Function that handles the killed buffers after selecting a tab."
+ :type '(choice (const :tag "Show placeholder buffers"
+ tab-bar-select-keep-windows)
+ (function :tag "Function"))
+ :group 'tab-bar
+ :version "30.1")
+
+(defun tab-bar-select-keep-windows (_frame windows)
+ (dolist (quad windows)
+ (when (and (window-live-p (nth 0 quad))
+ (not (window-minibuffer-p (nth 0 quad))))
+ (let* ((window (nth 0 quad))
+ (old-buffer (nth 1 quad))
+ (file (when (bufferp old-buffer)
+ (buffer-file-name old-buffer)))
+ (name (or file
+ (and (fboundp 'buffer-last-name)
+ (buffer-last-name old-buffer))
+ old-buffer))
+ (new-buffer (generate-new-buffer
+ (format "*Old buffer %s*" name))))
+ (with-current-buffer new-buffer
+ (set-auto-mode)
+ (insert (format-message "This window displayed the %s `%s'.\n"
+ (if file "file" "buffer")
+ name))
+ (when file
+ (insert-button
+ "[Restore]" 'action
+ (lambda (_button)
+ (set-window-buffer window (find-file-noselect file))
+ (set-window-start window (nth 2 quad) t)
+ (set-window-point window (nth 3 quad)))))
+ (goto-char (point-min))
+ (setq buffer-read-only t)
+ (set-window-buffer window new-buffer))))))
+
(defvar tab-bar-minibuffer-restore-tab nil
"Tab number for `tab-bar-minibuffer-restore-tab'.")
@@ -1438,7 +1488,10 @@ tab-bar-select-tab
(let* ((from-tab (tab-bar--tab))
(to-tab (nth to-index tabs))
(wc (alist-get 'wc to-tab))
- (ws (alist-get 'ws to-tab)))
+ (ws (alist-get 'ws to-tab))
+ (window-kept-windows-functions
+ (delq nil (cons tab-bar-select-keep-windows-function
+ window-kept-windows-functions))))
;; During the same session, use window-configuration to switch
;; tabs, because window-configurations are more reliable
bug#68235: 29.1.90; Switching tabs stops following process output in selected window, Juri Linkov, 2024/03/05