Rename completion-header-string to completion-header-format

And use a propertized default value.

diff --git a/doc/emacs/mini.texi b/doc/emacs/mini.texi
index b7a30b72bfbc2f3dd986e81e609a76f0323badf1..718ac3ec7a7598a4a6fb51c59d2ebe7256513d8e 100644 (file)
--- a/doc/emacs/mini.texi
+++ b/doc/emacs/mini.texi
@@ -667,14 +667,14 @@ control of the Completion window display properties you can use
 Alists,,Action Alists for Buffer Display, elisp, The Emacs Lisp
 Reference Manual}).
 
-@vindex completion-header-string
-The variable @code{completion-header-string} is a string to control
-the message shown before completions.  It may contain a ``%s'' to show
-the total number of completions.  If nil no completions are shown.
-Text properties may be added to change the appearance, some useful
-ones are @code{face} or @code{cursor-intangible} (@pxref{Special
-Properties,,Properties with Special Meanings, elisp, The Emacs Lisp
-Reference Manual}).
+@vindex completion-header-format
+The variable @code{completion-header-format} is a formatted string to
+control the message shown before completions.  It may contain a ``%s''
+to show the total number of completions.  If nil no completion header
+is shown.  Text properties may be added to change the appearance, some
+useful ones are @code{face} or @code{cursor-intangible}
+(@pxref{Special Properties,,Properties with Special Meanings, elisp,
+The Emacs Lisp Reference Manual}).
 
 @vindex completions-highlight-mode
 When the mode @code{completions-highlight-mode} is active the candidate

diff --git a/etc/NEWS b/etc/NEWS
index 22ba84f084bba36fd8e2a5b84c45abc22fca2a56..76da1787a240207c20a28cebb8703d26a1d60f0f 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -568,7 +568,7 @@ some completion is made.
 This option limits the height of the "*Completions*" buffer.
 
 +++
-*** New option 'completion-header-string'
+*** New option 'completion-header-format'
 This is a string to control the message to show before completions.
 It may contain a %s to show the total number of completions. If nil no
 completions are shown.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index c0281c634301909fce59ed1ac66a633e2d0045f9..0cab09bd982aca87d64d8dbd3db6b72108df6d8a 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1873,8 +1873,11 @@ completions."
   :type 'boolean
   :version "28.1")
 
-(defcustom completion-header-string "Possible completions are (%s):\n"
-  "Propertized header text for completions list.
+(defcustom completion-header-format
+  (propertize "%s possible completions:\n"
+              'face 'shadow
+              :help "Please select a completion")
+  "Format of completions header.
 It may contain one %s to show the total count of completions.
 When nil no header is shown."
   :type '(choice (const :tag "No prefix" nil)
@@ -2143,10 +2146,9 @@ candidates."
 
     (with-current-buffer standard-output
       (goto-char (point-max))
-      (if (not completions)
-          (insert "There are no possible completions of what you have typed.")
-        (when completion-header-string
-          (insert (format completion-header-string (length completions))))
+      (when completions
+        (when completion-header-format
+          (insert (format completion-header-format (length completions))))
         (completion--insert-strings completions group-fun))))
 
   (run-hooks 'completion-setup-hook)