Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-25

[gnu-emacs] / etc / ps-prin1.ps

diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps
index dd922b9338d70ff6d398f9bab4f4e4df5c55fe03..8e9479e112068994a449c35a6c8319d1b3aa535b 100644 (file)
--- a/etc/ps-prin1.ps
+++ b/etc/ps-prin1.ps
@@ -770,16 +770,28 @@ StandardEncoding 46 82 getinterval aload pop
   /is_right exch def
   HFStart moveto
   { % ---- process the lines
-   aload pop
-   exch F
+   dup 0 get F
    gsave
-    dup xcheck{exec}if
     is_right{
-     dup stringwidth pop
-     PrintHeaderWidth exch sub HFPad HFPad add sub 0 rmoveto
+     PrintHeaderWidth HFPad HFPad add sub 0 rmoveto
+     dup{
+      dup type /nametype eq{
+       pop
+      }{
+        dup xcheck{exec}if
+       stringwidth pop neg 0 rmoveto
+      }ifelse
+     } forall
     }if
     HFColor SetColor
-    show
+    {
+     dup type /nametype eq {
+       pop
+     }{
+       dup xcheck{exec}if
+       show
+     } ifelse
+    } forall
    grestore
    0 HFLineHeight neg rmoveto
   }forall