(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))