[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      08/10/22 23:40:45

Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.219
retrieving revision 1.220
diff -u -b -r1.219 -r1.220
--- ps-print.el 8 May 2008 13:31:31 -0000       1.219
+++ ps-print.el 22 Oct 2008 23:40:44 -0000      1.220
@@ -11,11 +11,11 @@
 ;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
 ;;     Vinicius Jose Latorre <address@hidden>
 ;; Keywords: wp, print, PostScript
-;; Version: 7.3.2
+;; Version: 7.3.3
 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
 
-(defconst ps-print-version "7.3.2"
-  "ps-print.el, v 7.3.2 <2008/01/09 vinicius>
+(defconst ps-print-version "7.3.3"
+  "ps-print.el, v 7.3.3 <2008/10/22 vinicius>
 
 Vinicius's last change version -- this file may have been edited as part of
 Emacs without changes to the version number.  When reporting bugs, please also
@@ -1366,6 +1366,9 @@
 ;; Acknowledgments
 ;; ---------------
 ;;
+;; Thanks to Friedrich Delgado Friedrichs <address@hidden> for new label
+;; printer page sizes.
+;;
 ;; Thanks to Michael Piotrowski <address@hidden> for improving the DSC
 ;; compliance of the generated PostScript.
 ;;
@@ -1837,13 +1840,38 @@
        (list 'executive    (* 72  7.5)   (* 72 10.0)          "Executive")
        (list 'a4small      (* 72  7.47)  (* 72 10.85)         "A4Small")
        (list 'b4           (* 72 10.125) (* 72 14.33)         "B4")
-       (list 'b5           (* 72  7.16)  (* 72 10.125)        "B5"))
+       (list 'b5           (* 72  7.16)   (* 72 10.125)        "B5")
+       ;; page sizes for label printer
+       ;; NOTE: the page sizes below don't have n-up > 1.
+       '(addresslarge       236.0      99.0 "AddressLarge")
+       '(addresssmall       236.0      68.0 "AddressSmall")
+       '(cuthanging13        90.0     222.0 "CutHanging13")
+       '(cuthanging15        90.0     114.0 "CutHanging15")
+       '(diskette           181.0     136.0 "Diskette")
+       '(eurofilefolder     139.0     112.0 "EuropeanFilefolder")
+       '(eurofoldernarrow   526.0     107.0 "EuroFolderNarrow")
+       '(eurofolderwide     526.0     136.0 "EuroFolderWide")
+       '(euronamebadge      189.0     108.0 "EuroNameBadge")
+       '(euronamebadgelarge 223.0     136.0 "EuroNameBadgeLarge")
+       '(filefolder         230.0      37.0 "FileFolder")
+       '(jewelry             76.0     136.0 "Jewelry")
+       '(mediabadge         180.0     136.0 "MediaBadge")
+       '(multipurpose       126.0      68.0 "MultiPurpose")
+       '(retaillabel         90.0     104.0 "RetailLabel")
+       '(shipping           271.0     136.0 "Shipping")
+       '(slide35mm           26.0     104.0 "Slide35mm")
+       '(spine8mm           187.0      26.0 "Spine8mm")
+       '(topcoated          425.19685 136.0 "TopCoatedPaper")
+       '(topcoatedpaper     396.0     136.0 "TopcoatedPaper150")
+       '(vhsface            205.0     127.0 "VHSFace")
+       '(vhsspine           400.0      50.0 "VHSSpine")
+       '(zipdisk            156.0     136.0 "ZipDisk"))
   "*List associating a symbolic paper type to its width, height and doc media.
 See `ps-paper-type'."
   :type '(repeat (list :tag "Paper Type"
-                      (symbol :tag "Name")
-                      (number :tag "Width")
-                      (number :tag "Height")
+                      (symbol :tag "Symbol Name")
+                      (number :tag "Width in points")
+                      (number :tag "Height in points")
                       (string :tag "Media")))
   :version "20"
   :group 'ps-print-page)
@@ -5256,7 +5284,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