From 1fb6db3a9a910836f221816c2b12c84495ebb8a1 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 20 Aug 2010 22:47:39 +0200 Subject: Providing feedback while retrieving completion lists --- elisp/geiser-completion.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-completion.el') 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)) -- cgit v1.2.3