# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1211996224 0
# Node ID f77d335546acdc1ad6f2c7c75176c97395f9f0d7
# Parent  380e5a5c73eaaacddabb4fdebf2a2bee9afd992e
(jka-compr-write-region): Typo.

diff -r 380e5a5c73ea -r f77d335546ac lisp/jka-compr.el
--- a/lisp/jka-compr.el	Wed May 28 17:36:04 2008 +0000
+++ b/lisp/jka-compr.el	Wed May 28 17:37:04 2008 +0000
@@ -273,9 +273,9 @@
 		       (equal (if (stringp start)
 				  (substring start 0 (min (length start)
 							  (length magic)))
-                                (let ((from (or start (point-min)))
-                                      (to (min (or end (point-max))
-                                               (+ from (length magic)))))
+                                (let* ((from (or start (point-min)))
+                                       (to (min (or end (point-max))
+                                                (+ from (length magic)))))
                                   (buffer-substring from to)))
 			      magic))))
 	(let ((can-append (jka-compr-info-can-append info))