File auctex-11.85-preview.dif of Package emacs-auctex

Overview Repositories Revisions Requests Users Attributes Meta

File auctex-11.85-preview.dif of Package emacs-auctex (Revision 4a8a1599fa0fc33f00c248cf1fd72875)

Currently displaying revision 4a8a1599fa0fc33f00c248cf1fd72875 , Show latest

--- preview/preview.el
+++ preview/preview.el	2010-10-13 10:01:38.999927331 +0000
@@ -369,6 +369,10 @@ See also `preview-gs-command'."
 Buffer-local to the appropriate TeX process buffer.")
 (make-variable-buffer-local 'preview-gs-queue)
 
+(defvar preview-pdf-filename ""
+  "Name of the PDF file used for preview.")
+(make-variable-buffer-local 'preview-pdf-filename)
+
 (defvar preview-gs-outstanding nil
   "Overlays currently processed.")
 (make-variable-buffer-local 'preview-gs-outstanding)
@@ -704,7 +708,7 @@ Gets the usual PROCESS and STRING parame
 					 preview-gs-command-line)
 					" ") "''\n")
       (setq preview-gs-answer "")
-      (process-kill-without-query process)
+      (set-process-query-on-exit-flag process nil)
       (set-process-sentinel process #'preview-gs-sentinel)
       (set-process-filter process #'preview-gs-filter)
       (process-send-string process preview-gs-init-string)
@@ -1072,6 +1076,13 @@ 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 "<</PermitFileReading[%s %s]>> setuserparams .locksafe"
+		     (preview-ps-quote-filename file)
+		     (preview-ps-quote-filename preview-pdf-filename)))))
     (setq preview-gs-init-string
 	  (concat preview-gs-init-string
 		  (format "[%s(r)file]aload exch %s .runandhide aload pop "
@@ -3100,6 +3111,7 @@ If FAST is set, do a fast conversion."
 		      (setq tempdir TeX-active-tempdir
 			    pdfsource (funcall `,(car file) "pdf")))))
 	 (name "Preview-PDF2DSC"))
+    (setq preview-pdf-filename pdfsource)
     (setq TeX-active-tempdir tempdir)
     (setq preview-ps-file (preview-attach-filename
 			   pdfsource

Places

File auctex-11.85-preview.dif of Package emacs-auctex (Revision 4a8a1599fa0fc33f00c248cf1fd72875)

Places