From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 13 Jul 2024 11:01:27 +0000 (+0200)
Subject: (minibuffer-read-predicate-description): Add completion category
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3dbc6bdc49e9a6f4217b72ed58e6e0f57781814c;p=emacs.git

(minibuffer-read-predicate-description): Add completion category
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 531e8b30dc7..df0049fae3a 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1180,6 +1180,7 @@ styles for specific categories, such as files, buffers, etc."
     (symbol-help (styles basic shorthand substring))
     (multiple-choice (styles basic substring) (sort-function . identity))
     (calendar-month (sort-function . identity))
+    (predicate-description (sort-function . identity))
     (search (sort-function . identity))
     (keybinding (sort-function . minibuffer-sort-alphabetically))
     (function (sort-function . minibuffer-sort-alphabetically)
@@ -5853,18 +5854,20 @@ description without prompting."
     (if (stringp single) single
       (completing-read
        (format-prompt prompt default)
-       (completion-table-dynamic
-        (let ((buf (current-buffer)))
-          (lambda (&rest _)
-            (with-current-buffer buf
-              (let ((descs nil))
-                (advice-function-mapc
-                 (lambda (_a p)
-                   (when-let ((d (alist-get 'description p)))
-                     (push d descs)))
-                 minibuffer-completion-predicate)
-                ;; Put latest restriction first.
-                (reverse descs))))))
+       (completion-table-with-metadata
+        (completion-table-dynamic
+         (let ((buf (current-buffer)))
+           (lambda (&rest _)
+             (with-current-buffer buf
+               (let ((descs nil))
+                 (advice-function-mapc
+                  (lambda (_a p)
+                    (when-let ((d (alist-get 'description p)))
+                      (push d descs)))
+                  minibuffer-completion-predicate)
+                 ;; Put latest restriction first.
+                 (reverse descs))))))
+        '((category . predicate-description)))
        nil t nil nil default))))
 
 (defun minibuffer-predicate-description-to-function (desc)