diff options
| author | Ludovic Courtès | 2009-11-20 11:55:18 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2009-11-20 11:57:09 +0100 |
| commit | c8adc394b79e928d38722327cc18c7dfc6f1cb26 (patch) | |
| tree | a17412947c83652554d1d852163a1ba52db29e31 /src/guile/skribilo/evaluator.scm | |
| parent | 1d1d62c420ae807f5e3d6b51e4b585a9dcd3bb1e (diff) | |
| download | skribilo-c8adc394b79e928d38722327cc18c7dfc6f1cb26.tar.gz skribilo-c8adc394b79e928d38722327cc18c7dfc6f1cb26.tar.lz skribilo-c8adc394b79e928d38722327cc18c7dfc6f1cb26.zip | |
Choose the right encoding for input documents.
* src/guile/skribilo.scm (skribilo): Use the right encoding for the
current input port.
* src/guile/skribilo/evaluator.scm (load-document, include-document):
Likewise.
* doc/user/user.skb: Add a `coding:' comment for use by Guile at the
top.
Diffstat (limited to 'src/guile/skribilo/evaluator.scm')
| -rw-r--r-- | src/guile/skribilo/evaluator.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/guile/skribilo/evaluator.scm b/src/guile/skribilo/evaluator.scm index 329ba61..6ca0f13 100644 --- a/src/guile/skribilo/evaluator.scm +++ b/src/guile/skribilo/evaluator.scm @@ -1,7 +1,7 @@ ;;; eval.scm -- Skribilo evaluator. ;;; +;;; Copyright 2005, 2006, 2009 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr> -;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -188,6 +188,12 @@ ;; Load it (with-input-from-file filep (lambda () + (cond-expand (guile-2 + ;; Use the encoding specified by the `coding:' + ;; comment. + (let ((p (current-input-port))) + (set-port-encoding! p + (file-encoding p))))) (evaluate-document-from-port (current-input-port) ei :module module :reader reader))) @@ -215,6 +221,10 @@ (with-input-from-file full-path (lambda () + (cond-expand (guile-2 + ;; Use the encoding specified by the `coding:' comment. + (let ((p (current-input-port))) + (set-port-encoding! p (file-encoding p))))) (save-module-excursion (lambda () (set-current-module module) |