(setq i (1+ i))
(if (>= i len)
(throw 'tag (cons
- (cons 'error (substring string start))
+ (cons 'error (substring string from))
len
)))
(setq last-str (concat last-str
from i
last-str "")
(throw 'tag (cons
- (cons 'error (substring string start))
+ (cons 'error (substring string from))
len
))))
(t