summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-31 03:11:32 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-31 03:11:32 +0200
commitab7effca73f21c9e5c2f8d94c132b046978bf6ca (patch)
treee1b75984a7136ad63921ef9de2b49e18704caecd
parentec3d0d43201f101f738b92eb1827c69641a76dde (diff)
downloadgeiser-chez-ab7effca73f21c9e5c2f8d94c132b046978bf6ca.tar.gz
geiser-chez-ab7effca73f21c9e5c2f8d94c132b046978bf6ca.tar.bz2
Autodoc: fix for current argument hihglighting.
-rw-r--r--elisp/geiser-syntax.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 3e8d590..ea702a4 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -227,10 +227,11 @@
(let ((form
(nth-value 0 (geiser-syntax--form-after-point boundary))))
(when (and (listp form) (car form) (symbolp (car form)))
- (let* ((len-1 (1- (geiser-syntax--pair-length form)))
- (prev (and (> len-1 1) (nth (1- len-1) form)))
+ (let* ((len (geiser-syntax--pair-length form))
+ (pos (if path (1- len) len))
+ (prev (and (> pos 1) (nth (1- pos) form)))
(prev (and (keywordp prev) (list prev))))
- (push `(,(car form) ,len-1 ,@prev) path)))))))
+ (push `(,(car form) ,pos ,@prev) path)))))))
(nreverse path)))
(defsubst geiser-syntax--binding-form-p (bfs sbfs f)