[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v |
Date: |
Wed, 22 Oct 2008 23:40:45 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/ps-print.el,v,
Vinicius Jose Latorre <=