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

[Friedrich Delgado Friedrichs]

Hi!

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.

I've tried to delete some insubstantial information from M-x
report-emacs-bug, and I think it wasn't too much, but if you have any
further questions, please don't hesitate to ask.

Kind regards
     Friedel
-- 
        Friedrich Delgado Friedrichs <friedel@nomaden.org>

signature.asc
Description: Digital signature