X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/5f9accc41fe4b6364b124cc9af9703e91fba3c81..c356b2dd3e09715d82f8c2da212e891fd5dfd9c3:/packages/el-search/el-search.el

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 0f40e83f9..7cfe4770e 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -1016,12 +1016,12 @@ Hit any key to proceed."
             (unless (eq this-command last-command)
               (el-search-hl-other-matches pattern)))
           (let* ((region (list (point) (el-search--end-of-sexp)))
-                 (substring (apply #'buffer-substring-no-properties region))
-                 (expr      (read substring))
+                 (original-text (apply #'buffer-substring-no-properties region))
+                 (expr      (read original-text))
                  (replaced-this nil)
                  (new-expr  (funcall get-replacement expr))
                  (get-replacement-string
-                  (lambda () (el-search--format-replacement new-expr substring to-input-string splice)))
+                  (lambda () (el-search--format-replacement new-expr original-text to-input-string splice)))
                  (to-insert (funcall get-replacement-string))
                  (replacement-contains-another-match
                   (with-temp-buffer