diff options
| author | Ludovic Courtès | 2012-05-23 15:08:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-23 15:08:15 +0200 |
| commit | 870a700f68208de3e71a4eb1abae67828f290399 (patch) | |
| tree | d158312356981a53f2a841efdd72a67f613448fd /src | |
| parent | 4c999dd048be3f681b90ebb14bfbbe90189d6e24 (diff) | |
| download | skribilo-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')
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 3 |
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)) |