X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhp2ps%2FDimensions.c;h=878dd4efe291b6e30657f0e6086c0a6e9124a59a;hb=34cc75e1a62638f2833815746ebce0a9114dc26b;hp=e732402dacff2b14504a63d8ab0c542e9971159c;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/utils/hp2ps/Dimensions.c b/utils/hp2ps/Dimensions.c
index e732402..878dd4e 100644
--- a/utils/hp2ps/Dimensions.c
+++ b/utils/hp2ps/Dimensions.c
@@ -33,6 +33,8 @@ static floatish KeyWidth PROTO((void)); /* forward */
 void
 Dimensions()
 {
+    boolish keyOnGraph;
+
     xrange = samplemap[nsamples - 1] - samplemap[0];
     xrange = max(xrange, auxxrange);
     if (xrange == 0.0) xrange = 1.0;            /* avoid division by 0.0 */
@@ -51,7 +53,8 @@ Dimensions()
 	titleheight = TITLE_HEIGHT;
     } 
 
-    graphwidth  = titlewidth - graphx0 - (TWENTY ? KeyWidth() : 0);
+    keyOnGraph = !multipageflag && TWENTY != 0;
+    graphwidth  = titlewidth - graphx0 - (keyOnGraph ? KeyWidth() : 0);
     graphheight = borderheight - titleheight - (2 * borderspace) - graphy0;
 }