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 (jka-compr-installed-p)))
       (unwind-protect
	   (progn
	     (unless ,already-installed
	       (jka-compr-install))
	     ,@body)
	 (unless ,already-installed
	   (jka-compr-uninstall))))))