# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1009869811 0
# Node ID c28b5df30ea031d56ed9258e2629e265f14d8142
# Parent  21eaf0f81c5d914cd56a45111d643a7793953eb9
(jka-compr-write-region): If START = nil, use whole buf.

diff -r 21eaf0f81c5d -r c28b5df30ea0 lisp/jka-compr.el
--- a/lisp/jka-compr.el	Tue Jan 01 07:12:59 2002 +0000
+++ b/lisp/jka-compr.el	Tue Jan 01 07:23:31 2002 +0000
@@ -394,6 +394,10 @@
 	 (info (jka-compr-get-compression-info visit-file))
 	 (magic (and info (jka-compr-info-file-magic-bytes info))))
 
+    ;; If START is nil, use the whole buffer.
+    (if (null start)
+	(setq start 1 end (1+ (buffer-size))))
+
     ;; If we uncompressed this file when visiting it,
     ;; then recompress it when writing it
     ;; even if the contents look compressed already.