Mercurial > emacs
changeset 13887:4362f8b4f83c
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 29 Dec 1995 05:47:49 +0000 |
| parents | d7591ab6c259 |
| children | 8838c82fd058 |
| files | lisp/jka-compr.el |
| diffstat | 1 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-compr.el Fri Dec 29 04:14:10 1995 +0000 +++ b/lisp/jka-compr.el Fri Dec 29 05:47:49 1995 +0000 @@ -684,8 +684,18 @@ (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 @@ (message "Automatic file (de)compression is now OFF."))) flag)) -(defalias 'toggle-auto-compression 'auto-compression-mode) (defun jka-compr-build-file-regexp () (concat