Mercurial > emacs

changeset 60781:4dec7a239cfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 391ee1dd9e7a
children ab5e3944cf27
files lisp/jka-compr.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
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