diff options
| author | pillule <pillule@riseup.net> | 2021-07-08 20:39:39 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-07-08 20:39:39 +0300 |
| commit | 57354bc64bdec4cfc70908c80325f665ad7fbc20 (patch) | |
| tree | 7ca24dd687ba50b9b92f7587c6fbc05415d3dfca /lisp | |
| parent | 8ab0c04c2c77260e2342515151ed75a87907c007 (diff) | |
| download | emacs-57354bc64bdec4cfc70908c80325f665ad7fbc20.tar.gz emacs-57354bc64bdec4cfc70908c80325f665ad7fbc20.tar.bz2 emacs-57354bc64bdec4cfc70908c80325f665ad7fbc20.zip | |
Use display-buffer with re-builder (bug#49069)
* lisp/emacs-lisp/re-builder.el (re-builder): Uses 'display-buffer'
with 'display-buffer-in-direction' to display the reb-buffer. This
allow user-customizations and using it on not splitables windows.
Add a dedication to its window so killing this buffer quit the window.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/re-builder.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index 7d042a9102e..396949d59a2 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el @@ -355,11 +355,16 @@ provided in the Commentary section of this library." (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))) + (setq reb-window-config (current-window-configuration)) + (display-buffer + (get-buffer-create reb-buffer) + `((display-buffer-in-direction) + (direction . ,dir) + (dedicated . t)))))) (font-lock-mode 1) (reb-initialize-buffer))) |