[nongnu] elpa/geiser-mit 1caea83 26/29: Simple-minded implementation guessing function

[Philip Kaludercic]

branch: elpa/geiser-mit
commit 1caea838ddbbf3d8e0c6f39656f8ff3b445e371a
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    Simple-minded implementation guessing function
---
 geiser-mit.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/geiser-mit.el b/geiser-mit.el
index c561160..2d04d2d 100644
--- a/geiser-mit.el
+++ b/geiser-mit.el
@@ -163,6 +163,14 @@ This function uses `geiser-mit-init-file' if it exists."
        (format "(geiser:set-mit-scheme-source-directory %S)"
                geiser-mit-source-directory)))))
 
+;;; Recognising MIT buffers
+(defun geiser-mit--guess ()
+  "Try to determine whether we're in a MIT scheme buffer."
+  (save-excursion
+    (goto-char (point-min))
+    (re-search-forward "^ *(declare (usual-integrations))" nil t)))
+
+
 ;;; Implementation definition:
 
 (define-geiser-implementation mit
@@ -182,7 +190,7 @@ This function uses `geiser-mit-init-file' if it exists."
   (find-symbol-begin geiser-mit--symbol-begin)
   ;; (display-error geiser-mit--display-error)
   ;; (external-help geiser-mit--manual-look-up)
-  ;; (check-buffer geiser-mit--guess)
+  (check-buffer geiser-mit--guess)
   ;; (keywords geiser-mit--keywords)
   ;; (case-sensitive geiser-mit-case-sensitive-p)
   )