summaryrefslogtreecommitdiff
path: root/elisp/geiser-completion.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-01 01:13:33 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-01 01:13:33 +0100
commite9a5923201d09f13b522ccc769bcafbdd11e15c2 (patch)
tree91c3ff300d65923750eb137c94bfce2acfc7f4e3 /elisp/geiser-completion.el
parent1376e6ca4919396ff94c78374d816f86556f395e (diff)
downloadgeiser-guile-e9a5923201d09f13b522ccc769bcafbdd11e15c2.tar.gz
geiser-guile-e9a5923201d09f13b522ccc769bcafbdd11e15c2.tar.bz2
Completion for symbols without enclosing sexp in scheme buffers.
Diffstat (limited to 'elisp/geiser-completion.el')
-rw-r--r--elisp/geiser-completion.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 3605ed5..c5db8b6 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -197,8 +197,8 @@ terminates a current completion."
(defsubst geiser-completion--beg-pos (module)
(if module
(max (save-excursion (beginning-of-line) (point))
- (save-excursion (skip-syntax-backward "^(") (1- (point))))
- (save-excursion (skip-syntax-backward "^-()") (point))))
+ (save-excursion (skip-syntax-backward "^(>") (1- (point))))
+ (save-excursion (skip-syntax-backward "^-()>") (point))))
(defun geiser-completion--complete-symbol (&optional arg)
"Complete the symbol at point.