229 |
"The entry in `file-name-handler-alist' used by the jka-compr I/O functions.") |
"The entry in `file-name-handler-alist' used by the jka-compr I/O functions.") |
230 |
|
|
231 |
(defvar jka-compr-really-do-compress nil |
(defvar jka-compr-really-do-compress nil |
232 |
"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. |
233 |
|
This means compress the data on writing the file, even if the |
234 |
|
data appears to be compressed already.") |
235 |
|
(make-variable-buffer-local 'jka-compr-really-do-compress) |
236 |
(put 'jka-compr-really-do-compress 'permanent-local t) |
(put 'jka-compr-really-do-compress 'permanent-local t) |
237 |
|
|
238 |
;;; Functions for accessing the return value of jka-compr-get-compression-info |
;;; Functions for accessing the return value of jka-compr-get-compression-info |