From 37506a922382fe1e4806ee8ae9de3aab0a7ade8d Mon Sep 17 00:00:00 2001 From: Nicolas Richard Date: Fri, 5 Dec 2014 13:56:31 +0100 Subject: [PATCH] isearch.el (isearch-open-necessary-overlays): Open overlay ending at point. --- lisp/ChangeLog | 5 +++++ lisp/isearch.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 445a461..6af9adb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-12-05 Nicolas Richard + + * isearch.el (isearch-open-necessary-overlays): Open overlay + ending at point. + 2014-12-10 Lars Magne Ingebrigtsen * files.el (directory-files-recursively): Use diff --git a/lisp/isearch.el b/lisp/isearch.el index c3e473a..ef0c4a7 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -2734,7 +2734,7 @@ (defun isearch-open-overlay-temporary (ov) ;; in any of these overlays, se we are safe in this case too. (defun isearch-open-necessary-overlays (ov) (let ((inside-overlay (and (> (point) (overlay-start ov)) - (< (point) (overlay-end ov)))) + (<= (point) (overlay-end ov)))) ;; If this exists it means that the overlay was opened using ;; this function, not by us tweaking the overlay properties. (fct-temp (overlay-get ov 'isearch-open-invisible-temporary))) -- 2.0.4