From 267fde61250a698c1abc8201ca2445a6f462d03a Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 5 Mar 2009 22:53:47 +0100
Subject: turn-on/off-geiser-mode commands added and used in scheme-mode-hook.

---
 elisp/geiser-autodoc.el |  2 +-
 elisp/geiser-mode.el    | 10 ++++++++++
 elisp/geiser.el         |  8 +++++++-
 3 files changed, 18 insertions(+), 2 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index da635cb..6565d88 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -54,7 +54,7 @@
   'font-lock-keyword-face
   geiser-autodoc "highlighting #:key marker in autodoc messages")
 
-(defcustom geiser-autodoc-delay 0.2
+(defcustom geiser-autodoc-delay 0.3
   "Delay before autodoc messages are fetched and displayed, in seconds."
   :type 'number
   :group 'geiser-autodoc)
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 855f071..f85b530 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -158,6 +158,16 @@ interacting with the Geiser REPL is at your disposal.
   (when geiser-mode-autodoc-p (geiser-autodoc-mode geiser-mode))
   (when geiser-mode-smart-tab-p (geiser-smart-tab-mode geiser-mode)))
 
+(defun turn-on-geiser-mode ()
+  "Enable `geiser-mode' (in a Scheme buffer)."
+  (interactive)
+  (geiser-mode 1))
+
+(defun turn-off-geiser-mode ()
+  "Disable `geiser-mode' (in a Scheme buffer)."
+  (interactive)
+  (geiser-mode -1))
+
 
 ;;; Keys:
 
diff --git a/elisp/geiser.el b/elisp/geiser.el
index ea41779..8a62ea5 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -57,6 +57,12 @@
 (autoload 'geiser-mode "geiser-mode.el"
   "Minor mode adding Geiser REPL interaction to Scheme buffers." t)
 
+(autoload 'turn-on-geiser-mode "geiser-mode.el"
+  "Enable Geiser's mode (useful in Scheme buffers)." t)
+
+(autoload 'turn-off-geiser-mode "geiser-mode.el"
+  "Disable Geiser's mode (useful in Scheme buffers)." t)
+
 (mapc (lambda (group)
         (custom-add-load group (symbol-name group))
         (custom-add-load 'geiser (symbol-name group)))
@@ -67,7 +73,7 @@
 
 (defun geiser-setup-scheme-mode ()
   (eval-after-load "scheme"
-    '(add-hook 'scheme-mode-hook (lambda () (interactive) (geiser-mode 1)))))
+    '(add-hook 'scheme-mode-hook 'turn-on-geiser-mode)))
 
 (defun geiser-setup ()
   (geiser-setup-scheme-mode))
-- 
cgit v1.2.3