summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-31 03:52:08 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-31 03:52:08 +0200
commit47361c31fe721073b3e3a9c16eaa10ef39c805de (patch)
treeb73f4c82d8d4862d565a96e65a4f1f405f600fdf /elisp/geiser-syntax.el
parentab7effca73f21c9e5c2f8d94c132b046978bf6ca (diff)
downloadgeiser-chez-47361c31fe721073b3e3a9c16eaa10ef39c805de.tar.gz
geiser-chez-47361c31fe721073b3e3a9c16eaa10ef39c805de.tar.bz2
Fix for the fix.
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index ea702a4..23f0ed3 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -218,6 +218,7 @@
(defun geiser-syntax--scan-sexps (&optional begin)
(let* ((fst (symbol-at-point))
+ (smth (or fst (not (looking-at-p "[\\s \\s)\\s>\\s<\n]"))))
(path (and fst `((,fst 0)))))
(save-excursion
(geiser-syntax--skip-comment/string)
@@ -228,7 +229,7 @@
(nth-value 0 (geiser-syntax--form-after-point boundary))))
(when (and (listp form) (car form) (symbolp (car form)))
(let* ((len (geiser-syntax--pair-length form))
- (pos (if path (1- len) len))
+ (pos (if smth (1- len) (progn (setq smth t) len)))
(prev (and (> pos 1) (nth (1- pos) form)))
(prev (and (keywordp prev) (list prev))))
(push `(,(car form) ,pos ,@prev) path)))))))