From: Luc Teirlinck <teirllm@auburn.edu>
Date: Tue, 15 Nov 2005 00:07:03 +0000 (+0000)
Subject: (auto-compression-mode): Enable it in a way that works correctly for
X-Git-Tag: emacs-pretest-22.0.90~5898
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12d944296e9102ad445ec3327220a01ba6eb8c8a;p=emacs.git

(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 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)