[nongnu] elpa/geiser-guile 4eeb068 071/284: Module completion generalized and implemented for PLT.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 4eeb06824b74d3392b699935ef5ea7d9d2c95560
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Module completion generalized and implemented for PLT.
---
 elisp/geiser-guile.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index a34f401..bfdca31 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -112,6 +112,12 @@ If MODULE is provided, transform it to such a datum."
         ((stringp module) (or (ignore-errors (car (read-from-string module))) 
:f))
         (t :f)))
 
+(defun geiser-guile-symbol-begin (module)
+  (if module
+      (max (save-excursion (beginning-of-line) (point))
+           (save-excursion (skip-syntax-backward "^(>") (1- (point))))
+    (save-excursion (skip-syntax-backward "^-()>") (point))))
+
 
 ;;; Trying to ascertain whether a buffer is Guile Scheme: