bug#3420: 23.0.94; Printing error on HP Laserjet 6L

[Christoph Conrad]

Hi Eli,

> Can you invoke ps-print-buffer with C-u to print to a file from each
> of the Emacs versions, and then diff them and post the results here?

Sure. See below. It seems that in e23 in the generated postscript code
several numerical values use a ',' as decimal separator, in e21 or e22
it is a '.' which is correct in postscript. The first of that values is
with /LandscapePageHeight.

e22: /LandscapePageHeight 841.8897637795276 def
e23: /LandscapePageHeight 841,8897637795276 def

I used exactly the same environment for the three emacsen.

Regards,
Christoph

3,4c3,5
< %%Creator: Christoph Conrad (using ps-print v6.5.5)
< %%CreationDate: 02:29:10 Mai 31 2009
---
> %%Creator: ps-print v7.3.4
> %%For: Christoph Conrad
> %%CreationDate: 02:30:43 Mai 31 2009
13c14,15
< %%DocumentMedia: Letter 612 792 0 () ()
---
> %%DocumentSuppliedResources: procset PSPrintUserDefinedPrologue-cc 0 0
> %%DocumentMedia: A4 595 842 0 () ()
19c21
< %%PageMedia: Letter
---
> %%PageMedia: A4
30,31c32,34
< % Copyright (C) 2000, 2001  Free Software Foundation, Inc.
< %
---
> % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
> %   Free Software Foundation, Inc.
> 
33,34c36,37
< %
< % GNU Emacs is free software; you can redistribute it and/or modify
---
> 
> % GNU Emacs is free software: you can redistribute it and/or modify
36,38c39,41
< % the Free Software Foundation; either version 2, or (at your option)
< % any later version.
< %
---
> % the Free Software Foundation, either version 3 of the License, or
> % (at your option) any later version.
> 
43c46
< %
---
> 
45,47c48
< % along with GNU Emacs; see the file COPYING.  If not, write to the
< % Free Software Foundation, Inc., 59 Temple Place - Suite 330,
< % Boston, MA 02111-1307, USA.
---
> % along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
58a60
> 
187c189
< %%BeginProcSet: UserDefinedPrologue
---
> %%BeginResource: procset PSPrintUserDefinedPrologue-cc 0 0
190c192
< %%EndProcSet
---
> %%EndResource
195,206c197,208
< /LandscapePageHeight 792.0 def
< /PrintPageWidth      498.6141732283465 def
< /PrintWidth   498.6141732283465 def
< /PrintHeight  643.7029732283465 def
< /LeftMargin   56.69291338582677 def
< /RightMargin  56.69291338582677 def
< /InterColumn  56.69291338582677 def
< /BottomMargin 42.51968503937008 def
< /TopMargin    42.51968503937008 def
< /HeaderOffset 28.346456692913385 def
< /HeaderPad    2.4276 def
< /FooterOffset 28.346456692913385 def
---
> /LandscapePageHeight 841,8897637795276 def
> /PrintPageWidth      451,27559055118104 def
> /PrintWidth   451,27559055118104 def
> /PrintHeight  705,2897637795276 def
> /LeftMargin   72.0 def
> /RightMargin  72.0 def
> /InterColumn  72.0 def
> /BottomMargin 36.0 def
> /TopMargin    36.0 def
> /HeaderOffset 36.0 def
> /HeaderPad    0.0 def
> /FooterOffset 36.0 def
214c216
< /HeaderFrameProperties [0.000 0.900 0.400 0.000 0.000 ]def
---
> /HeaderFrameProperties [0,000 0,000 0,000 0,000 0,000 ]def
217c219
< /FooterFrameProperties [0.000 0.900 0.400 0.000 0.000 ]def
---
> /FooterFrameProperties [0,000 0,000 0,000 0,000 0,000 ]def
220,221c222,223
< /LineHeight       8.967500000000001 def
< /LinesPerColumn   72 def
---
> /LineHeight       8.0 def
> /LinesPerColumn   88 def
229c231
< /LineNumberColor  [0.000 0.000 0.000] def
---
> /LineNumberColor  [0,000 0,000 0,000] def
231,232c233,234
< /ZebraColor       0.950 def
< /BackgroundColor  [1.000 1.000 1.000] def
---
> /ZebraColor       0,000 def
> /BackgroundColor  [1,000 1,000 1,000] def
243c245
< /N-Up-Margin    28.346456692913385 def
---
> /N-Up-Margin    36.0 def
254c256,259
< % version: 6.0
---
> % version: 6.1
> 
> % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
> %   Free Software Foundation, Inc.
256,257d260
< % Copyright (C) 2000, 2001  Free Software Foundation, Inc.
< %
259,260c262,263
< %
< % GNU Emacs is free software; you can redistribute it and/or modify
---
> 
> % GNU Emacs is free software: you can redistribute it and/or modify
262,264c265,267
< % the Free Software Foundation; either version 2, or (at your option)
< % any later version.
< %
---
> % the Free Software Foundation, either version 3 of the License, or
> % (at your option) any later version.
> 
269c272
< %
---
> 
271,273c274
< % along with GNU Emacs; see the file COPYING.  If not, write to the
< % Free Software Foundation, Inc., 59 Temple Place - Suite 330,
< % Boston, MA 02111-1307, USA.
---
> % along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
284a286
> 
682a685,686
>     /LHg LineHeight 0.65 mul def
>     /PHg PrintHeight LHg add def
686c690
<      0 LineHeight 0.65 mul rmoveto
---
>      0 LHg rmoveto
688c692
<      0 PrintHeight neg rlineto
---
>      0 PHg neg rlineto
690c694
<      0 PrintHeight rlineto
---
>      0 PHg rlineto
1004a1009,1011
> /HeaderClip{HeaderFrameStart moveto HeaderFramePath clip}def
> /FooterClip{FooterFrameStart moveto FooterFramePath clip}def
> 
1056a1064
>   gsave HeaderClip
1060a1069
>   grestore
1063a1073
>   gsave FooterClip
1067a1078
>   grestore
1121a1133,1145
> 
> %%EndProlog
> 
> %%BeginSetup
> 
> %%IncludeResource: font Times-Roman
> %%IncludeResource: font Times-Italic
> %%IncludeResource: font Courier
> %%IncludeResource: font Courier-Bold
> %%IncludeResource: font Courier-Oblique
> %%IncludeResource: font Courier-BoldOblique
> %%IncludeResource: font Helvetica
> %%IncludeResource: font Helvetica-Bold
1143,1151c1167,1171
< /f0 8.5(Courier)cvn DefFont
< /f1 8.5(Courier-Bold)cvn DefFont
< /f2 8.5(Courier-Oblique)cvn DefFont
< /f3 8.5(Courier-BoldOblique)cvn DefFont
< /SpaceWidthRatio 0.600000 def
< 
< %%EndProlog
< 
< %%BeginSetup
---
> /f0 8.0(Courier)cvn DefFont
> /f1 8.0(Courier-Bold)cvn DefFont
> /f2 8.0(Courier-Oblique)cvn DefFont
> /f3 8.0(Courier-BoldOblique)cvn DefFont
> /SpaceWidthRatio 0,600000 def
1156a1177,1254
> %%%% Start of Mule Section
> 
> /Latin1Encoding {     % newname fontname  |  font
>     findfont dup length dict begin
>       { 1 index /FID ne { def } { pop pop } ifelse } forall
>         /Encoding ISOLatin1Encoding def
>       currentdict
>     end
>     definefont
> } bind def
> 
> %% Redefine fonts for multiple charsets.
> /ReDefFont {               % fontname encoding fdepvector size  |  -
>   20 dict begin
>   3 index findfont {
>     1 index /FID ne 2 index /UniqueID ne and {def} {pop pop} ifelse
>   } forall
>   /FontType 0 def
>   /FMapType 3 def
>   /EscChar 0 def
>   % FontMatrix ::= [ size 0 0 size 0 0 ]
>   /FontMatrix exch [ exch dup 0 exch 0 exch 0 0 ] def
>   /FDepVector exch def
>   /Encoding exch def
>   currentdict
>   end                 % fontname dic
>   definefont pop
> } bind def
> 
> /EscChar 0 def
> 
> %% End of Mule Section
> 
> /F00 /Courier findfont def
> /ETOP0 256 array def
> 0 1 255 { ETOP0 exch 0 put } for
> ETOP0 0 0 put
> /VTOP0 [F00] def
> /ETOP1 256 array def
> 0 1 255 { ETOP1 exch 0 put } for
> ETOP1 0 0 put
> /VTOP1 [F00] def
> /ETOP2 256 array def
> 0 1 255 { ETOP2 exch 0 put } for
> ETOP2 0 0 put
> /VTOP2 [F00] def
> /ETOP3 256 array def
> 0 1 255 { ETOP3 exch 0 put } for
> ETOP3 0 0 put
> /VTOP3 [F00] def
> /Vh0 [ VTOP1 aload pop ] def
> 
> Vh0 0 /Helvetica-Bold-latin1 /Helvetica-Bold Latin1Encoding put
> /h0 ETOP1 Vh0 14,000000 ReDefFont
> /Vh1 [ VTOP0 aload pop ] def
> 
> Vh1 0 /Helvetica-latin1 /Helvetica Latin1Encoding put
> /h1 ETOP0 Vh1 12,000000 ReDefFont
> /VH0 [ VTOP0 aload pop ] def
> 
> VH0 0 /Helvetica-latin1 /Helvetica Latin1Encoding put
> /H0 ETOP0 VH0 12,000000 ReDefFont
> /Vf0 [ VTOP0 aload pop ] def
> 
> Vf0 0 /Courier-latin1 /Courier Latin1Encoding put
> /f0 ETOP0 Vf0 8,000000 ReDefFont
> /Vf1 [ VTOP1 aload pop ] def
> 
> Vf1 0 /Courier-Bold-latin1 /Courier-Bold Latin1Encoding put
> /f1 ETOP1 Vf1 8,000000 ReDefFont
> /Vf2 [ VTOP2 aload pop ] def
> 
> Vf2 0 /Courier-Oblique-latin1 /Courier-Oblique Latin1Encoding put
> /f2 ETOP2 Vf2 8,000000 ReDefFont
> /Vf3 [ VTOP3 aload pop ] def
> 
> Vf3 0 /Courier-BoldOblique-latin1 /Courier-BoldOblique Latin1Encoding put
> /f3 ETOP3 Vf3 8,000000 ReDefFont
1179c1277
< 0.000 0.000 0.000 FG
---
> 0,000 0,000 0,000 FG

