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-mode.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'elisp/geiser-mode.el') diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index 719176d..8f8b7fe 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -34,6 +34,12 @@ "Mode enabling Geiser abilities in Scheme buffers &co.." :group 'geiser) +(geiser-custom--defcustom geiser-mode-auto-p t + "Whether `geiser-mode' should be active by default in all +scheme buffers." + :group 'geiser-mode + :type 'boolean) + (geiser-custom--defcustom geiser-mode-autodoc-p t "Whether `geiser-autodoc-mode' gets enabled by default in Scheme buffers." :group 'geiser-mode @@ -250,6 +256,9 @@ interacting with the Geiser REPL is at your disposal. (interactive) (geiser-mode -1)) +(defun geiser-mode--maybe-activate () + (when geiser-mode-auto-p (turn-on-geiser-mode))) + ;;; Keys: -- cgit v1.2.3