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

1 files changed, 5 insertions, 1 deletions

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