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

[David Kastrup]

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

Index: prv-xemacs.el
===================================================================
RCS file: /sources/auctex/auctex/preview/prv-xemacs.el,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -b -r1.76 -r1.77
--- prv-xemacs.el       1 Sep 2006 09:41:57 -0000       1.76
+++ prv-xemacs.el       18 Oct 2006 17:45:01 -0000      1.77
@@ -1,7 +1,7 @@
 ;;; prv-xemacs.el --- XEmacs support for preview-latex
 
-;; Copyright (C) 2001, 02, 03, 04, 05 Free Software Foundation, Inc.
-;; Parts (C)  2002 Nick Alcock.
+;; Copyright (C) 2001, 02, 03, 04, 05,
+;;               2006 Free Software Foundation, Inc.
 
 ;; Author: David Kastrup
 ;; Keywords: convenience, tex, wp
@@ -39,9 +39,12 @@
     "List of macros only present when compiling/loading uncompiled.")
 
   (defmacro preview-defmacro (name &rest rest)
-    (unless (fboundp name)
-      (push name preview-compatibility-macros)
-      `(eval-when-compile (defmacro ,name ,@rest))))
+    (push 
+     (if (functionp name)
+        (cons name (symbol-function name))
+       name)
+     preview-compatibility-macros)
+    `(eval-when-compile (defmacro ,name ,@rest)))
   (push 'preview-defmacro preview-compatibility-macros))
 
 (preview-defmacro assoc-default (key alist test)
@@ -57,8 +60,8 @@
 
 ;; This is not quite the case, but unless we're playing with duplicable 
extents,
 ;; the two are equivalent in XEmacs.
-(unless (fboundp 'match-string-no-properties)
-  (define-compatible-function-alias 'match-string-no-properties 'match-string))
+(preview-defmacro match-string-no-properties (&rest args)
+  `(match-string ,@args))
 
 (preview-defmacro face-attribute (face attr)
   (cond