From c09f5bbaa836d04a9babdff0943dc596dbc68e38 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 8 May 2009 01:48:52 +0200
Subject: Module completion generalized and implemented for PLT.

---
 elisp/geiser-completion.el | 14 ++++++++------
 elisp/geiser-guile.el      |  6 ++++++
 elisp/geiser-impl.el       | 18 ++++++++++++++----
 elisp/geiser-plt.el        |  3 +++
 4 files changed, 31 insertions(+), 10 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index d2991b2..d27ef0f 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -196,11 +196,13 @@ terminates a current completion."
         (minibuffer-message text)
       (message "%s" text))))
 
-(defsubst geiser-completion--beg-pos (module)
-  (if module
-      (max (save-excursion (beginning-of-line) (point))
-           (save-excursion (skip-syntax-backward "^(>") (1- (point))))
-    (save-excursion (skip-syntax-backward "^-()>") (point))))
+(make-variable-buffer-local
+ (defvar geiser-completion--symbol-begin-function nil))
+
+(defsubst geiser-completion--symbol-begin (module)
+  (or (and geiser-completion--symbol-begin-function
+           (funcall geiser-completion--symbol-begin-function module))
+      (save-excursion (skip-syntax-backward "^-()>") (point))))
 
 (defun geiser-completion--complete-symbol (&optional arg)
   "Complete the symbol at point.
@@ -208,7 +210,7 @@ Perform completion similar to Emacs' complete-symbol.
 With prefix, complete module name."
   (interactive "P")
   (let* ((end (point))
-         (beg (geiser-completion--beg-pos arg))
+         (beg (geiser-completion--symbol-begin arg))
          (prefix (buffer-substring-no-properties beg end))
          (result (geiser-completion--complete prefix arg))
          (completions (car result))
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:
 
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index 75a4ca7..13e5ead 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -28,6 +28,7 @@
 (require 'geiser-eval)
 (require 'geiser-base)
 (require 'geiser-doc)
+(require 'geiser-completion)
 
 
 ;;; Customization:
@@ -130,23 +131,32 @@
   (let ((f (geiser-impl--sym impl "external-help")))
     (and (fboundp f) f)))
 
+(defsubst geiser-impl--symbol-begin (impl)
+  (geiser-impl--sym impl "symbol-begin"))
+
 (defun geiser-impl--install-eval (impl)
-  (setq geiser-eval--get-module-function (geiser-impl--module-function impl))
+  (setq geiser-eval--get-module-function
+        (geiser-impl--module-function impl))
   (setq geiser-eval--geiser-procedure-function
         (geiser-impl--geiser-procedure-function impl))
   (setq geiser-doc--external-help-function
-        (geiser-impl--external-help-function impl)))
+        (geiser-impl--external-help-function impl))
+  (setq geiser-completion--symbol-begin-function
+        (geiser-impl--symbol-begin impl)))
 
 
 ;;; Evaluating Elisp in a given implementation context:
 
 (defun with--geiser-implementation (imp thunk)
   (let ((geiser-impl--implementation imp)
-        (geiser-eval--get-module-function (geiser-impl--module-function imp))
+        (geiser-eval--get-module-function
+         (geiser-impl--module-function imp))
         (geiser-eval--geiser-procedure-function
          (geiser-impl--geiser-procedure-function imp))
         (geiser-doc--external-help-function
-         (geiser-impl--external-help-function imp)))
+         (geiser-impl--external-help-function imp))
+        (geiser-completion--symbol-begin-function
+         (geiser-impl--symbol-begin imp)))
     (funcall thunk)))
 
 (put 'with--geiser-implementation 'lisp-indent-function 1)
diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el
index b93dc1d..1b539f8 100644
--- a/elisp/geiser-plt.el
+++ b/elisp/geiser-plt.el
@@ -101,6 +101,9 @@ This function uses `geiser-plt-init-file' if it exists."
         ((null module) (buffer-file-name))
         (t module)))
 
+(defun geiser-plt-symbol-begin (module)
+  (save-excursion (skip-syntax-backward "^-()>") (point)))
+
 
 ;;; External help
 (defun geiser-plt-external-help (symbol module)
-- 
cgit v1.2.3