aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2024-02-10 19:56:39 +0200
committerJuri Linkov2024-02-10 19:56:39 +0200
commit3e5aba883770312536ca7a8f289bf679e55802f5 (patch)
tree633590af9cf0174b87ba473ce51329e74bf86c38
parent0a01b998d13027e5672592f9e60919aa683bad9e (diff)
downloademacs-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.el8
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.
599The current window remains selected." 601The 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."