Mercurial > emacs

comparison lisp/ps-print.el @ 89957:c08afac24467

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-26 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-466 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-470 Update from CVS
author Miles Bader <miles@gnu.org>
date Wed, 28 Jul 2004 07:05:52 +0000
parents b9eee0a7bef5 12ee8343c078
children f2ebccfa87d4
comparison
equal deleted inserted replaced
89956:b9eee0a7bef5 89957:c08afac24467
5542 (ps-background-text) 5542 (ps-background-text)
5543 (ps-background-image) 5543 (ps-background-image)
5544 (setq ps-background-all-pages (nreverse ps-background-all-pages) 5544 (setq ps-background-all-pages (nreverse ps-background-all-pages)
5545 ps-background-pages (nreverse ps-background-pages)) 5545 ps-background-pages (nreverse ps-background-pages))
5546 5546
5547 (ps-output "\n" ps-print-prologue-1) 5547 (ps-output "\n" ps-print-prologue-1
5548 5548 "\n/printGlobalBackground{\n")
5549 (ps-output "\n/printGlobalBackground{\n")
5550 (mapcar 'ps-output ps-background-all-pages) 5549 (mapcar 'ps-output ps-background-all-pages)
5551 (ps-output "}def\n/printLocalBackground{\n}def\n")
5552
5553 (ps-output "\n%%EndProlog\n\n%%BeginSetup\n")
5554
5555 (ps-output 5550 (ps-output
5551 "}def\n/printLocalBackground{\n}def\n"
5552 "\n%%EndProlog\n\n%%BeginSetup\n"
5556 "\n%%IncludeResource: font Times-Roman" 5553 "\n%%IncludeResource: font Times-Roman"
5557 "\n%%IncludeResource: font Times-Italic\n%%IncludeResource: font " 5554 "\n%%IncludeResource: font Times-Italic"
5555 "\n%%IncludeResource: font "
5558 (mapconcat 'identity 5556 (mapconcat 'identity
5559 (ps-remove-duplicates 5557 (ps-remove-duplicates
5560 (append (ps-fonts 'ps-font-for-text) 5558 (append (ps-fonts 'ps-font-for-text)
5561 (list (ps-font 'ps-font-for-header 'normal) 5559 (list (ps-font 'ps-font-for-header 'normal)
5562 (ps-font 'ps-font-for-header 'bold) 5560 (ps-font 'ps-font-for-header 'bold)
5563 (ps-font 'ps-font-for-footer 'normal) 5561 (ps-font 'ps-font-for-footer 'normal)
5564 (ps-font 'ps-font-for-footer 'bold)))) 5562 (ps-font 'ps-font-for-footer 'bold))))
5565 "\n%%IncludeResource: font ") 5563 "\n%%IncludeResource: font ")
5566 "\n") 5564 ;; Header/line number fonts
5567 5565 (format "\n/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont
5568 ;; Header/line number fonts 5566 ps-header-title-font-size-internal
5569 (ps-output (format "/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont 5567 (ps-font 'ps-font-for-header 'bold))
5570 ps-header-title-font-size-internal 5568 (format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont
5571 (ps-font 'ps-font-for-header 'bold)) 5569 ps-header-font-size-internal
5572 (format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont 5570 (ps-font 'ps-font-for-header 'normal))
5573 ps-header-font-size-internal 5571 (format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont
5574 (ps-font 'ps-font-for-header 'normal)) 5572 (ps-get-font-size 'ps-line-number-font-size)
5575 (format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont 5573 ps-line-number-font)
5576 (ps-get-font-size 'ps-line-number-font-size) 5574 (format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont
5577 ps-line-number-font) 5575 ps-footer-font-size-internal
5578 (format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont 5576 (ps-font 'ps-font-for-footer 'normal))
5579 ps-footer-font-size-internal 5577 "\n\n% ---- These lines must be kept together because...
5580 (ps-font 'ps-font-for-footer 'normal))
5581 "\n\n% ---- These lines must be kept together because...
5582 5578
5583 /h0 F 5579 /h0 F
5584 /HeaderTitleLineHeight FontHeight def 5580 /HeaderTitleLineHeight FontHeight def
5585 5581
5586 /h1 F 5582 /h1 F