From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 1 Feb 2023 17:57:43 +0000 (+0200)
Subject: * (xref-backend-references): report progress while formatting refs
X-Git-Tag: V9.1.4-sweep-0.15.0~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78b8ceb0fcef5f516913d5868c74966fe06b9d44;p=dict.git

* (xref-backend-references): report progress while formatting refs
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 1f283d7..f8acb87 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -4514,17 +4514,20 @@ accordingly."
     (list (xref-make (concat path ":" (number-to-string line)) (xref-make-file-location path line 0)))))
 
 (cl-defmethod xref-backend-references ((_backend (eql sweeprolog)) mfn)
-  (let ((refs (sweeprolog-predicate-references mfn)))
-    (seq-map (lambda (loc)
-               (let* ((by   (nth 0 loc))
-                      (file (nth 1 loc))
-                      (beg  (nth 2 loc))
-                      (buf (find-file-noselect file t)))
-                 (xref-make (format "Call from %s at line %s" by
-                                    (with-current-buffer buf
-                                      (line-number-at-pos beg t)))
-                            (xref-make-buffer-location buf beg))))
-             refs)))
+  (let ((xref-items nil)
+        (refs (sweeprolog-predicate-references mfn)))
+    (dolist-with-progress-reporter (loc refs)
+        "Formatting cross references... "
+      (push (let* ((by   (nth 0 loc))
+                   (file (nth 1 loc))
+                   (beg  (nth 2 loc))
+                   (buf (find-file-noselect file t)))
+              (xref-make (format "Call from %s at line %s" by
+                                 (with-current-buffer buf
+                                   (line-number-at-pos beg t)))
+                         (xref-make-buffer-location buf beg)))
+            xref-items))
+    (reverse xref-items)))
 
 (cl-defmethod xref-backend-apropos ((_backend (eql sweeprolog)) pattern)
   (let ((matches (sweeprolog-predicate-apropos pattern)))