From d801c8d5cd543c6b2b3446af7bd70ffb9fb3119b Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 19 Mar 2024 13:42:24 +0100 Subject: [PATCH] Add current scroll position to *Completions* header line format --- lisp/minibuffer.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.5