diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-06 01:27:39 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-06 01:27:39 +0100 |
| commit | 1a45bd76c811698b85dc8b47b6fc406b5308473f (patch) | |
| tree | 8fbd691cdff93fdc48e5fe9264ba8e15eaee9dea | |
| parent | 1f8abf10f7167cacf122a2eaa50acc66f0974d53 (diff) | |
| download | geiser-guile-1a45bd76c811698b85dc8b47b6fc406b5308473f.tar.gz geiser-guile-1a45bd76c811698b85dc8b47b6fc406b5308473f.tar.bz2 | |
Don't display autodoc for function being defined.
| -rw-r--r-- | README | 3 | ||||
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 9 |
2 files changed, 11 insertions, 1 deletions
@@ -87,4 +87,5 @@ *** In backtrace (evaluation/compile result) buffers: - Default error navigation keys used by emacs' compilation mode. + - Default error navigation keys used by emacs' compilation mode. + - q to bury buffer. diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm index 578e6a3..ae24a87 100644 --- a/scheme/guile/geiser/doc.scm +++ b/scheme/guile/geiser/doc.scm @@ -41,6 +41,15 @@ (cond ((null? form) #f) ((symbol? form) (describe-application (list form))) ((and (pair? form) (not (list? form))) (autodoc (pair->list form))) + ((and (list? form) + (= 2 (length form)) + (memq (car form) + '(define define* define-macro define-macro* define-method))) + (autodoc (cons (car form) + (cond ((or (symbol? (cadr form)) + (null? (cadr form)) + (not (list? (cadr form)))) '()) + (else (cdadr form)))))) ((list? form) (let ((lst (last form))) (cond ((symbol? lst) (or (describe-application (list lst)) |