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

; * xref.el (xref-collect-references): Simplify.

Browse source
This commit is contained in:
Dmitry Gutov 2015-05-02 01:03:56 +03:00
parent a58c6cb528
commit c50499edab
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/xref.el
View file

@ -689,15 +689,12 @@ tools are used, and when."
(semantic-symref-tool 'detect)
(res (semantic-symref-find-references-by-name name 'subdirs))
(hits (and res (oref res :hit-lines)))
(orig-buffers (buffer-list))
xrefs)
(orig-buffers (buffer-list)))
(unwind-protect
(setq xrefs
(mapcar (lambda (hit) (xref--collect-reference hit name))
hits))
(delq nil
(mapcar (lambda (hit) (xref--collect-reference hit name)) hits))
(mapc #'kill-buffer
(cl-set-difference (buffer-list) orig-buffers)))
(delq nil xrefs)))
(cl-set-difference (buffer-list) orig-buffers)))))
(defun xref--collect-reference (hit name)
(pcase-let* ((`(,line . ,file) hit)