[Emacs-diffs] Changes to emacs/lisp/jka-cmpr-hook.el

[Luc Teirlinck]

Index: emacs/lisp/jka-cmpr-hook.el
diff -c emacs/lisp/jka-cmpr-hook.el:1.6 emacs/lisp/jka-cmpr-hook.el:1.7
*** emacs/lisp/jka-cmpr-hook.el:1.6     Fri Nov 11 04:22:44 2005
--- emacs/lisp/jka-cmpr-hook.el Tue Nov 15 00:07:03 2005
***************
*** 244,250 ****
    "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
    (let* ((installed (jka-compr-installed-p))
         (flag auto-compression-mode))
      (cond
--- 244,250 ----
    "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 :init-value t :group 'jka-compr
    (let* ((installed (jka-compr-installed-p))
         (flag auto-compression-mode))
      (cond
***************
*** 276,282 ****
                                      file-local-copy load))
  
  ;; Turn on the mode.
! (auto-compression-mode 1)
  
  (provide 'jka-cmpr-hook)
  
--- 276,282 ----
                                      file-local-copy load))
  
  ;; Turn on the mode.
! (when auto-compression-mode (auto-compression-mode 1))
  
  (provide 'jka-cmpr-hook)