summaryrefslogtreecommitdiff
path: root/elisp
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
commit2630113b0a72686496aa01e7443e4645518fa00c (patch)
treea29f534a52918ff669d07dcf62dd2249a29330a5 /elisp
parent05ed9a6c1e422761692ca77be3c703f941dc5d5a (diff)
downloadgeiser-2630113b0a72686496aa01e7443e4645518fa00c.tar.gz
geiser-2630113b0a72686496aa01e7443e4645518fa00c.tar.bz2
Providing feedback while retrieving completion lists
Diffstat (limited to 'elisp')
-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))