--- preview.el 2009/06/18 19:20:46 1.284 +++ preview.el 2010/10/14 19:30:38 1.285 @@ -1,7 +1,7 @@ ;;; preview.el --- embed preview LaTeX images in source buffer -;; Copyright (C) 2001, 2002, 2003, 2004, 2005, -;; 2006 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2010 Free +;; Software Foundation, Inc. ;; Author: David Kastrup ;; Keywords: tex, wp, convenience @@ -23,7 +23,7 @@ ;;; Commentary: -;; $Id: preview.el,v 1.284 2009/06/18 19:20:46 angeli Exp $ +;; $Id: preview.el,v 1.285 2010/10/14 19:30:38 angeli Exp $ ;; ;; This style is for the "seamless" embedding of generated images ;; into LaTeX source code. Please see the README and INSTALL files @@ -355,7 +355,7 @@ :group 'preview-gs :type 'string) -(defcustom preview-gs-options '("-q" "-dSAFER" "-dNOPAUSE" +(defcustom preview-gs-options '("-q" "-dDELAYSAFER" "-dNOPAUSE" "-DNOPLATFONTS" "-dPrinted" "-dTextAlphaBits=4" "-dGraphicsAlphaBits=4") @@ -1066,14 +1066,21 @@ (defun preview-prepare-fast-conversion () "This fixes up all parameters for fast conversion." - (let ((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)))) + (let* ((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))) + (all-files (if (and (consp (car preview-ps-file)) + (consp (caar preview-ps-file))) + (caar preview-ps-file) + (list file)))) (setq preview-gs-dsc (preview-dsc-parse file)) (setq preview-gs-init-string - (concat preview-gs-init-string + (concat (format "{<</PermitFileReading[%s]>> setuserparams \ +.locksafe} stopped pop " + (mapconcat 'preview-ps-quote-filename all-files "")) + preview-gs-init-string (format "[%s(r)file]aload exch %s .runandhide aload pop " (preview-ps-quote-filename file) (preview-gs-dsc-cvx 0 preview-gs-dsc)))))) @@ -3512,7 +3519,7 @@ (defconst preview-version (eval-when-compile (let ((name "$Name: release_11_86 $") - (rev "$Revision: 1.284 $")) + (rev "$Revision: 1.285 $")) (or (when (string-match "\\`[$]Name: *release_\\([^ ]+\\) *[$]\\'" name) (setq name (match-string 1 name)) (while (string-match "_" name) @@ -3526,7 +3533,7 @@ (defconst preview-release-date (eval-when-compile - (let ((date "$Date: 2009/06/18 19:20:46 $")) + (let ((date "$Date: 2010/10/14 19:30:38 $")) (string-match "\\`[$]Date: *\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)" date)