mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Tiny change.

Browse source
This commit is contained in:
Vinicius Jose Latorre 2004-07-27 02:10:51 +00:00
parent 3553184981
commit 47a97a6db3
2 changed files with 28 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -42,12 +42,17 @@
2004-07-22 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: Doc fix. Improve the DSC compliance of the generated
PostScript. Suggested by Michael Piotrowski <mxp@dynalabs.de>.
* ps-print.el: Doc fix.
(ps-print-version): New version 6.6.5.
(ps-printing-region): Doc fix.
(ps-generate-string-list): Comment fix.
(ps-message-log-max, ps-begin-file): Code fix.
(ps-message-log-max): Code fix.
2004-07-22 Michael Piotrowski <mxp@dynalabs.de> (tiny change)
* ps-print.el (ps-begin-file): Improve the DSC compliance of the
generated PostScript.
2004-07-22 Kim F. Storm <storm@cua.dk>

44
lisp/ps-print.el
View file

@ -5576,17 +5576,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)
@ -5595,22 +5593,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