Add two new options for completions.

* doc/emacs/mini.texi (completion-lazy-count):
(completion-header-text-property-list) : New customs

Updated NEWS and manual.

diff --git a/doc/emacs/mini.texi b/doc/emacs/mini.texi
index 7224c48613948f02d85eaefff799c9476160d841..769acbcdd596177d55ee7470037809eecd98aca0 100644 (file)
--- a/doc/emacs/mini.texi
+++ b/doc/emacs/mini.texi
@@ -667,6 +667,18 @@ control of the Completion window display properties you can use
 Alists,,Action Alists for Buffer Display, elisp, The Emacs Lisp
 Reference Manual}).
 
+@vindex completion-lazy-count
+@vindex completion-header-text-property-list
+  When the boolean variable @code{completion-lazy-count} is
+non-@code{nil} the completions header line shows the total number of
+completion candidates.  With the text property list
+@code{completion-header-text-property-list} (@pxref{Property
+Lists,,Property Lists, elisp, The Emacs Lisp Reference Manual}) the
+user can specify some text properties to the completions header line.
+Some useful values may be @code{face}, @code{cursor-intangible} or
+@code{invisible} (@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
 under the cursor is highlighted when the completion window is

diff --git a/etc/NEWS b/etc/NEWS
index 9ea6512dcac2e4b5e495b6201bb178feded4da83..041d3c9d19bcc3e32e12cdadaab930f8cd01458c 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -567,11 +567,21 @@ some completion is made.
 *** New user option 'completions-max-height'.
 This option limits the height of the "*Completions*" buffer.
 
++++
+*** New option 'completion-header-text-property-list'
+List of text properties to add to the header line of completions.
+
++++
+*** New option 'completion-lazy-count'
+When non-nil the completions header line shows the total number of
+completion candidates.
+
 +++
 *** New mode 'completions-highlight-mode'.
 This mode highlights the current candidate in the *Completions* buffer
 with the 'completions-highlight' face.
 
+
 ** Isearch and Replace
 
 +++

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 9ac18f8df9e62b9ed7e8b6c62ffa85df24122ce3..1768673bcbbfd7ce08c091b8fb45b10a80dab591 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1873,6 +1873,20 @@ completions."
   :type 'boolean
   :version "28.1")
 
+(defcustom completion-header-text-property-list nil
+  "List of text properties to add to the header line of completions.
+For example you can change the header color to red setting this
+to: `(face (:foreground ``red'')).  Some useful properties may be
+`cursor-intangible' or `invisible'.  See Info node `(elisp) Special
+Properties'."
+  :type 'plist
+  :version "29.1")
+
+(defcustom completion-lazy-count nil
+  "When non-nil, display the total number of candidates in the completions header."
+  :type 'boolean
+  :version "29.1")
+
 (defun completion--insert-strings (strings &optional group-fun)
   "Insert a list of STRINGS into the current buffer.
 The candidate strings are inserted into the buffer depending on the
@@ -2135,10 +2149,18 @@ candidates."
 
     (with-current-buffer standard-output
       (goto-char (point-max))
-      (if (null completions)
-          (insert "There are no possible completions of what you have typed.")
-        (insert "Possible completions are:\n")
-        (completion--insert-strings completions group-fun))))
+      (if completions
+          (let ((start (point))
+                (text (concat
+                       "Possible completions are"
+                       (if completion-lazy-count
+                           (format " (%s)" (length completions)))
+                       ":\n")))
+            (insert text)
+            (when completion-header-text-property-list
+              (add-text-properties start (point) completion-header-text-property-list))
+            (completion--insert-strings completions group-fun))
+        (insert "There are no possible completions of what you have typed."))))
 
   (run-hooks 'completion-setup-hook)
   nil)