diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-11-15 00:07:03 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-11-15 00:07:03 +0000 |
| commit | b1c890ccc6563267b50594951eb2828f0888661b (patch) | |
| tree | 51012a17784710bca8c70c748cadea8e5af0462b /lisp/jka-cmpr-hook.el | |
| parent | 5be69e61882b6f310b8f995496d61f1ebe0173ab (diff) | |
| download | emacs-b1c890ccc6563267b50594951eb2828f0888661b.tar.gz | |
(auto-compression-mode): Enable it in a way that works correctly for
Custom and that does not override a user who disables it.
Diffstat (limited to 'lisp/jka-cmpr-hook.el')
| -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 65f624c110b..d2b374f5603 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) |