diff options
| -rw-r--r-- | elisp/geiser-completion.el | 5 |
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)) |