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 | f4d25d65263c174b2ab54db521d5adf4cf79d8fb (patch) | |
| tree | ccb65c1b2e04cadf8c18896f6ef83ec6bee7a364 /elisp/geiser-completion.el | |
| parent | 0663d1ba075b1efda73de80b8b0d1e3b05f99868 (diff) | |
| download | geiser-f4d25d65263c174b2ab54db521d5adf4cf79d8fb.tar.gz geiser-f4d25d65263c174b2ab54db521d5adf4cf79d8fb.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) |