3c3
< %%Creator: ps-print v6.7.6
---
> %%Creator: ps-print v7.3.4
5c5
< %%CreationDate: 02:29:55 Mai 31 2009
---
> %%CreationDate: 02:30:43 Mai 31 2009
32c32
< % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
---
> % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
34c34
< %
---
> 
36,37c36,37
< %
< % GNU Emacs is free software; you can redistribute it and/or modify
---
> 
> % GNU Emacs is free software: you can redistribute it and/or modify
39,41c39,41
< % the Free Software Foundation; either version 3, or (at your option)
< % any later version.
< %
---
> % the Free Software Foundation, either version 3 of the License, or
> % (at your option) any later version.
> 
46c46
< %
---
> 
48,50c48
< % along with GNU Emacs; see the file COPYING.  If not, write to the
< % Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
< % Boston, MA 02110-1301, USA.
---
> % along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
199,210c197,208
< /LandscapePageHeight 841.8897637795276 def
< /PrintPageWidth      481.8897637795275 def
< /PrintWidth   481.8897637795275 def
< /PrintHeight  693.5927370078741 def
< /LeftMargin   56.69291338582677 def
< /RightMargin  56.69291338582677 def
< /InterColumn  56.69291338582677 def
< /BottomMargin 42.51968503937008 def
< /TopMargin    42.51968503937008 def
< /HeaderOffset 28.346456692913385 def
< /HeaderPad    2.4276 def
< /FooterOffset 28.346456692913385 def
---
> /LandscapePageHeight 841,8897637795276 def
> /PrintPageWidth      451,27559055118104 def
> /PrintWidth   451,27559055118104 def
> /PrintHeight  705,2897637795276 def
> /LeftMargin   72.0 def
> /RightMargin  72.0 def
> /InterColumn  72.0 def
> /BottomMargin 36.0 def
> /TopMargin    36.0 def
> /HeaderOffset 36.0 def
> /HeaderPad    0.0 def
> /FooterOffset 36.0 def
218c216
< /HeaderFrameProperties [0.000 0.900 0.400 0.000 0.000 ]def
---
> /HeaderFrameProperties [0,000 0,000 0,000 0,000 0,000 ]def
221c219
< /FooterFrameProperties [0.000 0.900 0.400 0.000 0.000 ]def
---
> /FooterFrameProperties [0,000 0,000 0,000 0,000 0,000 ]def
224,225c222,223
< /LineHeight       8.967500000000001 def
< /LinesPerColumn   78 def
---
> /LineHeight       8.0 def
> /LinesPerColumn   88 def
233c231
< /LineNumberColor  [0.000 0.000 0.000] def
---
> /LineNumberColor  [0,000 0,000 0,000] def
235,236c233,234
< /ZebraColor       0.950 def
< /BackgroundColor  [1.000 1.000 1.000] def
---
> /ZebraColor       0,000 def
> /BackgroundColor  [1,000 1,000 1,000] def
247c245
< /N-Up-Margin    28.346456692913385 def
---
> /N-Up-Margin    36.0 def
260c258
< % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
---
> % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
262c260
< %
---
> 
264,265c262,263
< %
< % GNU Emacs is free software; you can redistribute it and/or modify
---
> 
> % GNU Emacs is free software: you can redistribute it and/or modify
267,269c265,267
< % the Free Software Foundation; either version 3, or (at your option)
< % any later version.
< %
---
> % the Free Software Foundation, either version 3 of the License, or
> % (at your option) any later version.
> 
274c272
< %
---
> 
276,278c274
< % along with GNU Emacs; see the file COPYING.  If not, write to the
< % Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
< % Boston, MA 02110-1301, USA.
---
> % along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
1171,1175c1167,1171
< /f0 8.5(Courier)cvn DefFont
< /f1 8.5(Courier-Bold)cvn DefFont
< /f2 8.5(Courier-Oblique)cvn DefFont
< /f3 8.5(Courier-BoldOblique)cvn DefFont
< /SpaceWidthRatio 0.600000 def
---
> /f0 8.0(Courier)cvn DefFont
> /f1 8.0(Courier-Bold)cvn DefFont
> /f2 8.0(Courier-Oblique)cvn DefFont
> /f3 8.0(Courier-BoldOblique)cvn DefFont
> /SpaceWidthRatio 0,600000 def
1180a1177,1254
> %%%% Start of Mule Section
> 
> /Latin1Encoding {     % newname fontname  |  font
>     findfont dup length dict begin
>       { 1 index /FID ne { def } { pop pop } ifelse } forall
>         /Encoding ISOLatin1Encoding def
>       currentdict
>     end
>     definefont
> } bind def
> 
> %% Redefine fonts for multiple charsets.
> /ReDefFont {               % fontname encoding fdepvector size  |  -
>   20 dict begin
>   3 index findfont {
>     1 index /FID ne 2 index /UniqueID ne and {def} {pop pop} ifelse
>   } forall
>   /FontType 0 def
>   /FMapType 3 def
>   /EscChar 0 def
>   % FontMatrix ::= [ size 0 0 size 0 0 ]
>   /FontMatrix exch [ exch dup 0 exch 0 exch 0 0 ] def
>   /FDepVector exch def
>   /Encoding exch def
>   currentdict
>   end                 % fontname dic
>   definefont pop
> } bind def
> 
> /EscChar 0 def
> 
> %% End of Mule Section
> 
> /F00 /Courier findfont def
> /ETOP0 256 array def
> 0 1 255 { ETOP0 exch 0 put } for
> ETOP0 0 0 put
> /VTOP0 [F00] def
> /ETOP1 256 array def
> 0 1 255 { ETOP1 exch 0 put } for
> ETOP1 0 0 put
> /VTOP1 [F00] def
> /ETOP2 256 array def
> 0 1 255 { ETOP2 exch 0 put } for
> ETOP2 0 0 put
> /VTOP2 [F00] def
> /ETOP3 256 array def
> 0 1 255 { ETOP3 exch 0 put } for
> ETOP3 0 0 put
> /VTOP3 [F00] def
> /Vh0 [ VTOP1 aload pop ] def
> 
> Vh0 0 /Helvetica-Bold-latin1 /Helvetica-Bold Latin1Encoding put
> /h0 ETOP1 Vh0 14,000000 ReDefFont
> /Vh1 [ VTOP0 aload pop ] def
> 
> Vh1 0 /Helvetica-latin1 /Helvetica Latin1Encoding put
> /h1 ETOP0 Vh1 12,000000 ReDefFont
> /VH0 [ VTOP0 aload pop ] def
> 
> VH0 0 /Helvetica-latin1 /Helvetica Latin1Encoding put
> /H0 ETOP0 VH0 12,000000 ReDefFont
> /Vf0 [ VTOP0 aload pop ] def
> 
> Vf0 0 /Courier-latin1 /Courier Latin1Encoding put
> /f0 ETOP0 Vf0 8,000000 ReDefFont
> /Vf1 [ VTOP1 aload pop ] def
> 
> Vf1 0 /Courier-Bold-latin1 /Courier-Bold Latin1Encoding put
> /f1 ETOP1 Vf1 8,000000 ReDefFont
> /Vf2 [ VTOP2 aload pop ] def
> 
> Vf2 0 /Courier-Oblique-latin1 /Courier-Oblique Latin1Encoding put
> /f2 ETOP2 Vf2 8,000000 ReDefFont
> /Vf3 [ VTOP3 aload pop ] def
> 
> Vf3 0 /Courier-BoldOblique-latin1 /Courier-BoldOblique Latin1Encoding put
> /f3 ETOP3 Vf3 8,000000 ReDefFont
1203c1277
< 0.000 0.000 0.000 FG
---
> 0,000 0,000 0,000 FG

