Add current scroll position to *Completions* header line format

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 0c5c67e1e951a2ab2ace20c589e6d3577491cf8b..204fb2758c750b20f8e63e4b0241dcd4d4889200 100644 (file)
--- 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