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 2010-08-12 09:13:54.697159903 +0000
|
||||
@@ -704,7 +704,7 @@ Gets the usual PROCESS and STRING parame
|
||||
+++ 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 "")
|
||||
@ -9,7 +20,7 @@
|
||||
(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."
|
||||
@@ -1072,6 +1076,13 @@ NONREL is not NIL."
|
||||
(caar preview-ps-file))
|
||||
(car preview-ps-file))))
|
||||
(setq preview-gs-dsc (preview-dsc-parse file))
|
||||
@ -17,8 +28,17 @@
|
||||
+ (append (list "-dDELAYSAFER")
|
||||
+ (remove "-dSAFER" preview-gs-command-line)
|
||||
+ (list "-c"
|
||||
+ (format "<</PermitFileReading[%s]>> setuserparams .locksafe"
|
||||
+ (preview-ps-quote-filename file)))))
|
||||
+ (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
|
||||
|
@ -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
|
||||
|
||||
|
@ -27,7 +27,7 @@ Provides: auc-tex auctex ge_auc
|
||||
Requires: emacs texlive-tools texlive-latex
|
||||
AutoReqProv: on
|
||||
Version: 11.86
|
||||
Release: 3
|
||||
Release: 4
|
||||
Summary: AUC TeX: An Emacs Extension
|
||||
Source: ftp://ftp.gnu.org/pub/gnu/auctex/auctex-%{version}.tar.bz2
|
||||
Url: http://www.gnu.org/software/auctex
|
||||
|
Loading…
Reference in New Issue
Block a user