From df5b8a5364661aed18c7801c3ecfb3754b6f77c6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 Apr 2006 21:21:08 +0000 Subject: (image-toggle-display): Handle tar and arc subfiles. --- lisp/image-mode.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/image-mode.el') 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 -- cgit v1.2.3