diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-23 20:20:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-23 20:20:48 +0000 |
| commit | f68af055fb38837041554f7dcd2c52e63f6e05ef (patch) | |
| tree | b3026fba8e09d0c5c3c1bbfd3012ddef5a02c3bc /lisp/ps-print.el | |
| parent | d5bafc55395399e36bf20b6add8d8b582d2e6d0b (diff) | |
| download | emacs-f68af055fb38837041554f7dcd2c52e63f6e05ef.tar.gz | |
(ps-print-version): Doc fix.
(ps-print-prologue-1): Adjust doLineNumber PostScript function.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 38 |
1 files changed, 21 insertions, 17 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 6c037b1275c..06d56c0effa 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -7,11 +7,11 @@ ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Keywords: print, PostScript -;; Time-stamp: <98/05/15 21:15:06 vinicius> -;; Version: 3.06.1 +;; Time-stamp: <98/05/22 21:11:07 vinicius> +;; Version: 3.06.2 -(defconst ps-print-version "3.06.1" - "ps-print.el, v 3.06.1 <98/05/15 vinicius> +(defconst ps-print-version "3.06.2" + "ps-print.el, v 3.06.2 <98/05/22 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, @@ -2065,19 +2065,23 @@ StandardEncoding 46 82 getinterval aload pop % stack: -- /doLineNumber { - currentfont - gsave - 0.0 0.0 0.0 setrgbcolor - /L0 findfont setfont - LineNumber Lines ge - {(end )} - {LineNumber 6 string cvs ( ) strcat} - ifelse - dup stringwidth pop neg 0 rmoveto - show - grestore - setfont - /LineNumber LineNumber 1 add def + /LineNumber where + { + pop + currentfont + gsave + 0.0 0.0 0.0 setrgbcolor + /L0 findfont setfont + LineNumber Lines ge + {(end )} + {LineNumber 6 string cvs ( ) strcat} + ifelse + dup stringwidth pop neg 0 rmoveto + show + grestore + setfont + /LineNumber LineNumber 1 add def + } if } def % stack: -- |