From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 19 Mar 2024 12:42:24 +0000 (+0100)
Subject: Add current scroll position to *Completions* header line format
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d801c8d5cd543c6b2b3446af7bd70ffb9fb3119b;p=emacs.git

Add current scroll position to *Completions* header line format
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 0c5c67e1e95..204fb2758c7 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -2334,7 +2334,8 @@ completions."
 
 (defvar completions-header-count
   '(completions-candidates
-    ("" (:eval (file-size-human-readable (length completions-candidates) 'si)) " ")))
+    ((-3 "%p") "/"
+     (:eval (file-size-human-readable (length completions-candidates) 'si)) " ")))
 
 (defvar completions-header-category
   '(completions-category