deri pushed a commit to branch master in repository groff. commit 5d052395efcfd260ce0a42481fbf87c810184ee3 Author: Deri James <d...@chuzzlewit.myzen.co.uk> Date: Thu May 4 22:45:31 2017 +0100
Fixes for gropdf * src/devices/gropdf/gropdf.pl: Escape '(' and ')' if used in a bookmark, and ignore relative move 'h' if followed by absolute move 'H' in groff intermediate output. --- ChangeLog | 8 ++++++++ src/devices/gropdf/gropdf.pl | 8 ++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index ba059c8..1341518 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2017-05-04 Deri James <d...@chuzzlewit.myzen.co.uk> + + Fixes for gropdf + + * src/devices/gropdf/gropdf.pl: Escape '(' and ')' if + used in a bookmark, and ignore relative move 'h' if + followed by absolute move 'H' in groff intermediate output. + 2017-04-29 Ingo Schwarze <schwa...@usta.de> groff_char(7): improve description of ASCII characters diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl index cbfe329..a3bba58 100644 --- a/src/devices/gropdf/gropdf.pl +++ b/src/devices/gropdf/gropdf.pl @@ -791,7 +791,11 @@ sub do_x my $t=$1; $t=~s/\\\) /\\\\\) /g; $t=~s/\\e/\\\\/g; - my @xwds=split(' ',"<< $t >>"); + $t=~m/(^.*\/Title \()(.*)(\).*)/; + my ($pre,$title,$post)=($1,$2,$3); + $title=~s/(?<!\\)\(/\\\(/g; + $title=~s/(?<!\\)\)/\\\)/g; + my @xwds=split(' ',"<< $pre$title$post >>"); my $out=ParsePDFValue(\@xwds); my $this=[$out,[]]; @@ -3077,11 +3081,11 @@ sub do_V { $xpos=substr($ahead[0],1)/$unitwidth; + $nomove=$pendmv=0; @ahead=(); } -# $nomove=$pendmv=0; $poschg=1; } _______________________________________________ Groff-commit mailing list Groff-commit@gnu.org https://lists.gnu.org/mailman/listinfo/groff-commit