Mercurial > emacs

changeset 95368:f77d335546ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(jka-compr-write-region): Typo.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 28 May 2008 17:37:04 +0000
parents 380e5a5c73ea
children d147ddeb05f9
files lisp/jka-compr.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))