From 0724d201354468c2d54ea33b9d7538584e342cf9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= Date: Tue, 15 Oct 2013 00:23:24 +0200 Subject: [PATCH] Changed behaviour of render-part-content with respect to html-render-pict-as original commit: 1bb4eb8879bf19466e26742fb1e72bc4fcf5ab19 --- pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt index cf167e98..f64e987f 100644 --- a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt @@ -977,14 +977,14 @@ ri)))))) (define/public (extract-render-pict-as d) - (or (ormap (lambda (v) + (ormap (lambda (v) (and (render-pict-as? v) (render-pict-as-type v))) - (style-properties (part-style d))) - 'png-images)) + (style-properties (part-style d)))) (define/override (render-part-content d ri) - (parameterize ([current-render-pict-as (extract-render-pict-as d)]) + (parameterize ([current-render-pict-as (or (extract-render-pict-as d) + (current-render-pict-as))]) (let ([number (collected-info-number (part-collected-info d ri))]) `(,@(let ([pres (extract-pretitle d)]) (append-map (lambda (pre)