diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-25 21:46:08 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-25 21:46:08 +0100 |
| commit | eb2563843e3d2843da838f87f5bc32dcf9b47757 (patch) | |
| tree | 555fd71188821161ad1bf8f11777ec3fd7685966 | |
| parent | 3984c0691404a2c85ad398def1228d13f2fa480a (diff) | |
| download | geiser-chez-eb2563843e3d2843da838f87f5bc32dcf9b47757.tar.gz geiser-chez-eb2563843e3d2843da838f87f5bc32dcf9b47757.tar.bz2 | |
Variable controlling geiser-autodoc-mode in REPL (on by default).
| -rw-r--r-- | elisp/geiser-custom.el | 2 | ||||
| -rw-r--r-- | 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) |