From cb1c7c38f4dbc5af1e4fed7cb9e01897a2cf458e Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 9 Feb 2009 22:00:20 +0100
Subject: GEISER-SETUP function activating geiser-mode in scheme files.

---
 elisp/geiser.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'elisp')

diff --git a/elisp/geiser.el b/elisp/geiser.el
index ab3e7ff..abf41d4 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -54,6 +54,16 @@
 (autoload 'geiser-mode "geiser-mode.el"
   "Minor mode adding Geiser REPL interaction to Scheme buffers." t)
 
+
+;;; Scheme mode setup:
+
+(defun geiser-setup-scheme-mode ()
+  (eval-after-load "scheme"
+    '(add-hook 'scheme-mode-hook (lambda () (interactive) (geiser-mode 1)))))
+
+(defun geiser-setup ()
+  (geiser-setup-scheme-mode))
+
 
 (provide 'geiser)
 ;;; geiser.el ends here
-- 
cgit v1.2.3