Fix background height

diff --git a/etc/ChangeLog b/etc/ChangeLog
index 9c0cf45f12e52ab111332b6e73490f696164349f..0c5e07421927c8df54a2516721c7b7d6450308a1 100644 (file)
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-26  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * ps-prin1.ps (printBackground): Fix background height.
+
 2007-01-20  Glenn Morris  <rgm@gnu.org>
 
        * cd-dired-ref.tex (versionemacs): New def.

diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps
index 118133ba73b273d84b1973288b8317538cdf0865..3ab3d6176f605fab68c8638149ae481525f2e026 100644 (file)
--- a/etc/ps-prin1.ps
+++ b/etc/ps-prin1.ps
@@ -1,7 +1,7 @@
 % === BEGIN ps-print prologue 1
-% version: 6.0
+% version: 6.1
 
-% Copyright (C) 2000, 2001, 2002, 2003, 2004  Free Software Foundation, Inc.
+% Copyright (C) 2000, 2001, 2002, 2003, 2004, 2007  Free Software Foundation, Inc.
 %
 % This file is part of GNU Emacs.
 %
@@ -429,14 +429,16 @@ StandardEncoding 46 82 getinterval aload pop
 % stack: --
 /printBackground{
   /BackgroundColor where{
+    /LHg LineHeight 0.65 mul def
+    /PHg PrintHeight LHg add def
     pop gsave BackgroundColor SetColor
     NumberOfColumns{
      gsave
-     0 LineHeight 0.65 mul rmoveto
+     0 LHg rmoveto
      PrintWidth 0 rlineto
-     0 PrintHeight neg rlineto
+     0 PHg neg rlineto
      PrintWidth neg 0 rlineto
-     0 PrintHeight rlineto
+     0 PHg rlineto
      fill
      grestore
      PrintWidth InterColumn add 0 rmoveto

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0170c52c33a158cea92247266a2734d89750f5d1..38763f69e51203ef632ff81b8e90117055c1f30f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-26  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * ps-print.ps: Fix background height.
+       (ps-print-version): New version 6.7.2.
+
 2007-01-26  Eli Zaretskii  <eliz@gnu.org>
 
        * makefile.w32-in (finder-data, custom-deps): Depend on
@@ -100,7 +105,7 @@
 
        * ps-print.el: Handle frame parameters (background and/or foreground
        colors) changing dynamically.  Reported by Leo <sdl.web@gmail.com>.
-       (ps-print-version): New Version 6.7.1.
+       (ps-print-version): New version 6.7.1.
        (ps-x-frame-property, ps-e-frame-parameter): New aliases.
        (ps-frame-parameter): New fun.
        (ps-default-fg, ps-default-bg): New default value ('frame-parameter).
@@ -1306,7 +1311,7 @@
        * ps-mule.el: Eliminate Emacs 20 compatibility.
 
        * ps-print.el: Eliminate Emacs 20 & 21 compatibility.
-       (ps-print-version): New Version 6.7.
+       (ps-print-version): New version 6.7.
        (ps-print-quote): Replace '?\ ' by '?\s'.
 
 2006-11-30  Juanma Barranquero  <lekktu@gmail.com>

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 2484bd677cd1e54f1d5d71b372d74488afb7a379..ca8cada2b2e5d2e0ae7bfaa4dc9fae8bf0b766b5 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -10,11 +10,11 @@
 ;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
 ;;     Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Keywords: wp, print, PostScript
-;; Version: 6.7.1
+;; Version: 6.7.2
 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
 
-(defconst ps-print-version "6.7.1"
-  "ps-print.el, v 6.7.1 <2007/01/21 vinicius>
+(defconst ps-print-version "6.7.2"
+  "ps-print.el, v 6.7.2 <2007/01/26 vinicius>
 
 Vinicius's last change version -- this file may have been edited as part of
 Emacs without changes to the version number.  When reporting bugs, please also