diff options
| -rw-r--r-- | 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 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 | |||
| 510 | GROUP is a string for decoration purposes and XREF is an | 510 | GROUP 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. |