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

[David Kastrup]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     David Kastrup <dak>     06/09/01 09:41:57

Index: prv-xemacs.el
===================================================================
RCS file: /sources/auctex/auctex/preview/prv-xemacs.el,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -b -r1.75 -r1.76
--- prv-xemacs.el       25 May 2006 07:50:57 -0000      1.75
+++ prv-xemacs.el       1 Sep 2006 09:41:57 -0000       1.76
@@ -738,15 +738,22 @@
 
 (defun preview-import-image (image)
   "Convert the printable IMAGE rendition back to an image."
-  (if (eq (car image) 'image)
+  (cond ((stringp image)
+        (setq image (copy-sequence image))
+        (add-text-properties 0 (length image)
+                             '(face preview-face)
+                             image)
+        image)
+       ((eq (car image) 'image)
       (let ((plist (cdr image)))
        (preview-create-icon-1
         (plist-get plist :file)
         (plist-get plist :type)
-        (plist-get plist :ascent)))
+           (plist-get plist :ascent))))
+       (t
     (preview-create-icon-1 (nth 0 image)
                         (nth 1 image)
-                        (nth 2 image))))
+                               (nth 2 image)))))
 
 (provide 'prv-xemacs)