From b4830907edb7d499f7e81d53e22fe7793a0febcb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sat, 21 Aug 2021 11:34:32 +0200 Subject: [PATCH] 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 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) -- 2.39.5