summaryrefslogtreecommitdiff
path: root/elisp/geiser-completion.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-20 22:47:39 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-20 22:47:39 +0200
commit1fb6db3a9a910836f221816c2b12c84495ebb8a1 (patch)
tree0274dbe07710f681f2b31bd8e0562dda8135fc74 /elisp/geiser-completion.el
parenta0784b20c60d4b5d32ec441dc8e56839bfe40f08 (diff)
downloadgeiser-chez-1fb6db3a9a910836f221816c2b12c84495ebb8a1.tar.gz
geiser-chez-1fb6db3a9a910836f221816c2b12c84495ebb8a1.tar.bz2
Providing feedback while retrieving completion lists
Diffstat (limited to 'elisp/geiser-completion.el')
-rw-r--r--elisp/geiser-completion.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 5744e9b..dea4a57 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -218,14 +218,15 @@ we're looking for a module name.")
(funcall geiser-completion--symbol-begin-function module))
(defsubst geiser-completion--prefix (module)
- (buffer-substring-no-properties (point)
- (geiser-completion--symbol-begin module)))
+ (buffer-substring-no-properties (geiser-completion--symbol-begin module)
+ (point)))
(defun geiser-completion--complete-symbol (&optional arg)
"Complete the symbol at point.
Perform completion similar to Emacs' complete-symbol.
With prefix, complete module name."
(interactive "P")
+ (geiser--respecting-message "Retrieving completions...")
(let* ((prefix (geiser-completion--prefix arg))
(result (geiser-completion--complete prefix arg))
(completions (car result))