Here is a test file that shows spurious blanks after keywords:
---\pdffontexpand\font 25 25 5 autoexpand---
---\pdfobj reserveobjnum ---
---\pdfdest num1 fitbh ---
---\pdfstartlink goto file{file.pdf} page 1{/FitB}newwindow A\pdfendlink ---
\end
And below are simple patches for pdftex.ch and hz.ch to avoid these
blanks. I hope these are all occurences, and the patch won't cause
backward-incompatibilities. Who would want those spaces anyway?
Regards, Hartmut
--- pdftex.ch.orig 2005-05-26 11:39:32.000000000 +0200
+++ pdftex.ch 2005-05-27 17:02:02.737692220 +0200
@@ -4803,6 +4803,7 @@
begin
check_pdfoutput("\pdfobj");
if scan_keyword("reserveobjnum") then begin
+ @;
incr(pdf_obj_count);
pdf_create_obj(obj_type_obj, pdf_obj_count);
pdf_last_obj := obj_ptr;
@@ -5263,10 +5264,12 @@
end
else
pdf_error("ext1", "identifier type missing");
- if scan_keyword("newwindow") then
- pdf_action_new_window(p) := 1
- else if scan_keyword("nonewwindow") then
- pdf_action_new_window(p) := 2
+ if scan_keyword("newwindow") then begin
+ pdf_action_new_window(p) := 1;
+ @; end
+ else if scan_keyword("nonewwindow") then begin
+ pdf_action_new_window(p) := 2;
+ @; end
else
pdf_action_new_window(p) := 0;
if (pdf_action_new_window(p) > 0) and
@@ -5310,8 +5313,9 @@
@ @=
begin
check_pdfoutput("\pdfannot");
- if scan_keyword("reserveobjnum") then
- pdf_last_annot := pdf_new_objnum
+ if scan_keyword("reserveobjnum") then begin
+ pdf_last_annot := pdf_new_objnum;
+ @; end
else begin
if scan_keyword("useobjnum") then begin
scan_int;
@@ -5507,6 +5511,7 @@
pdf_dest_type(tail) := pdf_dest_fit
else
pdf_error("ext1", "destination type missing");
+ @;
if pdf_dest_type(tail) = pdf_dest_fitr then begin
scan_alt_rule; {scans |<rule spec>| to |alt_rule|}
pdf_width(tail) := width(alt_rule);
--- hz.ch.orig 2005-05-21 03:31:58.000000000 +0200
+++ hz.ch 2005-05-27 16:40:18.316931899 +0200
@@ -575,8 +575,9 @@
if (font_stretch = 0) and (font_shrink = 0) then
pdf_error("font expansion", "invalid limit");
auto_expand := false;
- if scan_keyword("autoexpand") then
+ if scan_keyword("autoexpand") then begin
auto_expand := true;
+ @; end;
{check if the font can be expanded}
if (pdf_font_expand_ratio[f] <> 0) then
