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"