diff --git a/auctex-11.85-preview.dif b/auctex-11.85-preview.dif index 16fbe27..5c494b7 100644 --- a/auctex-11.85-preview.dif +++ b/auctex-11.85-preview.dif @@ -1,48 +1,7 @@ --- preview/preview.el -+++ preview/preview.el 2010-08-11 16:57:59.429024953 +0000 -@@ -682,29 +682,43 @@ Gets the usual PROCESS and STRING parame - (setq preview-gs-sequence (list 1))) - (setcdr preview-gs-sequence 1) - (let* ((process-connection-type nil) -- (outfile (format "-dOutputFile=%s" -- (preview-ps-quote-filename -+ (file (if (consp (car preview-ps-file)) -+ (if (consp (caar preview-ps-file)) -+ (car (last (caar preview-ps-file))) -+ (caar preview-ps-file)) -+ (car preview-ps-file))) -+ (outfile (format "-sOutputFile=%s" - (format "%s/pr%d-%%d.%s" - (car TeX-active-tempdir) - (car preview-gs-sequence) -- preview-gs-image-type)))) -+ preview-gs-image-type))) -+ (command-line -+ (append -+ ; First replace SAFER by DELAYSAFER, we then allow reading -+ ; the preview file and after this switch over to SAFER mode -+ ; by using the .locksafe operator -+ (list "-dDELAYSAFER") -+ (remove "-dSAFER" preview-gs-command-line) -+ (list "-c" -+ (format "<> setuserparams .locksafe" -+ (preview-ps-quote-filename file t))))) - (process - (apply #'start-process - "Preview-Ghostscript" - (current-buffer) - preview-gs-command - outfile -- preview-gs-command-line))) -+ command-line))) - (goto-char (point-max)) - (insert-before-markers "Running `Preview-Ghostscript' with ``" - (mapconcat #'shell-quote-argument - (append - (list preview-gs-command - outfile) -- preview-gs-command-line) -+ command-line) ++++ preview/preview.el 2010-08-12 09:13:54.697159903 +0000 +@@ -704,7 +704,7 @@ Gets the usual PROCESS and STRING parame + preview-gs-command-line) " ") "''\n") (setq preview-gs-answer "") - (process-kill-without-query process) @@ -50,21 +9,16 @@ (set-process-sentinel process #'preview-gs-sentinel) (set-process-filter process #'preview-gs-filter) (process-send-string process preview-gs-init-string) -@@ -1075,7 +1089,7 @@ NONREL is not NIL." +@@ -1072,6 +1072,12 @@ NONREL is not NIL." + (caar preview-ps-file)) + (car preview-ps-file)))) + (setq preview-gs-dsc (preview-dsc-parse file)) ++ (setq preview-gs-command-line ++ (append (list "-dDELAYSAFER") ++ (remove "-dSAFER" preview-gs-command-line) ++ (list "-c" ++ (format "<> setuserparams .locksafe" ++ (preview-ps-quote-filename file))))) (setq preview-gs-init-string (concat preview-gs-init-string (format "[%s(r)file]aload exch %s .runandhide aload pop " -- (preview-ps-quote-filename file) -+ (preview-ps-quote-filename file t) - (preview-gs-dsc-cvx 0 preview-gs-dsc)))))) - - (defun preview-gs-urgentize (ov buff) -@@ -1163,7 +1177,7 @@ Try \\[ps-shell] and \\[ps-execute-buffe - "Make an eps error flag in overlay OV for ERR string." - (let* ((filenames (overlay-get ov 'filenames)) - (file (car (nth 0 filenames))) -- (outfile (format "-dOutputFile=%s" -+ (outfile (format "-sOutputFile=%s" - (preview-ps-quote-filename - (car (nth 1 filenames))))) - (ps-open