rename a local variable

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 8e6ef917c5a0909c02619da457dcb6cf90abf8dc..9a27bcb15053447a793d710d9c700266a35cef1a 100644 (file)
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -327,8 +327,8 @@ return nil (no error)."
     (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))