394 |
(info (jka-compr-get-compression-info visit-file)) |
(info (jka-compr-get-compression-info visit-file)) |
395 |
(magic (and info (jka-compr-info-file-magic-bytes info)))) |
(magic (and info (jka-compr-info-file-magic-bytes info)))) |
396 |
|
|
397 |
|
;; If START is nil, use the whole buffer. |
398 |
|
(if (null start) |
399 |
|
(setq start 1 end (1+ (buffer-size)))) |
400 |
|
|
401 |
;; If we uncompressed this file when visiting it, |
;; If we uncompressed this file when visiting it, |
402 |
;; then recompress it when writing it |
;; then recompress it when writing it |
403 |
;; even if the contents look compressed already. |
;; even if the contents look compressed already. |