Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 03:17:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(auto-compression-mode): This is now a stub function

Browse source 
that calls toggle-auto-compression, and is put bodily into loaddefs.el.
(toggle-auto-compression): Renamed from auto-compression-mode.
Not autloaded.
This commit is contained in:
Richard M. Stallman 1995-12-29 05:47:49 +00:00
parent a9bb53da49
commit b6dca218bb
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/jka-compr.el
View file

@ -684,8 +684,18 @@ There should be no more than seven characters after the final `/'")
(inhibit-file-name-operation operation))
(apply operation args)))
;;;###autoload
(defun auto-compression-mode (&optional arg)
;;;###autoload(defun auto-compression-mode (&optional arg)
;;;###autoload "Toggle 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 (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))
(defun toggle-auto-compression (&optional arg)
"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)."
@ -713,7 +723,6 @@ Returns the new status of auto compression (non-nil means on)."
(message "Automatic file (de)compression is now OFF.")))
flag))
(defalias 'toggle-auto-compression 'auto-compression-mode)
(defun jka-compr-build-file-regexp ()
(concat