mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix invalid search bound in 'search-within-boundaries'.

Browse source 
* lisp/isearch.el (search-within-boundaries): Don't go over BOUND.

* test/lisp/isearch-tests.el (isearch--test-search-within-boundaries):
Test with the BOUND arg as well (bug#78116).
This commit is contained in:
Juri Linkov 2025-04-29 19:41:44 +03:00
parent 6228259952
commit 9d0595d879
2 changed files with 37 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

24
test/lisp/isearch-tests.el
View file

@ -247,7 +247,29 @@
(dolist (pos (append (reverse pairs) nil))
(should (eq (car pos) (isearch-search-string "foo$" nil t)))
(should (equal (match-string 0) "foo"))
(when (cdr pos) (should (eq (cdr pos) (match-end 0)))))))
(when (cdr pos) (should (eq (cdr pos) (match-end 0))))))
;; With BOUND arg (bug#78116)
(goto-char (point-min))
(let ((isearch-forward t)
(isearch-regexp nil)
(pos (car pairs)))
(should (eq (cdr pos) (isearch-search-string "foo" (cdr pos) t)))
(should (eq nil (isearch-search-string "foo" (cdr pos) t)))
;; Start on the text property inside boundaries
(forward-char -1)
(should (eq nil (isearch-search-string "foo" (cdr pos) t))))
;; With BOUND arg (bug#78116)
(goto-char (point-max))
(let ((isearch-forward nil)
(isearch-regexp nil)
(pos (car (last pairs))))
(should (eq (car pos) (isearch-search-string "foo" (car pos) t)))
(should (eq nil (isearch-search-string "foo" (car pos) t)))
;; Start on the text property inside boundaries
(forward-char 1)
(should (eq nil (isearch-search-string "foo" (car pos) t)))))
(ert-deftest isearch--test-search-fun-in-text-property ()
(let* ((pairs '((4 . 7) (11 . 14) (21 . 24)))