isearch-open-necessary-overlays: Open overlay ending at point

* lisp/isearch.el (isearch-open-necessary-overlays): Open overlay
ending at point (bug#19333).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ec7feb2b84433d1b01f0f3f7c57c11b8f2a3e85..27337e9ab0a40e63330545e5b85a96f78d95f9ad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-05  Nicolas Richard  <theonewiththeevillook@yahoo.fr>
+
+       * isearch.el (isearch-open-necessary-overlays): Open overlay
+       ending at point (bug#19333).
+
 2014-12-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * net/shr.el (shr-fold-text): New function.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index c3e473a2ba6c9328407ea1148df3b94c4f7a700d..ef0c4a78b89159128a3b24f13c9d46556fdb096e 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2734,7 +2734,7 @@ update the match data, and return point."
 ;; 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)))