forked from pool/emacs-auctex
6c288dc724
- Remove redundant/obsolete tags/sections from specfile (cf. packaging guidelines) - Use %_smp_mflags for parallel build OBS-URL: https://build.opensuse.org/request/show/83418 OBS-URL: https://build.opensuse.org/package/show/editors/emacs-auctex?expand=0&rev=13
45 lines
1.8 KiB
Plaintext
45 lines
1.8 KiB
Plaintext
--- 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
|