;;; preview.el --- embed preview LaTeX images in source buffer
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2010 Free
-;; Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005,
+;; 2006 Free Software Foundation, Inc.
;; Author: David Kastrup
;; Keywords: tex, wp, convenience
;;; Commentary:
-;; $Id: preview.el,v 1.286 2011/01/23 18:53:55 angeli Exp $
+;; $Id: preview.el,v 1.284 2009/06/18 19:20:46 angeli Exp $
;;
;; This style is for the "seamless" embedding of generated images
;; into LaTeX source code. Please see the README and INSTALL files
:group 'preview-gs
:type 'string)
-(defcustom preview-gs-options '("-q" "-dDELAYSAFER" "-dNOPAUSE"
+(defcustom preview-gs-options '("-q" "-dSAFER" "-dNOPAUSE"
"-DNOPLATFONTS" "-dPrinted"
"-dTextAlphaBits=4"
"-dGraphicsAlphaBits=4")
(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)))
- (all-files (if (and (consp (car preview-ps-file))
- (consp (caar preview-ps-file)))
- (caar preview-ps-file)
- (list 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))))
(setq preview-gs-dsc (preview-dsc-parse file))
(setq preview-gs-init-string
- (concat (format "{<</PermitFileReading[%s]>> setuserparams \
-.locksafe} stopped pop "
- (mapconcat 'preview-ps-quote-filename all-files ""))
- preview-gs-init-string
+ (concat 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))))))
Fallback to :inherit and 'default implemented."
:group 'preview-appearance)
-(defcustom preview-auto-reveal
- '(eval (preview-arrived-via (key-binding [left]) (key-binding [right])
- 'backward-char 'forward-char))
+(defcustom preview-auto-reveal '(eval (preview-arrived-via
+ (key-binding [left])
+ (key-binding [right])))
"*Cause previews to open automatically when entered.
Possibilities are:
T autoopens,
(preview-reraise-error process)))))
(defconst preview-version (eval-when-compile
- (let ((name "$Name: release_11_87 $")
- (rev "$Revision: 1.286 $"))
+ (let ((name "$Name: release_11_86 $")
+ (rev "$Revision: 1.284 $"))
(or (when (string-match "\\`[$]Name: *release_\\([^ ]+\\) *[$]\\'" name)
(setq name (match-string 1 name))
(while (string-match "_" name)
(defconst preview-release-date
(eval-when-compile
- (let ((date "$Date: 2011/01/23 18:53:55 $"))
+ (let ((date "$Date: 2009/06/18 19:20:46 $"))
(string-match
"\\`[$]Date: *\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)"
date)