emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]