Commit 12d94429 authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(auto-compression-mode): Enable it in a way that works correctly for

Custom and that does not override a user who disables it.
parent 70acba5d
......@@ -244,7 +244,7 @@ The return value is the entry in `file-name-handler-alist' for jka-compr."
"Toggle automatic file compression and uncompression.
With prefix argument ARG, turn auto compression on if positive, else off.
Returns the new status of auto compression (non-nil means on)."
:global t :group 'jka-compr
:global t :init-value t :group 'jka-compr
(let* ((installed (jka-compr-installed-p))
(flag auto-compression-mode))
(cond
......@@ -276,7 +276,7 @@ Returns the new status of auto compression (non-nil means on)."
file-local-copy load))
;; Turn on the mode.
(auto-compression-mode 1)
(when auto-compression-mode (auto-compression-mode 1))
(provide 'jka-cmpr-hook)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment