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
commitd4a74bed9729a0f737fc4f363199a54da934d8ac (patch)
treef4c3fcb49f041e916ea5dcd52ff50a5b8bed5b44
parentbf929cd8408277dab16d7fa1a2bc9fd5ba8559e2 (diff)
downloadgeiser-chez-d4a74bed9729a0f737fc4f363199a54da934d8ac.tar.gz
geiser-chez-d4a74bed9729a0f737fc4f363199a54da934d8ac.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)