diff options
| author | Luc Teirlinck <[email protected]> | 2005-11-15 00:07:03 +0000 |
|---|---|---|
| committer | Luc Teirlinck <[email protected]> | 2005-11-15 00:07:03 +0000 |
| commit | 12d944296e9102ad445ec3327220a01ba6eb8c8a (patch) | |
| tree | f02846516db208d13f2dc3f982bd0991b0c3b6b5 | |
| parent | 70acba5ddab9e025aaf68a06765b459f8532353f (diff) | |
(auto-compression-mode): Enable it in a way that works correctly for
Custom and that does not override a user who disables it.
| -rw-r--r-- | lisp/jka-cmpr-hook.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el index 65f624c110..d2b374f560 100644 --- a/lisp/jka-cmpr-hook.el +++ b/lisp/jka-cmpr-hook.el @@ -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) |