[AUCTeX-diffs] Changes to auctex/preview/preview.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    11/01/23 18:53:55

Index: preview.el
===================================================================
RCS file: /cvsroot/auctex/auctex/preview/preview.el,v
retrieving revision 1.285
retrieving revision 1.286
diff -u -b -r1.285 -r1.286
--- preview.el  14 Oct 2010 19:30:38 -0000      1.285
+++ preview.el  23 Jan 2011 18:53:55 -0000      1.286
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; $Id: preview.el,v 1.285 2010/10/14 19:30:38 angeli Exp $
+;; $Id: preview.el,v 1.286 2011/01/23 18:53:55 angeli Exp $
 ;;
 ;; This style is for the "seamless" embedding of generated images
 ;; into LaTeX source code.  Please see the README and INSTALL files
@@ -1463,9 +1463,9 @@
 Fallback to :inherit and 'default implemented."
   :group 'preview-appearance)
 
-(defcustom preview-auto-reveal '(eval (preview-arrived-via
-                                      (key-binding [left])
-                                      (key-binding [right])))
+(defcustom preview-auto-reveal
+  '(eval (preview-arrived-via (key-binding [left]) (key-binding [right])
+                             'backward-char 'forward-char))
   "*Cause previews to open automatically when entered.
 Possibilities are:
 T autoopens,
@@ -3519,7 +3519,7 @@
 
 (defconst preview-version (eval-when-compile
   (let ((name "$Name:  $")
-       (rev "$Revision: 1.285 $"))
+       (rev "$Revision: 1.286 $"))
     (or (when (string-match "\\`[$]Name: *release_\\([^ ]+\\) *[$]\\'" name)
          (setq name (match-string 1 name))
          (while (string-match "_" name)
@@ -3533,7 +3533,7 @@
 
 (defconst preview-release-date
   (eval-when-compile
-    (let ((date "$Date: 2010/10/14 19:30:38 $"))
+    (let ((date "$Date: 2011/01/23 18:53:55 $"))
       (string-match
        "\\`[$]Date: *\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)"
        date)