summaryrefslogtreecommitdiff
path: root/elisp/geiser.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-05 22:53:47 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-05 22:53:47 +0100
commit9e91cef8b3d10e7eab88cc16d425fefc36c7321d (patch)
treebe7011aff12aa30b0c2521771b0642b7692f454c /elisp/geiser.el
parentefe21b1337f02095cf40791f8b0c237ae56c39a0 (diff)
downloadgeiser-guile-9e91cef8b3d10e7eab88cc16d425fefc36c7321d.tar.gz
geiser-guile-9e91cef8b3d10e7eab88cc16d425fefc36c7321d.tar.bz2
turn-on/off-geiser-mode commands added and used in scheme-mode-hook.
Diffstat (limited to 'elisp/geiser.el')
-rw-r--r--elisp/geiser.el8
1 files changed, 7 insertions, 1 deletions
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))