From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 3 May 2015 21:39:06 +0000 (+0300)
Subject: xref--insert-xrefs: Tweak the faces
X-Git-Tag: emacs-25.0.90~2225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcfdfd2568463edf489784c1f44cf9b55e4f3892;p=emacs.git

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).
---

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 099c08045b2..de9dccf3a59 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.