forked from pool/emacs-auctex
a4f4647b25
Copy from editors/emacs-auctex based on submit request 43610 from user WernerFink OBS-URL: https://build.opensuse.org/request/show/43610 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/emacs-auctex?expand=0&rev=14
67 lines
2.4 KiB
Plaintext
67 lines
2.4 KiB
Plaintext
--- 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
|