summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-06 01:27:39 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-06 01:27:39 +0100
commit1a45bd76c811698b85dc8b47b6fc406b5308473f (patch)
tree8fbd691cdff93fdc48e5fe9264ba8e15eaee9dea
parent1f8abf10f7167cacf122a2eaa50acc66f0974d53 (diff)
downloadgeiser-guile-1a45bd76c811698b85dc8b47b6fc406b5308473f.tar.gz
geiser-guile-1a45bd76c811698b85dc8b47b6fc406b5308473f.tar.bz2
Don't display autodoc for function being defined.
-rw-r--r--README3
-rw-r--r--scheme/guile/geiser/doc.scm9
2 files changed, 11 insertions, 1 deletions
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))