From 10bac4d9e5ad7929fcc58fd1f6079e5bb694ec88 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Thu, 12 Mar 2026 14:51:29 +0100 Subject: [PATCH] Fix window-height of project-kill-buffers 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). --- lisp/progmodes/project.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index b920c187f74..3cd2b85e71d 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -2144,17 +2144,18 @@ Also see the `project-kill-buffers-display-buffer-list' variable." (get-buffer-create "*Buffer List*") `(display-buffer--maybe-at-bottom (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)) (body-function - . ,#'(lambda (_window) - (list-buffers-noselect nil bufs)))) - #'(lambda (window _value) - (with-selected-window window - (unwind-protect - (funcall query-user) - (when (window-live-p window) - (quit-restore-window window 'kill)))))) + . ,(lambda (_window) + (list-buffers-noselect nil bufs)))) + (lambda (window _value) + (with-selected-window window + (unwind-protect + (funcall query-user) + (when (window-live-p window) + (quit-restore-window window 'kill)))))) (mapc #'kill-buffer bufs))) ((funcall query-user) (mapc #'kill-buffer bufs)))))