emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-29 a5b5f73d886 3/4: xref--insert-xrefs: Use 'shadow' for the line


From: Dmitry Gutov
Subject: emacs-29 a5b5f73d886 3/4: xref--insert-xrefs: Use 'shadow' for the line number colon
Date: Sun, 19 Feb 2023 12:01:57 -0500 (EST)

branch: emacs-29
commit a5b5f73d886f07c385e5742308e1b59f4f77b9a5
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    xref--insert-xrefs: Use 'shadow' for the line number colon
    
    * lisp/progmodes/xref.el (xref--insert-xrefs): Use face 'shadow' for
    the line number colon instead of continuing it face (bug#61340).
    
    (cherry picked from commit d6d25a3c221e566de4df5319181e9ba9a8df285e)
---
 lisp/progmodes/xref.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 63e065e696e..581eda0513e 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -1126,7 +1126,9 @@ GROUP is a string for decoration purposes and XREF is an
                                    maximize (xref-location-line
                                              (xref-item-location xref)))
            for line-format = (and max-line
-                                  (format "%%%dd:" (1+ (floor (log max-line 
10)))))
+                                  (format
+                                   #("%%%dd:" 0 4 (face xref-line-number) 5 6 
(face shadow))
+                                   (1+ (floor (log max-line 10)))))
            with item-text-props = (list 'mouse-face 'highlight
                                         'keymap xref--button-map
                                         'help-echo
@@ -1146,8 +1148,7 @@ GROUP is a string for decoration purposes and XREF is an
                         ((and (equal line prev-line)
                               (equal prev-group group))
                          "")
-                        (t (propertize (format line-format line)
-                                       'face 'xref-line-number)))))
+                        (t (format line-format line)))))
                  ;; Render multiple matches on the same line, together.
                  (when (and (equal prev-group group)
                             (or (null line)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]