diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-02 01:03:56 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-02 01:04:26 +0300 |
| commit | c50499edab4109addfd466a7a98344fd6d56e438 (patch) | |
| tree | c31c4c07a8aebd38a17570e7833a0f108a9c6ab0 /lisp | |
| parent | a58c6cb5288ed9357cc54d4bb1f95f1fcd286eb6 (diff) | |
| download | emacs-c50499edab4109addfd466a7a98344fd6d56e438.tar.gz emacs-c50499edab4109addfd466a7a98344fd6d56e438.tar.bz2 emacs-c50499edab4109addfd466a7a98344fd6d56e438.zip | |
; * xref.el (xref-collect-references): Simplify.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/xref.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index ea705fc852b..099c08045b2 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -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) |