masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-18 01:46:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/xref.el: Show the number of matches on mode-line (bug#66332)

Browse source 
(xref-num-matches-found, xref-num-matches-face, xref-mode-line-matches):
New variables.
(xref--show-xref-buffer): Set xref-num-matches-found to the length of xrefs,
and buffer-local mode-line-process to xref-mode-line-matches.
This commit is contained in:
Juri Linkov 2023-10-09 21:03:03 +03:00
parent fc1f6688a2
commit 2cdf80bb8f
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/xref.el
View file

@ -638,6 +638,18 @@ If SELECT is non-nil, select the target window."
"Face used to highlight matches in the xref buffer."
:version "28.1")
(defvar-local xref-num-matches-found 0)
(defvar xref-num-matches-face 'compilation-info
"Face name to show the number of matches on the mode line.")
(defconst xref-mode-line-matches
`(" [" (:propertize (:eval (int-to-string xref-num-matches-found))
face ,xref-num-matches-face
help-echo "Number of matches so far")
"]"))
(put 'xref-mode-line-matches 'risky-local-variable t)
(defmacro xref--with-dedicated-window (&rest body)
`(let* ((xref-w (get-buffer-window xref-buffer-name))
(xref-w-dedicated (window-dedicated-p xref-w)))
@ -1235,6 +1247,8 @@ Return an alist of the form ((GROUP . (XREF ...)) ...)."
(xref--ensure-default-directory dd (current-buffer))
(xref--xref-buffer-mode)
(xref--show-common-initialize xref-alist fetcher alist)
(setq xref-num-matches-found (length xrefs))
(setq mode-line-process (list xref-mode-line-matches))
(pop-to-buffer (current-buffer))
(setq buf (current-buffer)))
(xref--auto-jump-first buf (assoc-default 'auto-jump alist))