[elpa] externals/corfu 71cedfb 2/2: corfu--echo: Only add highlighting if no highlighting is present

[ELPA Syncer]

branch: externals/corfu
commit 71cedfba75dbf7282898964fe435883930d06ada
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    corfu--echo: Only add highlighting if no highlighting is present
---
 corfu.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/corfu.el b/corfu.el
index 7d8cf1e..6cf98ce 100644
--- a/corfu.el
+++ b/corfu.el
@@ -148,7 +148,7 @@ completion began less than that number of seconds ago."
   "The background color used for the thin border.")
 
 (defface corfu-echo
-  '((t :inherit font-lock-comment-face))
+  '((t :inherit completions-annotations))
   "Face used to for echo area messages.")
 
 (defvar corfu-map
@@ -590,7 +590,9 @@ completion began less than that number of seconds ago."
 (defun corfu--echo (msg)
   "Show MSG in echo area."
   (let ((message-log-max nil))
-    (message "%s" (propertize msg 'face 'corfu-echo))))
+    (message "%s" (if (text-property-not-all 0 (length msg) 'face nil msg)
+                      msg
+                    (propertize msg 'face 'corfu-echo)))))
 
 (defun corfu--echo-documentation (cand)
   "Show documentation string for CAND in echo area."