Mercurial > emacs
diff lisp/jka-compr.el @ 60781:4dec7a239cfa
(jka-compr-really-do-compress): Make variable buffer-local.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 21 Mar 2005 17:44:27 +0000 |
| parents | 36922d8fd700 |
| children | aaa0bead8bc5 13796b0653c7 |
line wrap: on
line diff
--- a/lisp/jka-compr.el Mon Mar 21 17:42:36 2005 +0000 +++ b/lisp/jka-compr.el Mon Mar 21 17:44:27 2005 +0000 @@ -229,7 +229,10 @@ "The entry in `file-name-handler-alist' used by the jka-compr I/O functions.") (defvar jka-compr-really-do-compress nil - "Non-nil in a buffer whose visited file was uncompressed on visiting it.") + "Non-nil in a buffer whose visited file was uncompressed on visiting it. +This means compress the data on writing the file, even if the +data appears to be compressed already.") +(make-variable-buffer-local 'jka-compr-really-do-compress) (put 'jka-compr-really-do-compress 'permanent-local t) ;;; Functions for accessing the return value of jka-compr-get-compression-info