# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 820437565 0
# Node ID 37c5ece37d71238dba1e9d48f79c9d31bfa802cd
# Parent  3fbe9b840379d766aed346a6eb3109d50a81d6c8
(auto-compression-mode): Add `interactive'.
Put \-newline in doc string.
(toggle-auto-compression): New arg MESSAGE.  Don't use interactive-p.

diff -r 3fbe9b840379 -r 37c5ece37d71 lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sun Dec 31 19:15:18 1995 +0000
+++ b/lisp/jka-compr.el	Sun Dec 31 19:19:25 1995 +0000
@@ -685,21 +685,25 @@
     (apply operation args)))
 
 ;;;###autoload(defun auto-compression-mode (&optional arg)
-;;;###autoload  "Toggle automatic file compression and uncompression.
+;;;###autoload  "\
+;;;###autoloadToggle 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  (interactive "P")
 ;;;###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))
+;;;###autoload  (toggle-auto-compression arg t))
 
-(defun toggle-auto-compression (&optional arg)
+(defun toggle-auto-compression (&optional arg message)
   "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)."
-  (interactive "P")
+Returns the new status of auto compression (non-nil means on).
+If the argument MESSAGE is non-nil, it means to print a message
+saying whether the mode is now on or off."
+  (interactive "P\np")
   (let* ((installed (jka-compr-installed-p))
 	 (flag (if (null arg)
 		   (not installed)
@@ -717,7 +721,7 @@
       (jka-compr-uninstall)))
 
 
-    (and (interactive-p)
+    (and message
 	 (if flag
 	     (message "Automatic file (de)compression is now ON.")
 	   (message "Automatic file (de)compression is now OFF.")))