summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
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))