summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-24 01:30:09 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-24 01:30:09 +0200
commit0fcf4491f889e24853d6b6643b773d0b4e5e7346 (patch)
treea614421c11135175d4db5a0d313e632a02d8e745
parentd2cb7333992ba6c523814f1de8e714e345a50475 (diff)
downloadgeiser-guile-0fcf4491f889e24853d6b6643b773d0b4e5e7346.tar.gz
geiser-guile-0fcf4491f889e24853d6b6643b773d0b4e5e7346.tar.bz2
Truncating lines in documentation browser.
-rw-r--r--elisp/geiser-doc.el1
-rw-r--r--scheme/racket/geiser/modules.rkt4
2 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 04bea85..bd84d7e 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -378,6 +378,7 @@ With prefix, the current page is deleted from history."
(interactive)
(kill-all-local-variables)
(buffer-disable-undo)
+ (setq truncate-lines t)
(use-local-map geiser-doc-mode-map)
(set-syntax-table scheme-mode-syntax-table)
(setq mode-name "Geiser Doc")
diff --git a/scheme/racket/geiser/modules.rkt b/scheme/racket/geiser/modules.rkt
index 6ed2ecc..af19b03 100644
--- a/scheme/racket/geiser/modules.rkt
+++ b/scheme/racket/geiser/modules.rkt
@@ -156,9 +156,9 @@
[(procedure? (value (car ids)))
(loop (cdr ids) (cons (car ids) procs) vars)]
[else (loop (cdr ids) procs (cons (car ids) vars))])))
- (let-values (((reg syn)
+ (let-values ([(reg syn)
(module-compiled-exports
- (get-module-code (resolve-module-path mod #f)))))
+ (get-module-code (resolve-module-path mod #f)))])
(let ([syn (map contracted (extract-ids syn))]
[reg (extract-ids reg)])
`((syntax ,@syn) ,@(classify-ids reg)))))