From e4836c62b245d618866b6523ec2c892aeb7a76be Mon Sep 17 00:00:00 2001 From: "Jeffrey H. Kingston" Date: Tue, 14 Sep 2010 20:39:50 +0000 Subject: Lout 3.32. git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@33 9365b830-b601-4143-9ba8-b4a8e2c3339c --- z08.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'z08.c') diff --git a/z08.c b/z08.c index 733e745..e80f135 100644 --- a/z08.c +++ b/z08.c @@ -1,7 +1,7 @@ /*@z08.c:Object Manifest:ReplaceWithSplit()@**********************************/ /* */ -/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.31) */ -/* COPYRIGHT (C) 1991, 2005 Jeffrey H. Kingston */ +/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.32) */ +/* COPYRIGHT (C) 1991, 2006 Jeffrey H. Kingston */ /* */ /* Jeffrey H. Kingston (jeff@it.usyd.edu.au) */ /* School of Information Technologies */ @@ -247,7 +247,7 @@ OBJECT ReplaceWithTidy(OBJECT x, int spacing) /* */ /*****************************************************************************/ -static float GetScaleFactor(OBJECT x) +float GetScaleFactor(OBJECT x) { float scale_factor; if( !is_word(type(x)) ) { Error(8, 3, "replacing invalid scale factor by 1.0", WARN, &fpos(x)); @@ -1018,7 +1018,9 @@ OBJECT *enclose, BOOLEAN fcr) case WORD: case QWORD: - if( !ok || *crs == nilobj ) + /* *** patched by JeffK 17/10/06 following a suggestion of Ludovic Courtes *** */ + /* if( !ok || *crs == nilobj ) */ + if( !ok ) { word_font(x) = font(*style); word_colour(x) = colour(*style); word_texture(x) = texture(*style); @@ -1029,7 +1031,7 @@ OBJECT *enclose, BOOLEAN fcr) word_hyph(x) = hyph_style(*style) == HYPH_ON; debug3(DOM, DDD, " manfifest/WORD underline() := %s for %s %s", "UNDER_OFF", Image(type(x)), EchoObject(x)); - if( small_caps(*style) && ok ) x = MapSmallCaps(x, style); + if( small_caps(*style) && ok ) x = MapSmallCaps(x, style); /* unreachable */ underline(x) = UNDER_OFF; ReplaceWithSplit(x, bthr, fthr); break; -- cgit