From eb2563843e3d2843da838f87f5bc32dcf9b47757 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-custom.el | 2 +- elisp/geiser-repl.el | 9 ++++++++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/elisp/geiser-custom.el b/elisp/geiser-custom.el index 27bcd33..78ee79d 100644 --- a/elisp/geiser-custom.el +++ b/elisp/geiser-custom.el @@ -38,7 +38,7 @@ ;;; Faces: (defgroup geiser-faces nil - "Faces used by GEISER." + "Faces used by Geiser." :group 'geiser :group 'faces) 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