diff options
| author | Dmitry Gutov | 2015-05-02 01:03:56 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2015-05-02 01:04:26 +0300 |
| commit | c50499edab4109addfd466a7a98344fd6d56e438 (patch) | |
| tree | c31c4c07a8aebd38a17570e7833a0f108a9c6ab0 | |
| parent | a58c6cb5288ed9357cc54d4bb1f95f1fcd286eb6 (diff) | |
| download | emacs-c50499edab4109addfd466a7a98344fd6d56e438.tar.gz emacs-c50499edab4109addfd466a7a98344fd6d56e438.zip | |
; * xref.el (xref-collect-references): Simplify.
| -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." | |||
| 689 | (semantic-symref-tool 'detect) | 689 | (semantic-symref-tool 'detect) |
| 690 | (res (semantic-symref-find-references-by-name name 'subdirs)) | 690 | (res (semantic-symref-find-references-by-name name 'subdirs)) |
| 691 | (hits (and res (oref res :hit-lines))) | 691 | (hits (and res (oref res :hit-lines))) |
| 692 | (orig-buffers (buffer-list)) | 692 | (orig-buffers (buffer-list))) |
| 693 | xrefs) | ||
| 694 | (unwind-protect | 693 | (unwind-protect |
| 695 | (setq xrefs | 694 | (delq nil |
| 696 | (mapcar (lambda (hit) (xref--collect-reference hit name)) | 695 | (mapcar (lambda (hit) (xref--collect-reference hit name)) hits)) |
| 697 | hits)) | ||
| 698 | (mapc #'kill-buffer | 696 | (mapc #'kill-buffer |
| 699 | (cl-set-difference (buffer-list) orig-buffers))) | 697 | (cl-set-difference (buffer-list) orig-buffers))))) |
| 700 | (delq nil xrefs))) | ||
| 701 | 698 | ||
| 702 | (defun xref--collect-reference (hit name) | 699 | (defun xref--collect-reference (hit name) |
| 703 | (pcase-let* ((`(,line . ,file) hit) | 700 | (pcase-let* ((`(,line . ,file) hit) |