From cb4090ac5a58a419a88c4d757f60914a8310a2ed Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 30 May 2024 16:24:52 +0200 Subject: [PATCH] Add 'help-echo' to more fields in completions list header line --- lisp/minibuffer.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index c0fed064347..b074c159b8e 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -2299,7 +2299,9 @@ completions." (defvar completions-header-category '(completions-category - ("" (:eval (symbol-name completions-category)) " "))) + ("" (:eval (propertize (symbol-name completions-category) + 'help-echo "Candidates category")) + " "))) (defun completions-header-sort (e) (interactive "e") @@ -2359,7 +2361,9 @@ completions." (defvar completions-header-style '(completions-style - ("" (:eval (symbol-name completions-style)) " "))) + ("" (:eval (propertize (symbol-name completions-style) + 'help-echo "Completion style")) + " "))) (defvar completions-header-ignore-case `(:propertize (completions-ignore-case "a" "A") -- 2.39.2