aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/xref.el7
1 files 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
510GROUP is a string for decoration purposes and XREF is an 510GROUP is a string for decoration purposes and XREF is an
511`xref--xref' object." 511`xref--xref' object."
512 (cl-loop for ((group . xrefs) . more1) on xref-alist do 512 (cl-loop for ((group . xrefs) . more1) on xref-alist do
513 (xref--insert-propertized '(face bold) group "\n") 513 (xref--insert-propertized '(face compilation-info) group "\n")
514 (cl-loop for (xref . more2) on xrefs do 514 (cl-loop for (xref . more2) on xrefs do
515 (insert " ") 515 (insert " ")
516 (with-slots (description location) xref 516 (with-slots (description location) xref
517 (xref--insert-propertized 517 (xref--insert-propertized
518 (list 'xref-location location 518 (list 'xref-location location
519 'face 'font-lock-keyword-face 519 ;; 'face 'font-lock-keyword-face
520 'mouse-face 'highlight 520 'mouse-face 'highlight
521 'keymap xref--button-map 521 'keymap xref--button-map
522 'help-echo 522 'help-echo
523 (concat "mouse-2: display in another window, " 523 (concat "mouse-2: display in another window, "
524 "RET or mouse-1: follow reference")) 524 "RET or mouse-1: follow reference"))
525 description)) 525 description))
526 (when (or more1 more2) 526 (insert "\n"))))
527 (insert "\n")))))
528 527
529(defun xref--analyze (xrefs) 528(defun xref--analyze (xrefs)
530 "Find common filenames in XREFS. 529 "Find common filenames in XREFS.