[Groff-commit] groff ChangeLog src/devices/gropdf/gropdf.pl

[Werner LEMBERG]

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Werner LEMBERG <wl>     12/10/17 10:45:33

Modified files:
        .              : ChangeLog 
        src/devices/gropdf: gropdf.pl 

Log message:
        * src/devices/gropdf/gropdf: The command \D't N' moves horizontal
        position by 'N'.  gropdf now obeys this rule.
        
        Fixed kerning issue where width of non-kerned text could be wrongly
        calculated using previous kern factor.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/ChangeLog?cvsroot=groff&r1=1.1355&r2=1.1356
http://cvs.savannah.gnu.org/viewcvs/groff/src/devices/gropdf/gropdf.pl?cvsroot=groff&r1=1.9&r2=1.10

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/groff/groff/ChangeLog,v
retrieving revision 1.1355
retrieving revision 1.1356
diff -u -b -r1.1355 -r1.1356
--- ChangeLog   21 Sep 2012 04:58:32 -0000      1.1355
+++ ChangeLog   17 Oct 2012 10:45:33 -0000      1.1356
@@ -1,3 +1,11 @@
+2012-10-17  Deri James  <address@hidden>
+
+       * src/devices/gropdf/gropdf: The command \D't N' moves horizontal
+       position by 'N'.  gropdf now obeys this rule.
+
+       Fixed kerning issue where width of non-kerned text could be wrongly
+       calculated using previous kern factor.
+
 2012-09-21  Werner LEMBERG  <address@hidden>
 
        * doc/groff.texinfo: Improve documentation of `.ad'.

Index: src/devices/gropdf/gropdf.pl
===================================================================
RCS file: /cvsroot/groff/groff/src/devices/gropdf/gropdf.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- src/devices/gropdf/gropdf.pl        20 Sep 2012 07:48:28 -0000      1.9
+++ src/devices/gropdf/gropdf.pl        17 Oct 2012 10:45:33 -0000      1.10
@@ -2669,6 +2669,7 @@
        $lwidth=$p[0];
        $stream.="$p[0] w\n";
        $poschg=1;
+       $xpos+=$lwidth;
     }
     elsif ($Dcmd eq 'a')
     {
@@ -3014,6 +3015,14 @@
 sub do_t
 {
     my $par=shift;
+
+    if ($kernadjust != $curkern)
+    {
+       PutLine();
+       $stream.="$kernadjust Tc\n";
+       $curkern=$kernadjust;
+    }
+
     my $wid=TextWid($par);
 
     $par=reverse(split('',$par)) if $xrev;
@@ -3038,13 +3047,6 @@
     # $nomove = width of char(s) added by 'C', 'N' or 'c'
     # $w-flg  = 'w' seen since last t
 
-    if ($kernadjust != $curkern)
-    {
-       PutLine();
-       $stream.="$kernadjust Tc\n";
-       $curkern=$kernadjust;
-    }
-
     if ($fontchg)
     {
        PutLine();