Commit ec264e71 authored by Juri Linkov's avatar Juri Linkov

* 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)
parent 3a95ce18
Pipeline #1904 failed with stage
in 3 seconds
......@@ -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)
......
......@@ -252,7 +252,10 @@ minibuffer."
(define-key map [?\M--] 'negative-argument)
(save-window-excursion
(let ((buf (get-buffer " widget-choose")))
(fit-window-to-buffer (display-buffer buf))
(display-buffer buf
'(display-buffer-in-direction
(direction . bottom)
(window-height . fit-window-to-buffer)))
(let ((cursor-in-echo-area t)
(arg 1))
(while (not value)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment