/[emacs]/emacs/lisp/jka-cmpr-hook.el
ViewVC logotype

Diff of /emacs/lisp/jka-cmpr-hook.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by monnier, Fri Nov 11 04:22:44 2005 UTC revision 1.7 by teirllm, Tue Nov 15 00:07:03 2005 UTC
# Line 244  The return value is the entry in `file-n Line 244  The return value is the entry in `file-n
244    "Toggle automatic file compression and uncompression.    "Toggle automatic file compression and uncompression.
245  With prefix argument ARG, turn auto compression on if positive, else off.  With prefix argument ARG, turn auto compression on if positive, else off.
246  Returns the new status of auto compression (non-nil means on)."  Returns the new status of auto compression (non-nil means on)."
247    :global t :group 'jka-compr    :global t :init-value t :group 'jka-compr
248    (let* ((installed (jka-compr-installed-p))    (let* ((installed (jka-compr-installed-p))
249           (flag auto-compression-mode))           (flag auto-compression-mode))
250      (cond      (cond
# Line 276  Returns the new status of auto compressi Line 276  Returns the new status of auto compressi
276                                        file-local-copy load))                                        file-local-copy load))
277    
278  ;; Turn on the mode.  ;; Turn on the mode.
279  (auto-compression-mode 1)  (when auto-compression-mode (auto-compression-mode 1))
280    
281  (provide 'jka-cmpr-hook)  (provide 'jka-cmpr-hook)
282    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26