-raw fixes

This commit is contained in:
John Whitington 2014-01-14 13:38:40 +00:00
parent 0dd958c95b
commit 51cf7e949d
3 changed files with 1 additions and 2 deletions

View File

@ -881,7 +881,6 @@ let set_viewer_preference (key, value, version) pdf =
(* \section{Set an entry in the /Info dictionary} *) (* \section{Set an entry in the /Info dictionary} *)
let set_pdf_info (key, value, version) pdf = let set_pdf_info (key, value, version) pdf =
Printf.printf "set_pdf_info: %s %s\n" key (Pdfwrite.string_of_pdf value);
let infodict = let infodict =
match Pdf.lookup_direct pdf "/Info" pdf.Pdf.trailerdict with match Pdf.lookup_direct pdf "/Info" pdf.Pdf.trailerdict with
| Some d -> d | Some d -> d

View File

@ -2976,7 +2976,6 @@ let go () =
| Some ((SetAuthor _ | SetTitle _ | SetSubject _ | SetKeywords _ | Some ((SetAuthor _ | SetTitle _ | SetSubject _ | SetKeywords _
| SetCreate _ | SetModify _ | SetCreator _ | SetProducer _ | SetCreate _ | SetModify _ | SetCreator _ | SetProducer _
| SetTrapped | SetUntrapped) as op) -> | SetTrapped | SetUntrapped) as op) ->
flprint "a set operation\n";
let key, value, version = let key, value, version =
let f s = if args.encoding <> Cpdf.Raw then Pdftext.pdfdocstring_of_utf8 s else unescape_octals s in let f s = if args.encoding <> Cpdf.Raw then Pdftext.pdfdocstring_of_utf8 s else unescape_octals s in
match op with match op with

View File

@ -5,6 +5,7 @@
% Explain quadruple backslash on command line leading to single real slash \\\\ -> \\ -> \ % Explain quadruple backslash on command line leading to single real slash \\\\ -> \\ -> \
% Explain page labels in -page-info and new -add-page-labels functionality % Explain page labels in -page-info and new -add-page-labels functionality
% Correct the documentation for -diagonal and -reverse-diagonal % Correct the documentation for -diagonal and -reverse-diagonal
% Explain octal escape sequences in meta fields with -raw
\documentclass[a4paper,makeidx]{memoir} \documentclass[a4paper,makeidx]{memoir}
\usepackage{palatino} \usepackage{palatino}