Mercurial > emacs
comparison lisp/ps-print.el @ 90988:492971a3f31f unicode-xft-base
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 816-823)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 59-69)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 237-238)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-235
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 24 Jul 2007 01:23:55 +0000 |
parents | 89cd46b93749 702e736c11f0 |
children | f55f9811f5d7 |
comparison
equal
deleted
inserted
replaced
90987:b2d8a283f27e | 90988:492971a3f31f |
---|---|
5406 (ps-format-color ps-line-number-color 0.0) | 5406 (ps-format-color ps-line-number-color 0.0) |
5407 (format "def\n/ZebraHeight %d def\n" | 5407 (format "def\n/ZebraHeight %d def\n" |
5408 ps-zebra-stripe-height) | 5408 ps-zebra-stripe-height) |
5409 "/ZebraColor " | 5409 "/ZebraColor " |
5410 (ps-format-color ps-zebra-color 0.95) | 5410 (ps-format-color ps-zebra-color 0.95) |
5411 "def\n/BackgroundColor " | 5411 "def\n") |
5412 (ps-output "/BackgroundColor " | |
5412 (ps-format-color ps-default-background 1.0) | 5413 (ps-format-color ps-default-background 1.0) |
5413 "def\n/UseSetpagedevice " | 5414 "def\n") |
5415 (ps-output "/UseSetpagedevice " | |
5414 (if (eq ps-spool-config 'setpagedevice) | 5416 (if (eq ps-spool-config 'setpagedevice) |
5415 "/setpagedevice where{pop languagelevel 2 eq}{false}ifelse" | 5417 "/setpagedevice where{pop languagelevel 2 eq}{false}ifelse" |
5416 "false") | 5418 "false") |
5417 " def\n\n/PageWidth " | 5419 " def\n\n/PageWidth " |
5418 "PrintPageWidth LeftMargin add RightMargin add def\n\n" | 5420 "PrintPageWidth LeftMargin add RightMargin add def\n\n" |