From 9f36318b0e571bcbc93dc2112d01bbf2178ed020 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Wed, 10 Oct 2018 21:09:32 +0200
Subject: 2018-10-08 17:52:00

---
 tex/context/base/mkiv/lpdf-wid.lua | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'tex/context/base/mkiv/lpdf-wid.lua')

diff --git a/tex/context/base/mkiv/lpdf-wid.lua b/tex/context/base/mkiv/lpdf-wid.lua
index 5793fc723..a929ed2ce 100644
--- a/tex/context/base/mkiv/lpdf-wid.lua
+++ b/tex/context/base/mkiv/lpdf-wid.lua
@@ -267,9 +267,13 @@ function codeinjections.embedfile(specification)
     local keepdir  = specification.keepdir -- can change
     local usedname = specification.usedname
     local filetype = specification.filetype
+    local compress = specification.compress
     if filename == "" then
         filename = nil
     end
+    if compress == nil then
+        compress = true
+    end
     if data then
         local r = filestreams[hash]
         if r == false then
@@ -324,7 +328,7 @@ function codeinjections.embedfile(specification)
         specification.data = true -- signal that still data but already flushed
     else
         local foundname = specification.foundname or filename
-        f = pdfflushstreamfileobject(foundname,a)
+        f = pdfflushstreamfileobject(foundname,a,compress)
     end
     local d = pdfdictionary {
         Type = pdfconstant("Filespec"),
@@ -663,6 +667,7 @@ local function insertrendering(specification)
             descriptor.EF = codeinjections.embedfile {
                 file     = filename,
                 mimetype = mimetype, -- yes or no
+                compress = false,
             }
         end
         local clip = pdfdictionary {
-- 
cgit v1.2.3