[elpa] externals/consult 267b0c9d86: Rename face to consult-highlight-mark

[ELPA Syncer]

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

    Rename face to consult-highlight-mark
---
 CHANGELOG.org |  2 +-
 consult.el    | 17 +++++++++--------
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index c18046fbee..44831eb7e0 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -9,7 +9,7 @@
   =completion-table-dynamic= or =completion--file-name-table=. This allows you 
to
   reuse existing completion tables to write completion commands enhanced with
   Consult candidate preview.
-- Replace =consult-preview-cursor= face with =cursor-preview-mark=.
+- Replace =consult-preview-cursor= face with =cursor-highlight-mark=.
 
 * Version 0.34 (2023-04-21)
 
diff --git a/consult.el b/consult.el
index 8bb2855c29..24ffe4927e 100644
--- a/consult.el
+++ b/consult.el
@@ -375,20 +375,21 @@ Each element of the list must have the form (char name 
handler)."
   '((t :inherit consult-preview-insertion :extend t))
   "Face used for line previews.")
 
+(defface consult-highlight-mark
+  '((t :inherit match))
+  "Face used for mark positions in completion candidates.
+Used for example by `consult-mark'.  The face should be different
+than the `cursor' face to avoid confusion.")
+
 (defface consult-highlight-match
   '((t :inherit match))
   "Face used to highlight matches in the completion candidates.
-Used for example in `consult-grep'.")
+Used for example by `consult-grep'.")
 
 (defface consult-preview-match
   '((t :inherit isearch))
   "Face used for match previews, e.g., in `consult-line'.")
 
-(defface consult-preview-mark
-  '((t :inherit isearch))
-  "Face used for mark positions in candidates, e.g., in `consult-mark'.
-The face should be different than the `cursor' face to avoid confusion.")
-
 (defface consult-preview-insertion
   '((t :inherit region))
   "Face used for previews of text to be inserted.
@@ -977,9 +978,9 @@ region has been fontified."
          (end (pos-eol))
          (str (consult--buffer-substring beg end 'fontify)))
     (if (>= marker end)
-        (concat str #(" " 0 1 (face consult-preview-mark)))
+        (concat str #(" " 0 1 (face consult-highlight-mark)))
       (put-text-property (- marker beg) (- (1+ marker) beg)
-                         'face 'consult-preview-mark str)
+                         'face 'consult-highlight-mark str)
       str)))
 
 ;;;; Tofu cooks