diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-03-21 17:44:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-03-21 17:44:27 +0000 |
| commit | dd83d95af1c9171d552ff4a589b0851906b9e815 (patch) | |
| tree | 02142f7a779f8a0128e82590bc8f368b4bbca9a7 /lisp/jka-compr.el | |
| parent | 837daa0d4170134e8b94735ff757a33f235c6c8d (diff) | |
| download | emacs-dd83d95af1c9171d552ff4a589b0851906b9e815.tar.gz | |
(jka-compr-really-do-compress): Make variable buffer-local.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |