244 |
"Toggle automatic file compression and uncompression. |
"Toggle automatic file compression and uncompression. |
245 |
With prefix argument ARG, turn auto compression on if positive, else off. |
With prefix argument ARG, turn auto compression on if positive, else off. |
246 |
Returns the new status of auto compression (non-nil means on)." |
Returns the new status of auto compression (non-nil means on)." |
247 |
:global t :group 'jka-compr |
:global t :init-value t :group 'jka-compr |
248 |
(let* ((installed (jka-compr-installed-p)) |
(let* ((installed (jka-compr-installed-p)) |
249 |
(flag auto-compression-mode)) |
(flag auto-compression-mode)) |
250 |
(cond |
(cond |
276 |
file-local-copy load)) |
file-local-copy load)) |
277 |
|
|
278 |
;; Turn on the mode. |
;; Turn on the mode. |
279 |
(auto-compression-mode 1) |
(when auto-compression-mode (auto-compression-mode 1)) |
280 |
|
|
281 |
(provide 'jka-cmpr-hook) |
(provide 'jka-cmpr-hook) |
282 |
|
|