]> git.eshelyaron.com Git - emacs.git/commitdiff
(auto-compression-mode): Enable it in a way that works correctly for
authorLuc Teirlinck <teirllm@auburn.edu>
Tue, 15 Nov 2005 00:07:03 +0000 (00:07 +0000)
committerLuc Teirlinck <teirllm@auburn.edu>
Tue, 15 Nov 2005 00:07:03 +0000 (00:07 +0000)
Custom and that does not override a user who disables it.

lisp/jka-cmpr-hook.el

index 65f624c110b7fcdd5c4900c476bfdc2830e53007..d2b374f560333f3632c047259f1883ceb0edeed2 100644 (file)
@@ -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)