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

Custom and that does not override a user who disables it.

diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el
index 65f624c110b7fcdd5c4900c476bfdc2830e53007..d2b374f560333f3632c047259f1883ceb0edeed2 100644 (file)
--- 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)