From: Mattias Engdegård <mattiase@acm.org>
Date: Sat, 21 Aug 2021 09:34:32 +0000 (+0200)
Subject: Indicate progress while searching for references in xref
X-Git-Tag: emacs-28.0.90~1392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b4830907edb7d499f7e81d53e22fe7793a0febcb;p=emacs.git

Indicate progress while searching for references in xref

* lisp/progmodes/xref.el (xref-backend-references): Add messages to
show the user that something is happening instead of silently freezing
during the frequently long synchronous searches for references.
---

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 90329464f2b..32fe6b612b3 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -290,7 +290,11 @@ find a search tool; by default, this uses \"find | grep\" in the
 current project's main and external roots."
   (mapcan
    (lambda (dir)
-     (xref-references-in-directory identifier dir))
+     (message "Searching %s..." dir)
+     (redisplay)
+     (prog1
+         (xref-references-in-directory identifier dir)
+       (message "Searching %s... done" dir)))
    (let ((pr (project-current t)))
      (cons
       (xref--project-root pr)