# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1145395268 0
# Node ID 3e313b3afda58f26bf98392d80873f9ab2195f5a
# Parent  2820ef0bf77cb6672f7178fe5e2448e146f6bf5b
(image-toggle-display): Handle tar and arc subfiles.

diff -r 2820ef0bf77c -r 3e313b3afda5 lisp/image-mode.el
--- a/lisp/image-mode.el	Tue Apr 18 21:20:03 2006 +0000
+++ b/lisp/image-mode.el	Tue Apr 18 21:21:08 2006 +0000
@@ -139,7 +139,11 @@
     ;; was inserted
     (let* ((image
 	    (if (and (buffer-file-name)
-		     (not (buffer-modified-p)))
+		     (not (buffer-modified-p))
+		     (not (and (boundp 'archive-superior-buffer)
+			       archive-superior-buffer))
+		     (not (and (boundp 'tar-superior-buffer)
+			       tar-superior-buffer)))
 		(progn (clear-image-cache)
 		       (create-image (buffer-file-name)))
 	      (create-image