forked from pool/emacs-auctex
b3cfd4c6c6
OBS-URL: https://build.opensuse.org/package/show/editors/emacs-auctex?expand=0&rev=893ee836282826fac08255b251b2da1a
25 lines
1.0 KiB
Plaintext
25 lines
1.0 KiB
Plaintext
--- preview/preview.el
|
|
+++ 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)
|
|
+ (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 +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 "<</PermitFileReading[%s]>> 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 "
|