Mercurial > emacs
changeset 13900:37c5ece37d71
(auto-compression-mode): Add `interactive'.
Put \-newline in doc string.
(toggle-auto-compression): New arg MESSAGE. Don't use interactive-p.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 31 Dec 1995 19:19:25 +0000 |
| parents | 3fbe9b840379 |
| children | c9243845a191 |
| files | lisp/jka-compr.el |
| diffstat | 1 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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.")))