summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pdftexdir
diff options
context:
space:
mode:
authorHan The Thanh <hanthethanh@gmail.com>2009-06-26 21:31:30 +0000
committerHan The Thanh <hanthethanh@gmail.com>2009-06-26 21:31:30 +0000
commit2fe6ab0671427b4d4be530b0a9917a790221d8b9 (patch)
tree6062016c8b9c539008956d154ad1ac69b1276d7e /Build/source/texk/web2c/pdftexdir
parent6e081e47ce78b9ac64706c943e98a7148f188520 (diff)
bugfix from Hartmut: fix \pdfobj file {foo} for files foo that don't end with '\n'
git-svn-id: svn://tug.org/texlive/trunk@13970 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pdftexdir')
-rw-r--r--Build/source/texk/web2c/pdftexdir/pdftex.web8
1 files changed, 6 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web
index dc4b3bdbf99..47630498136 100644
--- a/Build/source/texk/web2c/pdftexdir/pdftex.web
+++ b/Build/source/texk/web2c/pdftexdir/pdftex.web
@@ -19021,8 +19021,12 @@ begin
pdf_error("ext5", "cannot open file for embedding");
print("<<");
print(s);
- while not eof(f) do
- pdf_out(getc(f));
+ if not eof(f) then begin {at least one byte available}
+ while not eof(f) do
+ pdf_out(getc(f));
+ if (not obj_obj_is_stream(n)) and (pdf_ptr > 0) and (pdf_buf[pdf_ptr - 1] <> 10) then
+ pdf_out(10);
+ end;
print(">>");
b_close(f);
end