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

Always show the summary

Browse source 
* lisp/progmodes/xref.el (xref--show-defs-minibuffer):
Always show the summary (at least for now).
This commit is contained in:
Dmitry Gutov 2020-12-05 02:57:46 +02:00
parent 940bb6e984
commit c86dc8d488
1 changed files with 15 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/progmodes/xref.el
View file

@ -947,24 +947,21 @@ local keymap that binds `RET' to `xref-quit-and-goto-xref'."
(cl-loop for ((group . xrefs) . more1) on xref-alist
do
(let ((show-summary (> (length xrefs) 1)))
(cl-loop for (xref . more2) on xrefs do
(with-slots (summary location) xref
(let* ((line (xref-location-line location))
(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)
(format "%s" group-fmt))))
(push (cons candidate xref) xref-alist-with-line-info))))))
(cl-loop for (xref . more2) on xrefs do
(with-slots (summary location) xref
(let* ((line (xref-location-line location))
(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
(format "%s:%s%s" group-fmt line-fmt summary)))
(push (cons candidate xref) xref-alist-with-line-info)))))
(setq xref (if (not (cdr xrefs))
(car xrefs)