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

[David Kastrup]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     David Kastrup <dak>     06/10/18 17:45:01

Index: preview.el
===================================================================
RCS file: /sources/auctex/auctex/preview/preview.el,v
retrieving revision 1.276
retrieving revision 1.277
diff -u -b -r1.276 -r1.277
--- preview.el  18 Oct 2006 13:49:21 -0000      1.276
+++ preview.el  18 Oct 2006 17:45:01 -0000      1.277
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; $Id: preview.el,v 1.276 2006/10/18 13:49:21 dak Exp $
+;; $Id: preview.el,v 1.277 2006/10/18 17:45:01 dak Exp $
 ;;
 ;; This style is for the "seamless" embedding of generated images
 ;; into LaTeX source code.  Please see the README and INSTALL files
@@ -3505,7 +3505,7 @@
 
 (defconst preview-version (eval-when-compile
   (let ((name "$Name:  $")
-       (rev "$Revision: 1.276 $"))
+       (rev "$Revision: 1.277 $"))
     (or (when (string-match "\\`[$]Name: *release_\\([^ ]+\\) *[$]\\'" name)
          (setq name (match-string 1 name))
          (while (string-match "_" name)
@@ -3519,7 +3519,7 @@
 
 (defconst preview-release-date
   (eval-when-compile
-    (let ((date "$Date: 2006/10/18 13:49:21 $"))
+    (let ((date "$Date: 2006/10/18 17:45:01 $"))
       (string-match
        "\\`[$]Date: *\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)"
        date)
@@ -3592,7 +3592,10 @@
 
 (eval-when-compile
   (when (boundp 'preview-compatibility-macros)
-    (mapc #'fmakunbound preview-compatibility-macros)))
+    (dolist (elt preview-compatibility-macros)
+      (if (consp elt)
+         (fset (car elt) (cdr elt))
+       (fmakunbound elt)))))
 
 (makunbound 'preview-compatibility-macros)