From fa0b07b863a029896688805f411fc7e361f837f0 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 1 Mar 2006 17:27:33 +0000
Subject: 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
---
 src/guile/skribilo/engine/lout.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/guile')

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: --
-- 
cgit v1.2.3