From 12932380614e5f4f9661f747567d2ee32649b1f3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 18 Jul 2014 06:59:20 +0100 Subject: [PATCH] scribble: fix PDF rendering for image without bounding-box info Merge to v6.1 (cherry picked from commit 09b4445c7a28b1d8fc3feb2d4ab7a64e9a991a8a) --- pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt index 1c20d4ce46..090b03b421 100644 --- a/pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt @@ -399,7 +399,8 @@ (- (+ (list-ref (list-ref bstr+info+suffix 0) 3) (- (ceiling height) height)) pad-bottom))] - [width (- (list-ref (list-ref bstr+info+suffix 0) 1) pad-left pad-right)] + [width (let ([w (list-ref (list-ref bstr+info+suffix 0) 1)]) + (and w (- w pad-left pad-right)))] [fn (install-file (format "pict~a" suffix) bstr)]) (if descent (printf "\\raisebox{-~abp}{\\makebox[~abp][l]{\\includegraphics[~atrim=~a ~a ~a ~a]{~a}}}"