From 532d01d6ef11261499d61994c98c57dafed10f38 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 12 May 2024 17:46:19 +0200 Subject: [PATCH] Use window parameters for *Completions* UI --- lisp/minibuffer.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index ddda14376c4..f7b802a7d53 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -3169,9 +3169,7 @@ completions list." (completion-list-mode) (when completion-tab-width (setq tab-width completion-tab-width)) (when completions-highlight-face (cursor-face-highlight-mode 1)) - (face-remap-add-relative 'header-line 'completions-heading) - (setq-local header-line-format completions-header-format) - (setq-local mode-line-format nil)) + (face-remap-add-relative 'header-line 'completions-heading)) (defun completions-display (completions &rest plist) "Display COMPLETIONS in the buffer specified by `standard-output'. @@ -3238,10 +3236,14 @@ PLIST is a property list with optional extra information about COMPLETIONS." completions-action (plist-get plist :action))) (run-hooks 'completion-setup-hook) (display-buffer buf - '((display-buffer-reuse-window display-buffer-at-bottom) + `((display-buffer-reuse-window display-buffer-at-bottom) (window-height . completions--fit-window-to-buffer) (preserve-size . (nil . t)) - (dedicated . soft))))) + (dedicated . soft) + (window-parameters + (mode-line-format . none) + (header-line-format . ,completions-header-format) + (split-window . ignore)))))) (defun display-completion-list (completions &optional group-fun) "Display the list of completions, COMPLETIONS, using `standard-output'. -- 2.39.5