summaryrefslogtreecommitdiff
path: root/lisp/image-mode.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2019-09-07 15:53:57 +0300
committerEli Zaretskii <eliz@gnu.org>2019-09-07 15:53:57 +0300
commit14875443ff03d3c2b9cc63479e672957f99b730a (patch)
tree233efde2cd6e153f7367377061a08f64a41399a4 /lisp/image-mode.el
parent01a04880ca7469626a03ea10481d60c5ddec4663 (diff)
downloademacs-14875443ff03d3c2b9cc63479e672957f99b730a.tar.gz
emacs-14875443ff03d3c2b9cc63479e672957f99b730a.tar.bz2
emacs-14875443ff03d3c2b9cc63479e672957f99b730a.zip
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)
Diffstat (limited to 'lisp/image-mode.el')
-rw-r--r--lisp/image-mode.el5
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)