Mercurial > emacs

changeset 89529:1f7ce29b19bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(HeaderOrFooterTextLines): Handle multiple strings in a line.
author Kenichi Handa <handa@m17n.org>
date Fri, 26 Sep 2003 11:28:16 +0000
parents c75e3c6b608a
children 498e5353548a
files etc/ps-prin1.ps
diffstat 1 files changed, 18 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/etc/ps-prin1.ps	Fri Sep 26 11:24:10 2003 +0000
+++ b/etc/ps-prin1.ps	Fri Sep 26 11:28:16 2003 +0000
@@ -767,16 +767,28 @@
   /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