[elpa] externals/embark 9d6d4139bf 2/2: Use list-matching-lines-prefix-face for occur export

[ELPA Syncer]

branch: externals/embark
commit 9d6d4139bf66aa172ac96a6d0918d591455497c3
Author: Omar Antolin Camarena <omar.antolin@gmail.com>
Commit: Omar Antolin Camarena <omar.antolin@gmail.com>

    Use list-matching-lines-prefix-face for occur export
---
 embark-consult.el | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index 57248ef0f5..de0e6839ec 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -115,18 +115,19 @@ The elements of LINES are assumed to be values of 
category `consult-line'."
             ((`(,loc . ,num) (consult--get-location line))
              ;; the text properties added to the following strings are
              ;; taken from occur-engine
-             (lineno (propertize (format "%7d:" num)
-                                 'occur-prefix t
-                                 ;; Allow insertion of text at the end
-                                 ;; of the prefix (for Occur Edit mode).
-                                 'front-sticky t
-                                 'rear-nonsticky t
-                                 'read-only t
-                                 'occur-target loc
-                                 'follow-link t
-                                 'help-echo mouse-msg
-                                 'font-lock-face 'shadow
-                                 'mouse-face 'highlight))
+             (lineno (propertize
+                      (format "%7d:" num)
+                      'occur-prefix t
+                      ;; Allow insertion of text at the end
+                      ;; of the prefix (for Occur Edit mode).
+                      'front-sticky t
+                      'rear-nonsticky t
+                      'read-only t
+                      'occur-target loc
+                      'follow-link t
+                      'help-echo mouse-msg
+                      'font-lock-face list-matching-lines-prefix-face
+                      'mouse-face 'highlight))
              (contents (propertize (embark-consult--strip line)
                                    'occur-target loc
                                    'occur-match t