[nongnu] elpa/geiser-gauche 762cd22 035/119: Add guessing functions

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit 762cd2269b556c6546c242ea5b70c0e4630219d3
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    Add guessing functions
---
 geiser-gauche.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index c4970d1..6f12cc0 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -248,6 +248,19 @@
   (when geiser-gauche-manual-lookup-other-window-p
     (switch-to-buffer-other-window "*info*"))
   (search-forward (format "%s" id) nil t))
+
+
+;;; Guess whether buffer is Gauche
+;;; adapted from geiser-chicken
+
+(defconst geiser-gauche--guess-re
+  (regexp-opt '("gauche" "gosh")))
+
+(defun geiser-gauche--guess ()
+  (save-excursion
+    (goto-char (point-min))
+    (re-search-forward geiser-gauche--guess-re nil t)))
+
 
 ;;; Implementation definition:
 
@@ -271,7 +284,7 @@
   (binding-forms geiser-gauche--binding-forms)
   (binding-forms* geiser-gauche--binding-forms*)
   (external-help geiser-gauche--manual-look-up)
-  ;; (check-buffer geiser-gauche--guess)
+  (check-buffer geiser-gauche--guess)
   (keywords geiser-gauche--keywords)
   (case-sensitive geiser-gauche-case-sensitive-p))