diff options
| author | Juri Linkov <juri@linkov.net> | 2019-06-05 23:57:07 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-06-05 23:57:07 +0300 |
| commit | ec264e71264c1e35266917f4568ae8572ec8570b (patch) | |
| tree | 71d982858a90f79386d9f67731751e4051d194e8 /lisp/proced.el | |
| parent | 3a95ce187a776ef44b9ce78b2a825aba29711035 (diff) | |
| download | emacs-ec264e71264c1e35266917f4568ae8572ec8570b.tar.gz emacs-ec264e71264c1e35266917f4568ae8572ec8570b.tar.bz2 emacs-ec264e71264c1e35266917f4568ae8572ec8570b.zip | |
* lisp/wid-edit.el (widget-choose): Use display-buffer-in-direction
to display buffer in bottom direction with fit-window-to-buffer.
* lisp/proced.el (proced-with-processes-buffer): Idem. (Bug#35592)
Diffstat (limited to 'lisp/proced.el')
| -rw-r--r-- | lisp/proced.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index ce379a7c6aa..b05046bfbd3 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -1744,9 +1744,10 @@ The value returned is the value of the last form in BODY." (save-window-excursion ;; Analogous to `dired-pop-to-buffer' ;; Don't split window horizontally. (Bug#1806) - (let (split-width-threshold) - (pop-to-buffer (current-buffer))) - (fit-window-to-buffer (get-buffer-window) nil 1) + (display-buffer (current-buffer) + '(display-buffer-in-direction + (direction . bottom) + (window-height . fit-window-to-buffer))) ,@body)))) (defun proced-send-signal (&optional signal process-alist) |