procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fontify the group and the line number

Browse source 
* lisp/progmodes/xref.el (xref--show-defs-minibuffer):
Fontify the group and the line number.
This commit is contained in:
Dmitry Gutov 2020-12-05 02:52:39 +02:00
parent 2945fe74a9
commit 940bb6e984
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/xref.el
View file

@ -951,8 +951,15 @@ local keymap that binds `RET' to `xref-quit-and-goto-xref'."
(cl-loop for (xref . more2) on xrefs do
(with-slots (summary location) xref
(let* ((line (xref-location-line location))
(line-fmt (if line (format "%s:" line) ""))
(group-fmt (substring group group-prefix-length))
(line-fmt
(if line
(format #("%d:" 0 2 (face xref-line-number))
line)
""))
(group-fmt
(propertize
(substring group group-prefix-length)
'face 'xref-file-header))
(candidate
(if show-summary
(format "%s:%s%s" group-fmt line-fmt summary)