diff options
| author | Richard M. Stallman | 1995-09-24 03:59:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-09-24 03:59:02 +0000 |
| commit | 61793fbf5d8248c727ad513f8eecaccb64ab7340 (patch) | |
| tree | e677dd89fee39df6944cd517fd8a59026888d158 | |
| parent | ac05d33c673b3f1488e880ee64de34bafd13e901 (diff) | |
| download | emacs-61793fbf5d8248c727ad513f8eecaccb64ab7340.tar.gz emacs-61793fbf5d8248c727ad513f8eecaccb64ab7340.zip | |
(auto-compression-mode): Add autoload cookie.
Renamed from toggle-auto-compression.
(toggle-auto-compression): Define as alias.
| -rw-r--r-- | lisp/jka-compr.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 2b1f435fe6c..c3804b267ec 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el | |||
| @@ -667,8 +667,9 @@ There should be no more than seven characters after the final `/'") | |||
| 667 | (inhibit-file-name-operation operation)) | 667 | (inhibit-file-name-operation operation)) |
| 668 | (apply operation args))) | 668 | (apply operation args))) |
| 669 | 669 | ||
| 670 | (defun toggle-auto-compression (arg) | 670 | ;;;###autoload |
| 671 | "Toggle automatic file compression and decompression. | 671 | (defun auto-compression-mode (arg) |
| 672 | "Toggle automatic file compression and uncompression. | ||
| 672 | With prefix argument ARG, turn auto compression on if positive, else off. | 673 | With prefix argument ARG, turn auto compression on if positive, else off. |
| 673 | Returns the new status of auto compression (non-nil means on)." | 674 | Returns the new status of auto compression (non-nil means on)." |
| 674 | (interactive "P") | 675 | (interactive "P") |
| @@ -695,7 +696,7 @@ Returns the new status of auto compression (non-nil means on)." | |||
| 695 | (message "Automatic file (de)compression is now OFF."))) | 696 | (message "Automatic file (de)compression is now OFF."))) |
| 696 | 697 | ||
| 697 | flag)) | 698 | flag)) |
| 698 | 699 | (defalias 'toggle-auto-compression 'auto-compression-mode) | |
| 699 | 700 | ||
| 700 | (defun jka-compr-build-file-regexp () | 701 | (defun jka-compr-build-file-regexp () |
| 701 | (concat | 702 | (concat |