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

Fixes: debbugs:8721

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 29749a75087618ab54844f7dc55322f0192405de..fe1f6cdeaba0773f87f762af2f59d7da34858a05 100644 (file)
--- 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 008cf2ce58ab93db4f38a5f5fe13f69f6b34034a..1bb08d1ebb43bdbb7bfee5f86c4ef8080fd43ea5 100644 (file)
--- 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))