From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 7 Sep 2019 12:53:57 +0000 (+0300)
Subject: Support visiting compressed image files
X-Git-Tag: emacs-27.0.90~1553^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14875443ff03d3c2b9cc63479e672957f99b730a;p=emacs.git

Support visiting compressed image files

* lisp/image-mode.el (image-toggle-display-image): Support
visiting compressed image files which are uncompressed by
jka-compr.el.  (Bug#37330)
---

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 5c30f4085c3..8630ac07e6d 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -720,6 +720,11 @@ was inserted."
 				     archive-superior-buffer))
 			   (not (and (boundp 'tar-superior-buffer)
 				     tar-superior-buffer))
+                           ;; This means the buffer holds the contents
+                           ;; of a file uncompressed by jka-compr.el.
+                           (not (and (local-variable-p
+                                      'jka-compr-really-do-compress)
+                                     jka-compr-really-do-compress))
                            ;; This means the buffer holds the
                            ;; decrypted content (bug#21870).
                            (not (and (boundp 'epa-file-encrypt-to)