diff options
| author | Ludovic Court`es | 2006-03-01 17:27:33 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-03-01 17:27:33 +0000 |
| commit | fa0b07b863a029896688805f411fc7e361f837f0 (patch) | |
| tree | 6fea2b7d33a6a48524fab24c47048ca3afc3c04c | |
| parent | b09b035d86267aa363430f5ff8b5900b37c15ea8 (diff) | |
| download | skribilo-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
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 6 |
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: -- |