From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Apr 2006 21:21:08 +0000 (+0000)
Subject: (image-toggle-display): Handle tar and arc subfiles.
X-Git-Tag: emacs-pretest-22.0.90~3069
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df5b8a5364661aed18c7801c3ecfb3754b6f77c6;p=emacs.git

(image-toggle-display): Handle tar and arc subfiles.
---

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 258f852a4d6..1a55676e3c7 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -139,7 +139,11 @@ and showing the image as an image."
     ;; 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