From e5220563c85767b5a310d85f5c5c7a3c6a07309d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 31 Dec 1995 19:19:25 +0000 Subject: [PATCH] (auto-compression-mode): Add `interactive'. Put \-newline in doc string. (toggle-auto-compression): New arg MESSAGE. Don't use interactive-p. --- lisp/jka-compr.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 4ca353358a1..f7d6e5e2e2b 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -685,21 +685,25 @@ There should be no more than seven characters after the final `/'") (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 @@ Returns the new status of auto compression (non-nil means on)." (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."))) -- 2.39.2