(condition-case nil
(while (< (point) (or bound (point-max)))
(let* ((this-sexp-end (save-excursion (thing-at-point--end-of-sexp) (point)))
- (this-sexp (buffer-substring-no-properties (point) this-sexp-end)))
- (funcall do-fun this-sexp this-sexp-end))
+ (this-sexp-bounds (buffer-substring-no-properties (point) this-sexp-end)))
+ (funcall do-fun this-sexp-bounds this-sexp-end))
(forward-char)
(el-search--ensure-sexp-start))
(end-of-buffer))