From ccfd1fbab2f246d60b9efb804516db5ab88be6ab Mon Sep 17 00:00:00 2001
From: Dan Leslie <dan@ironoxide.ca>
Date: Sun, 27 Sep 2015 09:19:22 -0700
Subject: Limits search to the line beginning

- Also adds page breaks to geiser-chicken.el
---
 elisp/geiser-chicken.el | 33 +++++++++++++++++++++------------
 1 file changed, 21 insertions(+), 12 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index c086b17..973c4e7 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -26,7 +26,6 @@
 
 (eval-when-compile (require 'cl))
 
-
 (defconst geiser-chicken-builtin-keywords
   '("and-let*" "assume" "compiler-typecase" "cond-expand" "condition-case"
     "cut" "cute" "declare" "define-constant" "define-inline" "define-interface"
@@ -40,6 +39,7 @@
     "unless" "use" "when" "with-input-from-pipe" "match" "match-lambda"
     "match-lambda*" "match-let" "match-let*" "receive"))
 
+
 ;;; Customization:
 
 (defgroup geiser-chicken nil
@@ -96,7 +96,7 @@ this variable to t."
   :type 'boolean
   :group 'geiser-chicken)
 
-
+
 ;;; REPL support:
 
 (defun geiser-chicken--binary ()
@@ -118,6 +118,7 @@ This function uses `geiser-chicken-init-file' if it exists."
 
 (defconst geiser-chicken--prompt-regexp "#[^;]*;[^:0-9]*:?[0-9]+> ")
 
+
 ;;; Evaluation support:
 
 (defun geiser-chicken--geiser-procedure (proc &rest args)
@@ -171,16 +172,20 @@ This function uses `geiser-chicken-init-file' if it exists."
 (defun geiser-chicken--exit-command () ",q")
 
 (defun geiser-chicken--symbol-begin (module)
-  (apply
-   'max
-   (append
-    (list (save-excursion (beginning-of-line) (point))
-	  (save-excursion (skip-syntax-backward "^-()>") (point)))
-    (mapcar
-     (lambda (match-string)
-       (save-excursion (skip-chars-backward match-string) (point)))
-     geiser-chicken-prefix-delimiters))))
-
+  (let ((distance-to-beginning-of-line (- (point) (line-beginning-position))))
+    (apply
+     'max
+     (append
+      (list (save-excursion (beginning-of-line) (point))
+	    (save-excursion (skip-syntax-backward "^-()>" distance-to-beginning-of-line)
+			    (point)))
+      (mapcar
+       (lambda (match-string)
+	 (save-excursion (skip-chars-backward match-string distance-to-beginning-of-line)
+			 (point)))
+       geiser-chicken-prefix-delimiters)))))
+
+
 ;;; Error display
 
 (defun geiser-chicken--display-error (module key msg)
@@ -190,6 +195,7 @@ This function uses `geiser-chicken-init-file' if it exists."
     (geiser-edit--buttonize-files))
   (and (not key) msg (not (zerop (length msg)))))
 
+
 ;;; Trying to ascertain whether a buffer is Chicken Scheme:
 
 (defconst geiser-chicken--guess-re
@@ -204,6 +210,7 @@ This function uses `geiser-chicken-init-file' if it exists."
   "Loads chicken doc into a buffer"
   (browse-url (format "http://api.call-cc.org/cdoc?q=%s&query-name=Look+up" id)))
 
+
 ;;; Keywords and syntax
 
 (defun geiser-chicken--keywords ()
@@ -264,6 +271,7 @@ This function uses `geiser-chicken-init-file' if it exists."
  (define-interface 1)
  (module 2))
 
+
 ;;; REPL startup
 
 (defconst geiser-chicken-minimum-version "4.8.0.0")
@@ -303,6 +311,7 @@ This function uses `geiser-chicken-init-file' if it exists."
   (compilation-setup t)
   (geiser-chicken--compile-or-load (not geiser-chicken-compile-geiser-p)))
 
+
 ;;; Implementation definition:
 
 (define-geiser-implementation chicken
-- 
cgit v1.2.3