[Emacs-diffs] master bcfdfd2: xref--insert-xrefs: Tweak the faces

[Dmitry Gutov]

branch: master
commit bcfdfd2568463edf489784c1f44cf9b55e4f3892
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    xref--insert-xrefs: Tweak the faces
    
    * lisp/progmodes/xref.el (xref--insert-xrefs): Tweak the faces.
    Always insert a newline at the end (to avoid mouse-face background
    tail at the last line).
---
 lisp/progmodes/xref.el |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 099c080..de9dccf 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -510,21 +510,20 @@ XREF-ALIST is of the form ((GROUP . (XREF ...)) ...).  
Where
 GROUP is a string for decoration purposes and XREF is an
 `xref--xref' object."
   (cl-loop for ((group . xrefs) . more1) on xref-alist do
-           (xref--insert-propertized '(face bold) group "\n")
+           (xref--insert-propertized '(face compilation-info) group "\n")
            (cl-loop for (xref . more2) on xrefs do
                     (insert "  ")
                     (with-slots (description location) xref
                       (xref--insert-propertized
                        (list 'xref-location location
-                             'face 'font-lock-keyword-face
+                             ;; 'face 'font-lock-keyword-face
                              'mouse-face 'highlight
                              'keymap xref--button-map
                              'help-echo
                              (concat "mouse-2: display in another window, "
                                      "RET or mouse-1: follow reference"))
                        description))
-                    (when (or more1 more2)
-                      (insert "\n")))))
+                    (insert "\n"))))
 
 (defun xref--analyze (xrefs)
   "Find common filenames in XREFS.