summaryrefslogtreecommitdiff
path: root/elisp/geiser-completion.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-22 04:22:45 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-22 04:22:45 +0100
commita53249b83cdc0711f23b1b8860cd3582977230c6 (patch)
treef4c2e932268ad6ac3ed45b94d0b01c8a01686e08 /elisp/geiser-completion.el
parent39042ae7410842439430133d42207cc0b45b154d (diff)
downloadgeiser-guile-a53249b83cdc0711f23b1b8860cd3582977230c6.tar.gz
geiser-guile-a53249b83cdc0711f23b1b8860cd3582977230c6.tar.bz2
Fix for geiser-smart-tab-mode
Diffstat (limited to 'elisp/geiser-completion.el')
-rw-r--r--elisp/geiser-completion.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 37d2dc6..bf0f036 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -269,8 +269,9 @@ With prefix, complete module name."
"Indent if at beginning of line or after a white space or
closing parenthesis, try completion otherwise."
(interactive)
- (let ((indent (or (bolp) (memq (syntax-class (syntax-after (1- (point))))
- '(0 5)))))
+ (let ((indent (or (bolp)
+ (not (memq (syntax-class (syntax-after (1- (point))))
+ '(2 3))))))
(if indent (indent-according-to-mode)
(geiser-completion--complete-symbol))))