diff options
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) |