mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Merge branch 'scratch/no-purespace' into 'master'

Browse source
This commit is contained in:
Stefan Kangas 2025-02-01 04:56:52 +01:00
commit bf97946d7d
181 changed files with 2108 additions and 9370 deletions
Download patch file Download diff file Expand all files Collapse all files

75
lisp/ps-print.el
View file

@ -1785,44 +1785,43 @@ If it's nil, automatic feeding takes place."
;;;###autoload
(defcustom ps-page-dimensions-database
(purecopy
(list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4")
(list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3")
(list 'letter (* 72 8.5) (* 72 11.0) "Letter")
(list 'legal (* 72 8.5) (* 72 14.0) "Legal")
(list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall")
(list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid")
(list 'ledger (* 72 17.0) (* 72 11.0) "Ledger")
(list 'statement (* 72 5.5) (* 72 8.5) "Statement")
(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")
;; 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 (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4")
(list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3")
(list 'letter (* 72 8.5) (* 72 11.0) "Letter")
(list 'legal (* 72 8.5) (* 72 14.0) "Legal")
(list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall")
(list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid")
(list 'ledger (* 72 17.0) (* 72 11.0) "Ledger")
(list 'statement (* 72 5.5) (* 72 8.5) "Statement")
(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")
;; 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"