diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-07 02:57:38 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-07 02:57:38 +0100 |
| commit | d4a74bed9729a0f737fc4f363199a54da934d8ac (patch) | |
| tree | f4c3fcb49f041e916ea5dcd52ff50a5b8bed5b44 /elisp/geiser-completion.el | |
| parent | bf929cd8408277dab16d7fa1a2bc9fd5ba8559e2 (diff) | |
| download | geiser-guile-d4a74bed9729a0f737fc4f363199a54da934d8ac.tar.gz geiser-guile-d4a74bed9729a0f737fc4f363199a54da934d8ac.tar.bz2 | |
Completion: not completing the empty string
Diffstat (limited to 'elisp/geiser-completion.el')
| -rw-r--r-- | elisp/geiser-completion.el | 4 |
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) |