Updating link to change in openSUSE:Factory/emacs-auctex revision 16.0
OBS-URL: https://build.opensuse.org/package/show/editors/emacs-auctex?expand=0&rev=893ee836282826fac08255b251b2da1a
This commit is contained in:
parent
38c1bca6fd
commit
b3cfd4c6c6
@ -1,43 +1,6 @@
|
|||||||
--- preview/preview.el
|
--- preview/preview.el
|
||||||
+++ preview/preview.el 2010-07-21 13:48:25.830924999 +0200
|
+++ preview/preview.el 2010-08-12 09:13:54.697159903 +0000
|
||||||
@@ -233,7 +233,7 @@ method, like when PDFTeX was used."
|
@@ -704,7 +704,7 @@ Gets the usual PROCESS and STRING parame
|
||||||
(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)
|
preview-gs-command-line)
|
||||||
" ") "''\n")
|
" ") "''\n")
|
||||||
(setq preview-gs-answer "")
|
(setq preview-gs-answer "")
|
||||||
@ -46,21 +9,16 @@
|
|||||||
(set-process-sentinel process #'preview-gs-sentinel)
|
(set-process-sentinel process #'preview-gs-sentinel)
|
||||||
(set-process-filter process #'preview-gs-filter)
|
(set-process-filter process #'preview-gs-filter)
|
||||||
(process-send-string process preview-gs-init-string)
|
(process-send-string process preview-gs-init-string)
|
||||||
@@ -1075,7 +1077,7 @@ NONREL is not NIL."
|
@@ -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
|
(setq preview-gs-init-string
|
||||||
(concat preview-gs-init-string
|
(concat preview-gs-init-string
|
||||||
(format "[%s(r)file]aload exch %s .runandhide aload pop "
|
(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
|
|
||||||
|
@ -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
|
Sun Jul 25 07:20:32 UTC 2010 - aj@suse.de
|
||||||
|
|
||||||
|
@ -27,7 +27,7 @@ Provides: auc-tex auctex ge_auc
|
|||||||
Requires: emacs texlive-tools texlive-latex
|
Requires: emacs texlive-tools texlive-latex
|
||||||
AutoReqProv: on
|
AutoReqProv: on
|
||||||
Version: 11.86
|
Version: 11.86
|
||||||
Release: 2
|
Release: 3
|
||||||
Summary: AUC TeX: An Emacs Extension
|
Summary: AUC TeX: An Emacs Extension
|
||||||
Source: ftp://ftp.gnu.org/pub/gnu/auctex/auctex-%{version}.tar.bz2
|
Source: ftp://ftp.gnu.org/pub/gnu/auctex/auctex-%{version}.tar.bz2
|
||||||
Url: http://www.gnu.org/software/auctex
|
Url: http://www.gnu.org/software/auctex
|
||||||
|
Loading…
x
Reference in New Issue
Block a user