diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-08 01:48:52 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-08 01:48:52 +0200 |
| commit | c09f5bbaa836d04a9babdff0943dc596dbc68e38 (patch) | |
| tree | e2c9c91fa86534ba9479c03a067164947fb034d1 /elisp/geiser-guile.el | |
| parent | 9127a121c76f5d5606bca9a668bda5509ec3b830 (diff) | |
| download | geiser-chez-c09f5bbaa836d04a9babdff0943dc596dbc68e38.tar.gz geiser-chez-c09f5bbaa836d04a9babdff0943dc596dbc68e38.tar.bz2 | |
Module completion generalized and implemented for PLT.
Diffstat (limited to 'elisp/geiser-guile.el')
| -rw-r--r-- | elisp/geiser-guile.el | 6 |
1 files changed, 6 insertions, 0 deletions
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: |