diff options
| author | Juri Linkov | 2024-02-10 19:56:39 +0200 |
|---|---|---|
| committer | Juri Linkov | 2024-02-10 19:56:39 +0200 |
| commit | 3e5aba883770312536ca7a8f289bf679e55802f5 (patch) | |
| tree | 633590af9cf0174b87ba473ce51329e74bf86c38 | |
| parent | 0a01b998d13027e5672592f9e60919aa683bad9e (diff) | |
| download | emacs-3e5aba883770312536ca7a8f289bf679e55802f5.tar.gz emacs-3e5aba883770312536ca7a8f289bf679e55802f5.zip | |
* lisp/buff-menu.el: Force other-window commands to use other window.
(Buffer-menu-other-window, Buffer-menu-switch-other-window):
Let-bind 'display-buffer-overriding-action' to
'(nil (inhibit-same-window . t))' that will force the buffer
to be displayed in another window in any case (bug#68978).
| -rw-r--r-- | lisp/buff-menu.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 10ea99eae9a..e13c3b56b4e 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el | |||
| @@ -592,13 +592,17 @@ If UNMARK is non-nil, unmark them." | |||
| 592 | (defun Buffer-menu-other-window () | 592 | (defun Buffer-menu-other-window () |
| 593 | "Select this line's buffer in other window, leaving buffer menu visible." | 593 | "Select this line's buffer in other window, leaving buffer menu visible." |
| 594 | (interactive nil Buffer-menu-mode) | 594 | (interactive nil Buffer-menu-mode) |
| 595 | (switch-to-buffer-other-window (Buffer-menu-buffer t))) | 595 | (let ((display-buffer-overriding-action |
| 596 | '(nil (inhibit-same-window . t)))) | ||
| 597 | (switch-to-buffer-other-window (Buffer-menu-buffer t)))) | ||
| 596 | 598 | ||
| 597 | (defun Buffer-menu-switch-other-window () | 599 | (defun Buffer-menu-switch-other-window () |
| 598 | "Make the other window select this line's buffer. | 600 | "Make the other window select this line's buffer. |
| 599 | The current window remains selected." | 601 | The current window remains selected." |
| 600 | (interactive nil Buffer-menu-mode) | 602 | (interactive nil Buffer-menu-mode) |
| 601 | (display-buffer (Buffer-menu-buffer t) t)) | 603 | (let ((display-buffer-overriding-action |
| 604 | '(nil (inhibit-same-window . t)))) | ||
| 605 | (display-buffer (Buffer-menu-buffer t) t))) | ||
| 602 | 606 | ||
| 603 | (defun Buffer-menu-2-window () | 607 | (defun Buffer-menu-2-window () |
| 604 | "Select this line's buffer, with previous buffer in second window." | 608 | "Select this line's buffer, with previous buffer in second window." |