[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c50499e: ; * xref.el (xref-collect-references): Sim
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] master c50499e: ; * xref.el (xref-collect-references): Simplify. |
Date: |
Fri, 01 May 2015 22:04:32 +0000 |
branch: master
commit c50499edab4109addfd466a7a98344fd6d56e438
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
; * xref.el (xref-collect-references): Simplify.
---
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 ea705fc..099c080 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c50499e: ; * xref.el (xref-collect-references): Simplify.,
Dmitry Gutov <=