Accepting request 50473 from editors
Copy from editors/emacs-auctex based on submit request 50473 from user WernerFink OBS-URL: https://build.opensuse.org/request/show/50473 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/emacs-auctex?expand=0&rev=17
This commit is contained in:
parent
2a61e7e160
commit
9580de455c
@ -1,6 +1,17 @@
|
|||||||
--- preview/preview.el
|
--- preview/preview.el
|
||||||
+++ preview/preview.el 2010-08-12 09:13:54.697159903 +0000
|
+++ preview/preview.el 2010-10-13 10:01:38.999927331 +0000
|
||||||
@@ -704,7 +704,7 @@ Gets the usual PROCESS and STRING parame
|
@@ -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)
|
preview-gs-command-line)
|
||||||
" ") "''\n")
|
" ") "''\n")
|
||||||
(setq preview-gs-answer "")
|
(setq preview-gs-answer "")
|
||||||
@ -9,7 +20,7 @@
|
|||||||
(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)
|
||||||
@@ -1072,6 +1072,12 @@ NONREL is not NIL."
|
@@ -1072,6 +1076,13 @@ NONREL is not NIL."
|
||||||
(caar preview-ps-file))
|
(caar preview-ps-file))
|
||||||
(car preview-ps-file))))
|
(car preview-ps-file))))
|
||||||
(setq preview-gs-dsc (preview-dsc-parse file))
|
(setq preview-gs-dsc (preview-dsc-parse file))
|
||||||
@ -17,8 +28,17 @@
|
|||||||
+ (append (list "-dDELAYSAFER")
|
+ (append (list "-dDELAYSAFER")
|
||||||
+ (remove "-dSAFER" preview-gs-command-line)
|
+ (remove "-dSAFER" preview-gs-command-line)
|
||||||
+ (list "-c"
|
+ (list "-c"
|
||||||
+ (format "<</PermitFileReading[%s]>> setuserparams .locksafe"
|
+ (format "<</PermitFileReading[%s %s]>> setuserparams .locksafe"
|
||||||
+ (preview-ps-quote-filename file)))))
|
+ (preview-ps-quote-filename file)
|
||||||
|
+ (preview-ps-quote-filename preview-pdf-filename)))))
|
||||||
(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 "
|
||||||
|
@@ -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
|
||||||
|
@ -1,3 +1,9 @@
|
|||||||
|
-------------------------------------------------------------------
|
||||||
|
Wed Oct 13 12:09:48 CEST 2010 - werner@suse.de
|
||||||
|
|
||||||
|
- Allow also to read PDF file its self to be able to generate the
|
||||||
|
descriptions of those file (based on patch of Dieter Jurzitza)
|
||||||
|
|
||||||
-------------------------------------------------------------------
|
-------------------------------------------------------------------
|
||||||
Wed Aug 11 18:58:43 CEST 2010 - werner@suse.de
|
Wed Aug 11 18:58:43 CEST 2010 - werner@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: 3
|
Release: 4
|
||||||
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