From 1a45bd76c811698b85dc8b47b6fc406b5308473f Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 6 Mar 2009 01:27:39 +0100 Subject: Don't display autodoc for function being defined. --- README | 3 ++- scheme/guile/geiser/doc.scm | 9 +++++++++ 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/README b/README index 2286297..a33b6af 100644 --- a/README +++ b/README @@ -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)) -- cgit v1.2.3