* lisp/isearch.el (isearch-range-invisible): Use invisible-p.

Fixes: debbugs:8721

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 29749a75087..fe1f6cdeaba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-28  Dmitry Kurochkin  <dmitry.kurochkin@gmail.com>  (tiny change)
+
+        * isearch.el (isearch-range-invisible): Use invisible-p (bug#8721).
+
 2009-11-23  Toby Cubitt  <toby-predictive@dr-qubit.org>
 
         * emacs-lisp/avl-tree.el: New avl-tree-stack datatype.  Add new
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 008cf2ce58a..1bb08d1ebb4 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2435,7 +2435,7 @@ update the match data, and return point."
         ;; skip all characters with that same `invisible' property value.
         ;; Do that over and over.
         (while (and (< (point) end) (invisible-p (point)))
-          (if (get-text-property (point) 'invisible)
+          (if (invisible-p (get-text-property (point) 'invisible))
               (progn
                 (goto-char (next-single-property-change (point) 'invisible
                                                         nil end))