# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1132013223 0
# Node ID 224ffce45ccbe6f7d5779b49fa0a46f087cf3b48
# Parent  bbb6d767c36723d1f5c1fe4f31aa2b2372d4049e
(auto-compression-mode): Enable it in a way that works correctly for
Custom and that does not override a user who disables it.

diff -r bbb6d767c367 -r 224ffce45ccb lisp/jka-cmpr-hook.el
--- 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)