diff options
| -rw-r--r-- | lisp/info.el | 6 |
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) |