aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-23 15:08:15 +0200
committerLudovic Courtès2012-05-23 15:08:15 +0200
commit870a700f68208de3e71a4eb1abae67828f290399 (patch)
treed158312356981a53f2a841efdd72a67f613448fd /src/guile
parent4c999dd048be3f681b90ebb14bfbbe90189d6e24 (diff)
downloadskribilo-870a700f68208de3e71a4eb1abae67828f290399.tar.gz
skribilo-870a700f68208de3e71a4eb1abae67828f290399.tar.lz
skribilo-870a700f68208de3e71a4eb1abae67828f290399.zip
html: Set the output port's conversion strategy to 'error.
* src/guile/skribilo/engine/html.scm (&html-generic-document)[guile-2]: Set the output port's conversion strategy to 'error.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/html.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 39ab06e..5dad3bc 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1173,7 +1173,8 @@
;; Make sure the output is suitably encoded.
(and=> (engine-custom e 'charset)
(lambda (charset)
- (set-port-encoding! (current-output-port) charset))))
+ (set-port-encoding! (current-output-port) charset)
+ (set-port-conversion-strategy! (current-output-port) 'error))))
(else #t)))
(let* ((id (markup-ident n))