(jka-compr-info-file-magic-bytes): New function.
authorRichard M. Stallman <rms@gnu.org>
Sat, 25 Dec 1999 23:00:57 +0000 (23:00 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sat, 25 Dec 1999 23:00:57 +0000 (23:00 +0000)
commite073a3561ba285bdbdb8588ebe53c643d6a97d54
treeb3b829037f6756eefcd2006513a5d5d66cb2e21b
parentf21b06b7628a1b9e84692064938c0d2694e662a2
(jka-compr-info-file-magic-bytes): New function.
(jka-compr-compression-info-list): Add new elt to each vector.
(jka-compr-write-region): Don't compress the data if it is already compressed.

(jka-compr-really-do-compress): New variable.
(jka-compr-insert-file-contents): Set jka-compr-really-do-compress if visiting.
(jka-compr-write-region): Set jka-compr-really-do-compress
if visiting.  Test it when deciding to compress.
lisp/jka-compr.el