# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1111427067 0
# Node ID 4dec7a239cfaacbdfe162ec7bd3b52045fad58d8
# Parent  391ee1dd9e7a45e374abd12b0af0134c1fda4176
(jka-compr-really-do-compress): Make variable buffer-local.

diff -r 391ee1dd9e7a -r 4dec7a239cfa lisp/jka-compr.el
--- 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