3,4c3,5
< %%Creator: Christoph Conrad (using ps-print v6.5.5)
< %%CreationDate: 02:29:10 Mai 31 2009
---
> %%Creator: ps-print v6.7.6
> %%For: Christoph Conrad
> %%CreationDate: 02:29:55 Mai 31 2009
13c14,15
< %%DocumentMedia: Letter 612 792 0 () ()
---
> %%DocumentSuppliedResources: procset PSPrintUserDefinedPrologue-cc 0 0
> %%DocumentMedia: A4 595 842 0 () ()
19c21
< %%PageMedia: Letter
---
> %%PageMedia: A4
30c32,33
< % Copyright (C) 2000, 2001  Free Software Foundation, Inc.
---
> % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
> %   Free Software Foundation, Inc.
36c39
< % the Free Software Foundation; either version 2, or (at your option)
---
> % the Free Software Foundation; either version 3, or (at your option)
46,47c49,50
< % Free Software Foundation, Inc., 59 Temple Place - Suite 330,
< % Boston, MA 02111-1307, USA.
---
> % Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
> % Boston, MA 02110-1301, USA.
58a62
> 
187c191
< %%BeginProcSet: UserDefinedPrologue
---
> %%BeginResource: procset PSPrintUserDefinedPrologue-cc 0 0
190c194
< %%EndProcSet
---
> %%EndResource
195,198c199,202
< /LandscapePageHeight 792.0 def
< /PrintPageWidth      498.6141732283465 def
< /PrintWidth   498.6141732283465 def
< /PrintHeight  643.7029732283465 def
---
> /LandscapePageHeight 841.8897637795276 def
> /PrintPageWidth      481.8897637795275 def
> /PrintWidth   481.8897637795275 def
> /PrintHeight  693.5927370078741 def
221c225
< /LinesPerColumn   72 def
---
> /LinesPerColumn   78 def
254c258
< % version: 6.0
---
> % version: 6.1
256c260,261
< % Copyright (C) 2000, 2001  Free Software Foundation, Inc.
---
> % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
> %   Free Software Foundation, Inc.
262c267
< % the Free Software Foundation; either version 2, or (at your option)
---
> % the Free Software Foundation; either version 3, or (at your option)
272,273c277,278
< % Free Software Foundation, Inc., 59 Temple Place - Suite 330,
< % Boston, MA 02111-1307, USA.
---
> % Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
> % Boston, MA 02110-1301, USA.
284a290
> 
682a689,690
>     /LHg LineHeight 0.65 mul def
>     /PHg PrintHeight LHg add def
686c694
<      0 LineHeight 0.65 mul rmoveto
---
>      0 LHg rmoveto
688c696
<      0 PrintHeight neg rlineto
---
>      0 PHg neg rlineto
690c698
<      0 PrintHeight rlineto
---
>      0 PHg rlineto
1004a1013,1015
> /HeaderClip{HeaderFrameStart moveto HeaderFramePath clip}def
> /FooterClip{FooterFrameStart moveto FooterFramePath clip}def
> 
1056a1068
>   gsave HeaderClip
1060a1073
>   grestore
1063a1077
>   gsave FooterClip
1067a1082
>   grestore
1121a1137,1149
> 
> %%EndProlog
> 
> %%BeginSetup
> 
> %%IncludeResource: font Times-Roman
> %%IncludeResource: font Times-Italic
> %%IncludeResource: font Courier
> %%IncludeResource: font Courier-Bold
> %%IncludeResource: font Courier-Oblique
> %%IncludeResource: font Courier-BoldOblique
> %%IncludeResource: font Helvetica
> %%IncludeResource: font Helvetica-Bold
1149,1152d1176
< %%EndProlog
< 
< %%BeginSetup
<