[elpa] externals/consult 24e5b45: consult--multi: Overwrite face only if specified

[ELPA Syncer]

branch: externals/consult
commit 24e5b4563b7203b5ec3626b71491ea390adf80b5
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult--multi: Overwrite face only if specified
---
 consult.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index ce285fe..3e6f62c 100644
--- a/consult.el
+++ b/consult.el
@@ -2056,7 +2056,7 @@ INHERIT-INPUT-METHOD, if non-nil the minibuffer inherits 
the input method."
   "Return `consult--multi' candidates from SOURCES."
   (let ((def) (idx 0) (max-width 0) (candidates))
     (seq-doseq (src sources)
-      (let* ((face (plist-get src :face))
+      (let* ((face (and (plist-member src :face) `(face ,(plist-get src 
:face))))
              (cat (plist-get src :category))
              (items (plist-get src :items))
              (items (if (functionp items) (funcall items) items)))
@@ -2065,7 +2065,7 @@ INHERIT-INPUT-METHOD, if non-nil the minibuffer inherits 
the input method."
         (dolist (item items)
           (let ((cand (consult--tofu-append item idx))
                 (width (consult--display-width item)))
-            (add-text-properties 0 (length item) `(face ,face consult-multi 
(,cat . ,item)) cand)
+            (add-text-properties 0 (length item) `(,@face consult-multi (,cat 
. ,item)) cand)
             (when (> width max-width) (setq max-width width))
             (push cand candidates))))
       (setq idx (1+ idx)))