]> git.eshelyaron.com Git - emacs.git/commitdiff
Revert e0619995594d1686afd0493391417d6f900d632c that added save-match-data.
authorJuri Linkov <juri@linkov.net>
Tue, 13 Jul 2021 23:21:17 +0000 (02:21 +0300)
committerJuri Linkov <juri@linkov.net>
Tue, 13 Jul 2021 23:21:17 +0000 (02:21 +0300)
* lisp/isearch.el (isearch-filter-predicate): Mention precautions against
clobbering the match data in docstring (bug#49534).

lisp/isearch.el

index 4bc5956e50eef16a7521a92ecf1d98e47e039f5a..922ab0f6ad4ce81261edaf37f59a7c3db7e1441e 100644 (file)
@@ -233,6 +233,7 @@ called with the positions of the start and the end of the text
 matched by Isearch and replace commands.  If this function
 returns nil, Isearch and replace commands will continue searching
 without stopping at resp. replacing this match.
+This function is expected to be careful not to clobber the match data.
 
 If you use `add-function' to modify this variable, you can use the
 `isearch-message-prefix' advice property to specify the prefix string
@@ -3529,9 +3530,8 @@ Optional third argument, if t, means if fail just return nil (no error).
          ;; Clear RETRY unless the search predicate says
          ;; to skip this search hit.
          (if (or (not isearch-success)
-                 (save-match-data
-                   (funcall isearch-filter-predicate
-                            (match-beginning 0) (match-end 0))))
+                 (funcall isearch-filter-predicate
+                          (match-beginning 0) (match-end 0)))
              (setq retry nil)
            ;; Advance point on empty matches before retrying
            (when (= (match-beginning 0) (match-end 0))
@@ -4049,9 +4049,8 @@ Attempt to do the search exactly the way the pending Isearch would."
          ;; to skip this search hit.
          (if (or (not success)
                  (= (match-beginning 0) (match-end 0))
-                 (save-match-data
-                   (funcall isearch-filter-predicate
-                            (match-beginning 0) (match-end 0))))
+                 (funcall isearch-filter-predicate
+                          (match-beginning 0) (match-end 0)))
              (setq retry nil)))
        success)
     (error nil)))