From c828377e656bae3b4be8542c13b3e13bc5bca0f5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 29 Dec 1995 05:47:49 +0000 Subject: (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. --- lisp/jka-compr.el | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'lisp/jka-compr.el') 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 -- cgit v1.2.1