From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 12 May 2024 15:46:19 +0000 (+0200)
Subject: Use window parameters for *Completions* UI
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=532d01d6ef11261499d61994c98c57dafed10f38;p=emacs.git

Use window parameters for *Completions* UI
---

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'.