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 4ba52ac8b613621de178b2bc28e9041b)

Currently displaying revision 4ba52ac8b613621de178b2bc28e9041b , Show latest

--- preview/preview.el
+++ preview/preview.el	2010-07-21 13:48:25.830924999 +0200
@@ -233,7 +233,7 @@ method, like when PDFTeX was used."
 		       (symbol :tag "Emacs image-type")
 		       (repeat :inline t :tag "Ghostscript options" string))))
 
-(defcustom preview-image-type 'png
+(defcustom preview-image-type 'dvipng
   "*Image type to be used in images."
   :group 'preview-gs
   :type (append '(choice)
@@ -682,29 +682,31 @@ 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
+	   (inputdir (format "-I%s/" (car TeX-active-tempdir)))
+	   (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)))
 	   (process
 	    (apply #'start-process
 		   "Preview-Ghostscript"
 		   (current-buffer)
 		   preview-gs-command
 		   outfile
+		   inputdir
 		   preview-gs-command-line)))
       (goto-char (point-max))
       (insert-before-markers "Running `Preview-Ghostscript' with ``"
 			     (mapconcat #'shell-quote-argument
 					(append
 					 (list preview-gs-command
-					       outfile)
+					       outfile
+					       inputdir)
 					 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)
@@ -1075,7 +1077,7 @@ NONREL is not NIL."
     (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 +1165,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

Places

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

Places