rpm/emacs-auctex
SHA256
1
0
Fork 0
forked from pool/emacs-auctex
Code Pull Requests Activity

.

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/editors/emacs-auctex?expand=0&rev=8
This commit is contained in:
Dr. Werner Fink 2010-08-11 16:59:24 +00:00 committed by Git OBS Bridge
parent 6ebbfcea59
commit 86ca80d60a
2 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
auctex-11.85-preview.dif
View File

@ -1,44 +1,48 @@
--- 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
+++ preview/preview.el 2010-08-11 16:57:59.429024953 +0000
@@ -682,29 +682,43 @@ 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)))
+ (file (if (consp (car preview-ps-file))
+ (if (consp (caar preview-ps-file))
+ (car (last (caar preview-ps-file)))
+ (caar preview-ps-file))
+ (car preview-ps-file)))
+ (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)))
+ (command-line
+ (append
+ ; First replace SAFER by DELAYSAFER, we then allow reading
+ ; the preview file and after this switch over to SAFER mode
+ ; by using the .locksafe operator
+ (list "-dDELAYSAFER")
+ (remove "-dSAFER" preview-gs-command-line)
+ (list "-c"
+ (format "<</PermitFileReading[%s]>> setuserparams .locksafe"
+ (preview-ps-quote-filename file t)))))
(process
(apply #'start-process
"Preview-Ghostscript"
(current-buffer)
preview-gs-command
outfile
+ inputdir
preview-gs-command-line)))
- preview-gs-command-line)))
+ 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)
outfile)
- preview-gs-command-line)
+ command-line)
" ") "''\n")
(setq preview-gs-answer "")
- (process-kill-without-query process)
@ -46,7 +50,7 @@
(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."
@@ -1075,7 +1089,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 "
@ -55,7 +59,7 @@
(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
@@ -1163,7 +1177,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)))

5
emacs-auctex.changes
View File

@ -1,3 +1,8 @@
-------------------------------------------------------------------
Wed Aug 11 18:58:43 CEST 2010 - werner@suse.de
- Make fix for bnc#623719 more flexible
-------------------------------------------------------------------
Sun Jul 25 07:20:32 UTC 2010 - aj@suse.de