summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-21 00:47:02 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-21 00:47:02 +0100
commitcf5069a87c22f36a5e8e08f60bb7239742d63832 (patch)
tree8e3a79cdb15f1a71db8c43ceba8fb434a80c32a4 /elisp
parenta7b99970792a9b0c4d4ed1187c7da39c99920015 (diff)
downloadgeiser-chez-cf5069a87c22f36a5e8e08f60bb7239742d63832.tar.gz
geiser-chez-cf5069a87c22f36a5e8e08f60bb7239742d63832.tar.bz2
Echo area message while retrieving xrefs.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-xref.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el
index 40f2a5d..3be2a74 100644
--- a/elisp/geiser-xref.el
+++ b/elisp/geiser-xref.el
@@ -97,9 +97,11 @@
(let* ((name (geiser-xref--read-name (format "%s: " (capitalize kind)) ask))
(res (and name (geiser-eval--send/result
`(:eval ((:ge ,proc) (quote (:scm ,name))))))))
+ (message "Retrieving %ss list for '%s'..." rkind name)
(if (or (not res) (not (listp res)))
(message "No %ss found for '%s'" rkind name)
- (geiser-xref--display-xrefs (format "%ss for %s" rkind name) res))))
+ (message "")
+ (geiser-xref--display-xrefs (format "%ss for %s" (capitalize rkind) name) res))))
;;; Buffer and mode: