From b4630049c6b1c4b1704fb463edfa8140ed4df729 Mon Sep 17 00:00:00 2001 From: Trust me I am a doctor Date: Tue, 29 Jun 2021 17:46:07 +0200 Subject: [PATCH] Pop re-buffer in a dedicated window * lisp/emacs-lisp/re-builder.el (re-builder): Uses 'display-buffer-overriding-action' to pop 're-buffer' in a dedicated window, also make possible to call it from a side window. --- lisp/emacs-lisp/re-builder.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index 7d042a9102..331f17cb5e 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el @@ -355,11 +355,15 @@ re-builder (reb-delete-overlays)) (setq reb-target-buffer (current-buffer) reb-target-window (selected-window)) - (select-window (or (get-buffer-window reb-buffer) - (progn - (setq reb-window-config (current-window-configuration)) - (split-window (selected-window) (- (window-height) 4))))) - (switch-to-buffer (get-buffer-create reb-buffer)) + (select-window + (or (get-buffer-window reb-buffer) + (let* ((dir (if (window-parameter nil 'window-side) + 'bottom 'down)) + (display-buffer-overriding-action `((display-buffer-in-direction) + (direction . ,dir) + (dedicated . t)))) + (setq reb-window-config (current-window-configuration)) + (pop-to-buffer (get-buffer-create reb-buffer))))) (font-lock-mode 1) (reb-initialize-buffer))) -- 2.20.1