diff options
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 |