From bcfdfd2568463edf489784c1f44cf9b55e4f3892 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 4 May 2015 00:39:06 +0300 Subject: [PATCH] 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 file changed, 3 insertions(+), 4 deletions(-) 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. -- 2.39.2