Mercurial > emacs

changeset 22204:e1921cd8a532

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ps-print-version): Doc fix. (ps-print-prologue-1): Adjust doLineNumber PostScript function.
author Richard M. Stallman <rms@gnu.org>
date Sat, 23 May 1998 20:20:48 +0000
parents 481d174f762a
children 8576d32229fc
files lisp/ps-print.el
diffstat 1 files changed, 22 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-print.el	Sat May 23 20:10:11 1998 +0000
+++ b/lisp/ps-print.el	Sat May 23 20:20:48 1998 +0000
@@ -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
-
-(defconst ps-print-version "3.06.1"
-  "ps-print.el, v 3.06.1 <98/05/15 vinicius>
+;; Time-stamp: <98/05/22  21:11:07 vinicius>
+;; Version:    3.06.2
+
+(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 @@
 
 % 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: --