diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-21 00:47:02 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-21 00:47:02 +0100 |
| commit | cf5069a87c22f36a5e8e08f60bb7239742d63832 (patch) | |
| tree | 8e3a79cdb15f1a71db8c43ceba8fb434a80c32a4 | |
| parent | a7b99970792a9b0c4d4ed1187c7da39c99920015 (diff) | |
| download | geiser-chez-cf5069a87c22f36a5e8e08f60bb7239742d63832.tar.gz geiser-chez-cf5069a87c22f36a5e8e08f60bb7239742d63832.tar.bz2 | |
Echo area message while retrieving xrefs.
| -rw-r--r-- | elisp/geiser-xref.el | 4 |
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: |