martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix window-height of project-kill-buffers

Browse Source 
An alternative to setting window-height and preserve-size is to rely
on display-buffer--maybe-at-bottom's support for
temp-buffer-resize-mode.

* lisp/progmodes/project.el (project-kill-buffers): Set
window-height to a function, not a form/cons (bug#52148).
This commit is contained in:
Basil L. Contovounesios
2026-03-12 14:51:29 +01:00
parent f15ad18a14
commit 10bac4d9e5
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/progmodes/project.el
View File

@@ -2144,17 +2144,18 @@ Also see the `project-kill-buffers-display-buffer-list' variable."
(get-buffer-create "*Buffer List*") (get-buffer-create "*Buffer List*")
`(display-buffer--maybe-at-bottom `(display-buffer--maybe-at-bottom
(dedicated . t) (dedicated . t)
(window-height . (fit-window-to-buffer)) ;; Rely on `temp-buffer-resize-mode' instead?
(window-height . fit-window-to-buffer)
(preserve-size . (nil . t)) (preserve-size . (nil . t))
(body-function (body-function
. ,#'(lambda (_window) . ,(lambda (_window)
(list-buffers-noselect nil bufs)))) (list-buffers-noselect nil bufs))))
#'(lambda (window _value) (lambda (window _value)
(with-selected-window window (with-selected-window window
(unwind-protect (unwind-protect
(funcall query-user) (funcall query-user)
(when (window-live-p window) (when (window-live-p window)
(quit-restore-window window 'kill)))))) (quit-restore-window window 'kill))))))
(mapc #'kill-buffer bufs))) (mapc #'kill-buffer bufs)))
((funcall query-user) ((funcall query-user)
(mapc #'kill-buffer bufs))))) (mapc #'kill-buffer bufs)))))