From f68af055fb38837041554f7dcd2c52e63f6e05ef Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 23 May 1998 20:20:48 +0000
Subject: [PATCH] (ps-print-version): Doc fix. (ps-print-prologue-1): Adjust
 doLineNumber PostScript function.

---
 lisp/ps-print.el | 38 +++++++++++++++++++++-----------------
 1 file 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: --
-- 
2.39.2