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)

1 files changed, 5 insertions, 0 deletions

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)