diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-05 22:53:47 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-05 22:53:47 +0100 |
| commit | 267fde61250a698c1abc8201ca2445a6f462d03a (patch) | |
| tree | fe5626493669bb48a2ccee4765dde04f51c2baee /elisp/geiser.el | |
| parent | 8c65dfa97c3c858b967e98c152285b306087cc4e (diff) | |
| download | geiser-267fde61250a698c1abc8201ca2445a6f462d03a.tar.gz geiser-267fde61250a698c1abc8201ca2445a6f462d03a.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.el | 8 |
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)) |