Mercurial > emacs
changeset 90739:212262e82d04
Fix background height
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Fri, 26 Jan 2007 23:47:52 +0000 |
| parents | a77c806ee80a |
| children | a56cb0cefdc6 |
| files | etc/ChangeLog.unicode etc/ps-prin1.ps lisp/ChangeLog.unicode lisp/ps-print.el |
| diffstat | 4 files changed, 28 insertions(+), 33 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/ChangeLog.unicode Fri Jan 26 07:06:02 2007 +0000 +++ b/etc/ChangeLog.unicode Fri Jan 26 23:47:52 2007 +0000 @@ -1,3 +1,7 @@ +2007-01-26 Vinicius Jose Latorre <viniciusjl@ig.com.br> + + * ps-prin1.ps (printBackground): Fix background height. + 2006-07-07 Kenichi Handa <handa@m17n.org> * HELLO: Sync with HEAD. @@ -70,7 +74,7 @@ ;; coding: iso-2022-7bit ;; End: - Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002 + Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002, 2007 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved.
--- a/etc/ps-prin1.ps Fri Jan 26 07:06:02 2007 +0000 +++ b/etc/ps-prin1.ps Fri Jan 26 23:47:52 2007 +0000 @@ -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 @@ % 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 @@ -770,28 +772,16 @@ /is_right exch def HFStart moveto { % ---- process the lines - dup 0 get F + aload pop + exch F gsave + dup xcheck{exec}if is_right{ - PrintHeaderWidth HFPad HFPad add sub 0 rmoveto - dup{ - dup type /nametype eq{ - pop - }{ - dup xcheck{exec}if - stringwidth pop neg 0 rmoveto - }ifelse - } forall + dup stringwidth pop + PrintHeaderWidth exch sub HFPad HFPad add sub 0 rmoveto }if HFColor SetColor - { - dup type /nametype eq { - pop - }{ - dup xcheck{exec}if - show - } ifelse - } forall + show grestore 0 HFLineHeight neg rmoveto }forall
--- a/lisp/ChangeLog.unicode Fri Jan 26 07:06:02 2007 +0000 +++ b/lisp/ChangeLog.unicode Fri Jan 26 23:47:52 2007 +0000 @@ -1,8 +1,13 @@ +2007-01-26 Vinicius Jose Latorre <viniciusjl@ig.com.br> + + * ps-print.ps: Fix background height. + (ps-print-version): New version 7.2.1. + 2007-01-25 Vinicius Jose Latorre <viniciusjl@ig.com.br> * ps-print.el: Split XEmacs/Emacs definitions and sample setup code into separate files. - (ps-print-version): New Version 7.2. + (ps-print-version): New version 7.2. (ps-postscript-code-directory): Fix XEmacs initialization. (ps-generate-postscript-with-faces): Call ps-generate-postscript-with-faces1 (new fun). @@ -60,7 +65,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 7.1. + (ps-print-version): New version 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).
--- a/lisp/ps-print.el Fri Jan 26 07:06:02 2007 +0000 +++ b/lisp/ps-print.el Fri Jan 26 23:47:52 2007 +0000 @@ -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: 7.2 +;; Version: 7.2.1 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre -(defconst ps-print-version "7.2" - "ps-print.el, v 7.2 <2007/01/19 vinicius> +(defconst ps-print-version "7.2.1" + "ps-print.el, v 7.2.1 <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 @@ -2938,8 +2938,6 @@ frame-parameter The foreground-color frame parameter will be used. - frame-parameter The foreground-color frame parameter will be used. - NUMBER It's a real value between 0.0 (black) and 1.0 (white) that indicate the gray color. @@ -2983,8 +2981,6 @@ frame-parameter The background-color frame parameter will be used. - frame-parameter The background-color frame parameter will be used. - NUMBER It's a real value between 0.0 (black) and 1.0 (white) that indicate the gray color.