Add Page Spot color list to output info

1 files changed, 19 insertions, 1 deletions

diff --git a/lib/pdf_info.ps b/lib/pdf_info.ps
index b69a15c34..3ea2454e5 100644
--- a/lib/pdf_info.ps
+++ b/lib/pdf_info.ps
@@ -249,9 +249,27 @@ cleartomark		% discard the dict from --where--
        pop
         (     Page contains Annotations) print
     } if
-    pageusestransparency {
+    dup pageusestransparency {
         (     Page uses transparency features) print
     } if
+    dup pagespotcolors
+    dup length 0 gt {
+      (\n    Page Spot colors: ) =
+      << /Black 0 /Cyan 0 /Magenta 0 /Yellow 0 >> exch
+      {
+        pop	% discard the value
+        1 index 1 index known not {	% check if colorant is a standard one
+          (        ) print
+          (') print =print (') =
+        } {
+          pop	% ignore this standard colorant
+        } ifelse
+      } forall
+      pop	% discard dict of standard colorants
+    } {
+      pop
+    } ifelse
+    pop		% done with pagedict
     () = flush
   }
   {