mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-26

Browse source 
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
This commit is contained in:
Miles Bader 2004-07-28 07:05:52 +00:00
commit 54685a78a7
35 changed files with 478 additions and 180 deletions
Download patch file Download diff file Expand all files Collapse all files

44
lisp/ps-print.el
View file

@ -5544,17 +5544,15 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(setq ps-background-all-pages (nreverse ps-background-all-pages)
ps-background-pages (nreverse ps-background-pages))
(ps-output "\n" ps-print-prologue-1)
(ps-output "\n/printGlobalBackground{\n")
(ps-output "\n" ps-print-prologue-1
"\n/printGlobalBackground{\n")
(mapcar 'ps-output ps-background-all-pages)
(ps-output "}def\n/printLocalBackground{\n}def\n")
(ps-output "\n%%EndProlog\n\n%%BeginSetup\n")
(ps-output
"}def\n/printLocalBackground{\n}def\n"
"\n%%EndProlog\n\n%%BeginSetup\n"
"\n%%IncludeResource: font Times-Roman"
"\n%%IncludeResource: font Times-Italic\n%%IncludeResource: font "
"\n%%IncludeResource: font Times-Italic"
"\n%%IncludeResource: font "
(mapconcat 'identity
(ps-remove-duplicates
(append (ps-fonts 'ps-font-for-text)
@ -5563,22 +5561,20 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(ps-font 'ps-font-for-footer 'normal)
(ps-font 'ps-font-for-footer 'bold))))
"\n%%IncludeResource: font ")
"\n")
;; Header/line number fonts
(ps-output (format "/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont
ps-header-title-font-size-internal
(ps-font 'ps-font-for-header 'bold))
(format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont
ps-header-font-size-internal
(ps-font 'ps-font-for-header 'normal))
(format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont
(ps-get-font-size 'ps-line-number-font-size)
ps-line-number-font)
(format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont
ps-footer-font-size-internal
(ps-font 'ps-font-for-footer 'normal))
"\n\n% ---- These lines must be kept together because...
;; Header/line number fonts
(format "\n/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont
ps-header-title-font-size-internal
(ps-font 'ps-font-for-header 'bold))
(format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont
ps-header-font-size-internal
(ps-font 'ps-font-for-header 'normal))
(format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont
(ps-get-font-size 'ps-line-number-font-size)
ps-line-number-font)
(format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont
ps-footer-font-size-internal
(ps-font 'ps-font-for-footer 'normal))
"\n\n% ---- These lines must be kept together because...
/h0 F
/HeaderTitleLineHeight FontHeight def