bug#1138: 23.0.60; ps-print.el error with unusual page sizes

[Vinicius Jose Latorre]

Hi Friedrich,


> Friedrich Delgado Friedrichs <friedel@nomaden.org> wrote:
>   
> > ps-print.el from current cvs uses non-exhaustive cases in the function
> > ps-n-up-printing, if a page size symbol does not match any of the
> > cars in ps-n-up-database.
> >
> > The background of this is that I'm using a label printer with maximum
> > 54mm (nominally, really 136 points, 47mm) width to print labels and
> > small leaflets.
> >
> > My ps-page-dimensions-database looks like this:
> >
> > ((a4 595.275590551181 841.8897637795276 "A4")
> >  (a3 841.8897637795276 1190.551181102362 "A3")
> >  (letter 612.0 792.0 "Letter")
> >  (legal 612.0 1008.0 "Legal")
> >  (letter-small 552.96 731.52 "LetterSmall")
> >  (tabloid 792.0 1224.0 "Tabloid")
> >  (ledger 1224.0 792.0 "Ledger")
> >  (statement 396.0 612.0 "Statement")
> >  (executive 540.0 720.0 "Executive")
> >  (a4small 537.84 781.1999999999999 "A4Small")
> >  (b4 729.0 1031.76 "B4")
> >  (b5 515.52 729.0 "B5")
> >  (shipping 271 136 "Shipping")
> >  (topcoated 425.19685 136 "TopCoatedPaper"))
> >     

Ok, it seems ok to add these two new entries into 
ps-page-dimensions-database.


> > The next to last entries are the relevant ones. If ps-paper-type is
> > set to 'topcoated or 'shipping, ps-n-up-printing returns nil, causing
> > an error in the format for the page header later.
> >
> > ps-n-up-printing being set to 1
> >
> > This quick workaround fixes this for me:
> >     
>
> --- ps-print.el.~1.219.~    2008-05-20 00:03:17.000000000 +0200
> +++ ps-print.el 2008-10-10 20:28:05.000000000 +0200
> @@ -5256,7 +5256,8 @@
>      (and the-list
>      (while (> ps-n-up-printing (caar the-list))
>        (setq the-list (cdr the-list))))
> -    (car the-list)))
> +    (or (car the-list)
> +        '(1   nil 1  1  0))))
>  
>  
>  (defconst ps-n-up-filling-database
>
>   
> > However you might want to apply a more general fix for the
> > distribution.
> >     

Well, the right thing to do is to add new entries into ps-n-up-database, 
like:

(defconst ps-n-up-database
  '(......
   (shipping
    (100 nil 1  1  0))
   (topcoated
    (100 nil 1  1  0)))
...)

Please, try the change above and let me know the results.

Does it make sense to have ps-n-up-printing > 1 for these 2 new entries??

ps-print does not deal with paper sizes which only can have 1 n-up, but 
it's possible to change this if this is the case.


Thanks for your contribution,


Vinicius