branch: elpa/geiser-guile
commit 4eeb06824b74d3392b699935ef5ea7d9d2c95560
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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:
