From 8fcac83a71b845c16aa23a382c4cb28fbbcfa61d Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 12 Jun 2010 00:03:28 +0200
Subject: New buttons (source, forward/backward) in document browser.

---
 elisp/geiser-syntax.el | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

(limited to 'elisp/geiser-syntax.el')

diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index e0d9634..040e122 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -205,23 +205,25 @@
 (defsubst geiser-syntax--pair-length (p)
   (if (cdr (last p)) (1+ (safe-length p)) (length p)))
 
-(defun geiser-syntax--scan-sexps ()
+(defun geiser-syntax--scan-sexps (&optional begin)
   (let ((path))
     (save-excursion
-      (geiser-syntax--skip-comment/string)
-      (while (not (zerop (geiser-syntax--nesting-level)))
-        (let ((boundary (1+ (point))))
-          (backward-up-list)
-          (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)))
-                     (prev (and (keywordp prev) (list prev))))
-                (push `(,(car form) ,len-1 ,@prev) path)))))))
-    (if path (nreverse path)
-      (let ((fst (symbol-at-point)))
-        (and fst `((,fst 0)))))))
+      (save-restriction
+        (narrow-to-region (or begin (point-min)) (1+ (point)))
+        (geiser-syntax--skip-comment/string)
+        (while (not (zerop (geiser-syntax--nesting-level)))
+          (let ((boundary (1+ (point))))
+            (backward-up-list)
+            (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)))
+                       (prev (and (keywordp prev) (list prev))))
+                  (push `(,(car form) ,len-1 ,@prev) path))))))
+        (if path (nreverse path)
+          (let ((fst (symbol-at-point)))
+            (and fst `((,fst 0)))))))))
 
 (defsubst geiser-syntax--binding-form-p (bfs sbfs f)
   (or (memq f '(define define* lambda let let* letrec))
-- 
cgit v1.2.3