[elpa] externals/el-search a6c23b5 250/332: * el-search/el-search.el: Correct NOERROR argument uses

[Stefan Monnier]

branch: externals/el-search
commit a6c23b56384b105ff30c8bbfb19212d80a77b559
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    * el-search/el-search.el: Correct NOERROR argument uses
    
    Correct calls of el-search search functions in the file to not use
    'noerror as NOERROR argument since we have changed the semantics of
    non-nil non-t argument values.
---
 el-search.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/el-search.el b/el-search.el
index 249ba8b..ea15a35 100644
--- a/el-search.el
+++ b/el-search.el
@@ -1025,7 +1025,7 @@ be specified as fourth argument, and COUNT becomes the 
fifth argument."
            ((catch 'success
               (while (< 0 count)
                 (cond
-                 ((not (el-search--search-pattern-1 matcher 'noerror bound 
heuristic-matcher))
+                 ((not (el-search--search-pattern-1 matcher t bound 
heuristic-matcher))
                   (throw 'success nil))
                  ((= 1 count)
                   (throw 'success t))
@@ -2554,7 +2554,7 @@ This function is the counterpart of 
`el-search--search-pattern-1'."
               ;; This is inefficient: O(n^2)
               (while (< 0 count)
                 (cond
-                 ((not (el-search--search-backward-1 matcher 'noerror bound 
heuristic-matcher))
+                 ((not (el-search--search-backward-1 matcher t bound 
heuristic-matcher))
                   (throw 'success nil))
                  ((= 1 count)
                   (throw 'success t))
@@ -2586,7 +2586,7 @@ This function is the counterpart of 
`el-search--search-pattern-1'."
                             found-match nil))
                     (while (and (not done)
                                 (el-search--search-pattern-1
-                                 matcher 'no-error current-defun-end 
heuristic-matcher))
+                                 matcher t current-defun-end 
heuristic-matcher))
                       (if (>= (point) current-upper-limit)
                           (setq done t)
                         (setq hindmost-match (point))
@@ -3601,7 +3601,7 @@ Replace all matches in all buffers"))))
                                         ;; This intentionally includes the 
replacement itself
                                         (save-excursion
                                           (el-search--search-pattern-1
-                                           matcher 'noerror 
replacement-end-pos heuristic-matcher))))
+                                           matcher t replacement-end-pos 
heuristic-matcher))))
                                   (skip-replacement
                                    (lambda () (goto-char 
replacement-end-pos))))
                              (cond