aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/info.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el
index cb517c9bb3a..be58d065049 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -129,6 +129,12 @@ Do the right thing if the file has been compressed or zipped."
129 (setq tail (cdr tail))) 129 (setq tail (cdr tail)))
130 (setq fullname (concat filename (car (car tail))) 130 (setq fullname (concat filename (car (car tail)))
131 decoder (cdr (car tail))) 131 decoder (cdr (car tail)))
132 ;; check for conflict with jka-compr
133 (if (and (featurep 'jka-compr)
134 (jka-compr-installed-p)
135 (jka-compr-get-compression-info (concat filename
136 (car (car tail)))))
137 (setq decoder nil))
132 (or tail 138 (or tail
133 (error "Can't find %s or any compressed version of it!" filename))) 139 (error "Can't find %s or any compressed version of it!" filename)))
134 (insert-file-contents fullname visit) 140 (insert-file-contents fullname visit)