diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-09 22:00:20 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-09 22:00:20 +0100 |
| commit | cb1c7c38f4dbc5af1e4fed7cb9e01897a2cf458e (patch) | |
| tree | fe4471d961754a0c31a6a105a4b7cd78f0efaf95 | |
| parent | aacdd11a8816430e6bdd2704c52e07466f0cca19 (diff) | |
| download | geiser-guile-cb1c7c38f4dbc5af1e4fed7cb9e01897a2cf458e.tar.gz geiser-guile-cb1c7c38f4dbc5af1e4fed7cb9e01897a2cf458e.tar.bz2 | |
GEISER-SETUP function activating geiser-mode in scheme files.
| -rw-r--r-- | elisp/geiser.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/elisp/geiser.el b/elisp/geiser.el index ab3e7ff..abf41d4 100644 --- a/elisp/geiser.el +++ b/elisp/geiser.el @@ -55,5 +55,15 @@ "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 |