diff options
| -rw-r--r-- | lisp/progmodes/xref.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index e304a7beae2..a78fed282cf 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el | |||
| @@ -951,8 +951,15 @@ local keymap that binds `RET' to `xref-quit-and-goto-xref'." | |||
| 951 | (cl-loop for (xref . more2) on xrefs do | 951 | (cl-loop for (xref . more2) on xrefs do |
| 952 | (with-slots (summary location) xref | 952 | (with-slots (summary location) xref |
| 953 | (let* ((line (xref-location-line location)) | 953 | (let* ((line (xref-location-line location)) |
| 954 | (line-fmt (if line (format "%s:" line) "")) | 954 | (line-fmt |
| 955 | (group-fmt (substring group group-prefix-length)) | 955 | (if line |
| 956 | (format #("%d:" 0 2 (face xref-line-number)) | ||
| 957 | line) | ||
| 958 | "")) | ||
| 959 | (group-fmt | ||
| 960 | (propertize | ||
| 961 | (substring group group-prefix-length) | ||
| 962 | 'face 'xref-file-header)) | ||
| 956 | (candidate | 963 | (candidate |
| 957 | (if show-summary | 964 | (if show-summary |
| 958 | (format "%s:%s%s" group-fmt line-fmt summary) | 965 | (format "%s:%s%s" group-fmt line-fmt summary) |