[nongnu] elpa/geiser-chicken 58ecefe 043/102: Completions didn't work after first symbol in sexp

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 58ecefeac756619ca01cb3edbadd2e628e54d284
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    Completions didn't work after first symbol in sexp
---
 elisp/geiser-chicken.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 88d60cf..0d9c8e7 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -67,7 +67,7 @@
 
 (geiser-custom--defcustom geiser-chicken-prefix-delimiters
     '("^:" "^#")
-    "Regex to match symbol prefix delimiters."
+    "Regex to match symbol prefix delimiters. Consider that it will be placed 
inside []."
   :type '(repeat string)
   :group 'geiser-chicken)
 
@@ -189,16 +189,18 @@ This function uses `geiser-chicken-init-file' if it 
exists."
 (defun geiser-chicken--exit-command () ",q")
 
 (defun geiser-chicken--symbol-begin (module)
-  (let ((distance-to-beginning-of-line (- (point) (line-beginning-position))))
-    (apply
-     'max
-     (append
-      (list (save-excursion (skip-syntax-backward "^'(>" 
distance-to-beginning-of-line)
-                           (point)))
+  (apply
+   'max
+   (cons
+    (if module
+       (max (save-excursion (beginning-of-line) (point))
+            (save-excursion (skip-syntax-backward "^(>") (1- (point))))
+      (save-excursion (skip-syntax-backward "^'-()>") (point)))
+    (let ((distance-to-beginning-of-line (- (point) 
(line-beginning-position))))
       (mapcar
        (lambda (match-string)
-        (save-excursion (skip-chars-backward match-string 
distance-to-beginning-of-line)
-                        (point)))
+        (save-excursion
+          (skip-chars-backward match-string distance-to-beginning-of-line) 
(point)))
        geiser-chicken-prefix-delimiters)))))