master b483090 3/6: Indicate progress while searching for references in xref

[Mattias Engdegård]

branch: master
commit b4830907edb7d499f7e81d53e22fe7793a0febcb
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    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.
---
 lisp/progmodes/xref.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 9032946..32fe6b6 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)