Function: with-auto-compression-mode

with-auto-compression-mode is a macro defined in jka-cmpr-hook.el.gz.

Signature

(with-auto-compression-mode &rest BODY)

Documentation

Evaluate BODY with automatic file compression and uncompression enabled.

Probably introduced at or before Emacs version 21.1.

Source Code

;; Defined in /usr/src/emacs/lisp/jka-cmpr-hook.el.gz
(defmacro with-auto-compression-mode (&rest body)
  "Evaluate BODY with automatic file compression and uncompression enabled."
  (declare (indent 0))
  (let ((already-installed (make-symbol "already-installed")))
    `(let ((,already-installed auto-compression-mode))
       (unwind-protect
	   (progn
	     (unless ,already-installed
	       (auto-compression-mode 1))
	     ,@body)
	 (unless ,already-installed
	   (auto-compression-mode -1))))))