branch: master
commit ab5835e423f314cdd4542ed060885d0e9a47246c
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@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.
---
packages/el-search/el-search.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 249ba8b..ea15a35 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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
