From 7194141f5e53cd0b360d3ee53c3337823da6ae9f Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 13 Nov 2010 02:31:39 +0100 Subject: geiser-mode-auto-p: automatic geiser-mode is now optional It hadn't occurred to me that anyone wouldn't want non-automatic geiser-mode often enough to require its own customization variable. Rotty proved me wrong. Or maybe not, but he deserves a custom var! --- elisp/geiser.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'elisp/geiser.el') diff --git a/elisp/geiser.el b/elisp/geiser.el index d40b6a8..d293423 100644 --- a/elisp/geiser.el +++ b/elisp/geiser.el @@ -67,6 +67,8 @@ (autoload 'turn-off-geiser-mode "geiser-mode" "Disable Geiser's mode (useful in Scheme buffers)." t) +(autoload 'geiser-mode--maybe-activate "geiser-mode") + (mapc (lambda (group) (custom-add-load group (symbol-name group)) (custom-add-load 'geiser (symbol-name group))) @@ -85,7 +87,7 @@ ;;; Setup: (eval-after-load "scheme" - '(add-hook 'scheme-mode-hook 'turn-on-geiser-mode)) + '(add-hook 'scheme-mode-hook 'geiser-mode--maybe-activate)) (add-to-list 'auto-mode-alist '("\\.rkt\\'" . scheme-mode)) -- cgit v1.2.3