mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(isearch-intersects-p): Fix end checks.

Browse Source
This commit is contained in:
Gerd Moellmann 2001-09-12 13:10:08 +00:00
parent fb2c6a6b37
commit eaa493dfe6
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2001-09-12 Gerd Moellmann <gerd@gnu.org>
* isearch.el (isearch-intersects-p): Fix end checks.
2001-09-11 Eli Zaretskii <a34785@is.elta.co.il>
* gud.el (dbx) <gud-dbx-use-stopformat-p>: Move this case into the

8
lisp/isearch.el
View File

@ -1683,10 +1683,10 @@ If there is no completion possible, say so and continue searching."
(defun isearch-intersects-p (start0 end0 start1 end1)
"Return t if regions START0..END0 and START1..END1 intersect."
(or (and (>= start0 start1) (< start0 end1))
(and (>= end0 start1) (< end0 end1))
(and (>= start1 start0) (< start1 end0))
(and (>= end1 start0) (< end1 end0))))
(or (and (>= start0 start1) (< start0 end1))
(and (> end0 start1) (<= end0 end1))
(and (>= start1 start0) (< start1 end0))
(and (> end1 start0) (<= end1 end0))))
;;; Verify if the current match is outside of each element of