summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2006-03-01 17:27:33 +0000
committerLudovic Court`es2006-03-01 17:27:33 +0000
commitfa0b07b863a029896688805f411fc7e361f837f0 (patch)
tree6fea2b7d33a6a48524fab24c47048ca3afc3c04c /src/guile
parentb09b035d86267aa363430f5ff8b5900b37c15ea8 (diff)
downloadskribilo-fa0b07b863a029896688805f411fc7e361f837f0.tar.gz
skribilo-fa0b07b863a029896688805f411fc7e361f837f0.tar.lz
skribilo-fa0b07b863a029896688805f411fc7e361f837f0.zip
Lout engine: use `push-default-engine' and `pop-default-engine'.
* src/guile/skribilo/engine/lout.scm: Once `lout-engine' is defined, invoke `push-default-engine'. Invoke `pop-default-engine' at the end. git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-62
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/lout.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index c49211f..cfd58c7 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -701,6 +701,10 @@
(format #f "@Eq { ~a }\n" m)))))
+;; So that calls to `markup-writer' automatically use `lout-engine'...
+(push-default-engine lout-engine)
+
+
;; User-level implementation of PDF bookmarks.
;;
@@ -2883,7 +2887,7 @@
;*---------------------------------------------------------------------*/
;* Restore the base engine */
;*---------------------------------------------------------------------*/
-(default-engine-set! (find-engine 'base))
+(pop-default-engine)
;; Local Variables: --