From 76bcf01bfa5e9b0e9ebf05ed8179f4808c2c2a48 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 25 Feb 2009 21:46:08 +0100 Subject: Variable controlling geiser-autodoc-mode in REPL (on by default). --- elisp/geiser-repl.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 3e02f18..b4a7f9e 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -25,6 +25,7 @@ ;;; Code: +(require 'geiser-autodoc) (require 'geiser-compile) (require 'geiser-edit) (require 'geiser-eval) @@ -66,6 +67,11 @@ REPL buffer." :type 'boolean :group 'geiser-repl) +(defcustom geiser-repl-autodoc-p t + "Whether to enable `geiser-autodoc-mode' in the REPL by default." + :type 'boolean + :group 'geiser-repl) + ;;; Geiser REPL buffer/process: @@ -150,7 +156,8 @@ REPL buffer." (set (make-local-variable 'mode-line-process) nil) (set (make-local-variable 'comint-prompt-regexp) geiser-repl--prompt-regex) (set (make-local-variable 'comint-use-prompt-regexp) t) - (set (make-local-variable 'comint-prompt-read-only) t)) + (set (make-local-variable 'comint-prompt-read-only) t) + (when geiser-repl-autodoc-p (geiser-autodoc-mode 1))) (define-key geiser-repl-mode-map "\C-cz" 'run-guile) (define-key geiser-repl-mode-map "\C-c\C-z" 'run-guile) -- cgit v1.2.3