diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-12-29 05:47:49 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-12-29 05:47:49 +0000 |
commit | c828377e656bae3b4be8542c13b3e13bc5bca0f5 (patch) | |
tree | 0944da5656be6c86d78c2141a9cd810414a5de96 /lisp/jka-compr.el | |
parent | 541dd56aced6bcb193bb8b77268c211b98024c1d (diff) | |
download | emacs-c828377e656bae3b4be8542c13b3e13bc5bca0f5.tar.gz |
(auto-compression-mode): This is now a stub function
that calls toggle-auto-compression, and is put bodily into loaddefs.el.
(toggle-auto-compression): Renamed from auto-compression-mode.
Not autloaded.
Diffstat (limited to 'lisp/jka-compr.el')
-rw-r--r-- | lisp/jka-compr.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 0de44c5bbed..4ca353358a1 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -684,8 +684,18 @@ There should be no more than seven characters after the final `/'") (inhibit-file-name-operation operation)) (apply operation args))) -;;;###autoload -(defun auto-compression-mode (&optional arg) +;;;###autoload(defun auto-compression-mode (&optional arg) +;;;###autoload "Toggle automatic file compression and uncompression. +;;;###autoloadWith prefix argument ARG, turn auto compression on if positive, else off. +;;;###autoloadReturns the new status of auto compression (non-nil means on)." +;;;###autoload (if (not (fboundp 'jka-compr-installed-p)) +;;;###autoload (progn +;;;###autoload (require 'jka-compr) +;;;###autoload ;; That turned the mode on, so make it initially off. +;;;###autoload (toggle-auto-compression))) +;;;###autoload (toggle-auto-compression arg)) + +(defun toggle-auto-compression (&optional arg) "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)." @@ -713,7 +723,6 @@ Returns the new status of auto compression (non-nil means on)." (message "Automatic file (de)compression is now OFF."))) flag)) -(defalias 'toggle-auto-compression 'auto-compression-mode) (defun jka-compr-build-file-regexp () (concat |