[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c86dc8d 4/4: Always show the summary
|
From: |
Dmitry Gutov |
|
Subject: |
master c86dc8d 4/4: Always show the summary |
|
Date: |
Fri, 4 Dec 2020 20:02:09 -0500 (EST) |
branch: master
commit c86dc8d4888bc0c5d56016c14c134123ec623072
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
Always show the summary
* lisp/progmodes/xref.el (xref--show-defs-minibuffer):
Always show the summary (at least for now).
---
lisp/progmodes/xref.el | 33 +++++++++++++++------------------
1 file changed, 15 insertions(+), 18 deletions(-)
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index a78fed2..9f5fc57 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -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)