summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-07 02:57:38 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-07 02:57:38 +0100
commitf4d25d65263c174b2ab54db521d5adf4cf79d8fb (patch)
treeccb65c1b2e04cadf8c18896f6ef83ec6bee7a364
parent0663d1ba075b1efda73de80b8b0d1e3b05f99868 (diff)
downloadgeiser-f4d25d65263c174b2ab54db521d5adf4cf79d8fb.tar.gz
geiser-f4d25d65263c174b2ab54db521d5adf4cf79d8fb.tar.bz2
Completion: not completing the empty string
-rw-r--r--elisp/geiser-completion.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 46413cf..f88fae6 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -228,9 +228,11 @@ we're looking for a module name.")
Perform completion similar to Emacs' complete-symbol.
With prefix, complete module name."
(interactive "P")
+ (unless (geiser-syntax--symbol-at-point)
+ (error "No symbol at point"))
(geiser--respecting-message "Retrieving completions...")
(let* ((prefix (geiser-completion--prefix arg))
- (result (geiser-completion--complete prefix arg))
+ (result (and prefix (geiser-completion--complete prefix arg)))
(completions (car result))
(partial (cdr result)))
(cond ((null completions)