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 5c30f4085c34f278e8ae7478a5ed52bcd5e83750..8630ac07e6d3d16690c51a499e3e5f67b82ab553 100644 (file)
--- 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)