diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-13 02:02:40 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-13 02:02:40 +0100 |
| commit | 137d2e0db5efe444f6f208aba8ebd57584f1ee52 (patch) | |
| tree | aebb89305d9adf5305bef9a9668c653c71d45372 /elisp/geiser-repl.el | |
| parent | 7196cb2405c2773f394954904b63765fb9f95e8b (diff) | |
| download | geiser-chez-137d2e0db5efe444f6f208aba8ebd57584f1ee52.tar.gz geiser-chez-137d2e0db5efe444f6f208aba8ebd57584f1ee52.tar.bz2 | |
Module documentation command works again when invoked from the REPL.
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 10a91a4..c362787 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -248,6 +248,12 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (defun geiser-repl--module-function (&optional ignore) :f) +(defun geiser-repl--doc-module () + (interactive) + (let ((geiser-eval--get-module-function + (geiser-impl--module-function geiser-impl--implementation))) + (geiser-doc-module))) + (define-derived-mode geiser-repl-mode comint-mode "Geiser REPL" "Major mode for interacting with an inferior scheme repl process. \\{geiser-repl-mode-map}" @@ -265,7 +271,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (define-key geiser-repl-mode-map "\C-a" 'geiser-repl--bol) (define-key geiser-repl-mode-map "\C-ca" 'geiser-autodoc-mode) (define-key geiser-repl-mode-map "\C-cd" 'geiser-doc-symbol-at-point) -(define-key geiser-repl-mode-map "\C-cm" 'geiser-doc-module) +(define-key geiser-repl-mode-map "\C-cm" 'geiser-repl--doc-module) (define-key geiser-repl-mode-map "\C-ck" 'geiser-compile-file) (define-key geiser-repl-mode-map "\C-cl" 'geiser-load-file) |