Add 'help-echo' to more fields in completions list header line

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index c0fed064347da8e8f838327f13a4b114594ad62e..b074c159b8e8f3222b69ab5fa88e195a179cad5c 100644 (file)
--- 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")