From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 21 Mar 2005 17:44:27 +0000 (+0000)
Subject: (jka-compr-really-do-compress): Make variable buffer-local.
X-Git-Tag: ttn-vms-21-2-B4~1662
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd83d95af1c9171d552ff4a589b0851906b9e815;p=emacs.git

(jka-compr-really-do-compress): Make variable buffer-local.
---

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index fa852bd19b6..59c6de846c2 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -229,7 +229,10 @@ invoked."
   "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