Mercurial > emacs
comparison lisp/jka-compr.el @ 33190:c33775f5049b
(auto-compression-mode): Drop unneeded positional args.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 03 Nov 2000 22:25:46 +0000 |
| parents | 447210134c3b |
| children | 8a132d69a4df |
comparison
equal
deleted
inserted
replaced
| 33189:069c840c65d8 | 33190:c33775f5049b |
|---|---|
| 887 ;;;###autoload | 887 ;;;###autoload |
| 888 (define-minor-mode auto-compression-mode | 888 (define-minor-mode auto-compression-mode |
| 889 "Toggle automatic file compression and uncompression. | 889 "Toggle automatic file compression and uncompression. |
| 890 With prefix argument ARG, turn auto compression on if positive, else off. | 890 With prefix argument ARG, turn auto compression on if positive, else off. |
| 891 Returns the new status of auto compression (non-nil means on)." | 891 Returns the new status of auto compression (non-nil means on)." |
| 892 nil nil nil :global t :group 'jka-compr | 892 :global t :group 'jka-compr |
| 893 (let* ((installed (jka-compr-installed-p)) | 893 (let* ((installed (jka-compr-installed-p)) |
| 894 (flag auto-compression-mode)) | 894 (flag auto-compression-mode)) |
| 895 (cond | 895 (cond |
| 896 ((and flag installed) t) ; already installed | 896 ((and flag installed) t) ; already installed |
| 897 ((and (not flag) (not installed)) nil) ; already not installed | 897 ((and (not flag) (not installed)) nil) ; already not installed |