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

[Vinicius Jose Latorre <viniciusjl@ig.com.br>]

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