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

[Chong Yidong <cyd@stupidchicken.com>]

Hi,

Could you take a look at this bug report against ps-print.el?  Is the
attached patch safe to apply?  Thanks!

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"))
>
> 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.