Mercurial > emacs
changeset 66876:224ffce45ccb
(auto-compression-mode): Enable it in a way that works correctly for
Custom and that does not override a user who disables it.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Tue, 15 Nov 2005 00:07:03 +0000 |
| parents | bbb6d767c367 |
| children | cbefce182d81 |
| files | lisp/jka-cmpr-hook.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-cmpr-hook.el Tue Nov 15 00:05:27 2005 +0000 +++ b/lisp/jka-cmpr-hook.el Tue Nov 15 00:07:03 2005 +0000 @@ -244,7 +244,7 @@ "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 @@ file-local-copy load)) ;; Turn on the mode. -(auto-compression-mode 1) +(when auto-compression-mode (auto-compression-mode 1)) (provide 'jka-cmpr-hook)