From 089e8f959e9673cc13f264e6bf757e2886b2a024 Mon Sep 17 00:00:00 2001 From: Peter Eisentraut Date: Wed, 30 Jan 2002 21:53:40 +0000 Subject: [PATCH] Fix copy-and-paste bug in print style. --- doc/src/sgml/stylesheet.dsl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/doc/src/sgml/stylesheet.dsl b/doc/src/sgml/stylesheet.dsl index 9eddffe2a5..e228645a98 100644 --- a/doc/src/sgml/stylesheet.dsl +++ b/doc/src/sgml/stylesheet.dsl @@ -1,4 +1,4 @@ - + @@ -443,7 +443,7 @@ ;; partintro is a special case... (partintro (node-list-first (node-list-filter-by-gi elements (list (normalize "partintro")))))) - (if (reference-titlepage-content? elements side) + (if (part-titlepage-content? elements side) (make simple-page-sequence page-n-columns: %titlepage-n-columns% ;; Make sure that page number format is correct. @@ -470,19 +470,19 @@ (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) - (reference-titlepage-before (node-list-first nl) side) + (part-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "subtitle")) - (reference-titlepage-subtitle (node-list-first nl) side)) + (part-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) - (reference-titlepage-title (node-list-first nl) side)) + (part-titlepage-title (node-list-first nl) side)) (else - (reference-titlepage-default (node-list-first nl) side))) + (part-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) - (if (and %generate-reference-toc% - %generate-reference-toc-on-titlepage% + (if (and %generate-part-toc% + %generate-part-toc-on-titlepage% (equal? side 'recto)) (make display-group (build-toc (current-node)