From: Dmitry Kurochkin <dmitry.kurochkin@gmail.com>
Date: Sat, 28 May 2011 01:14:38 +0000 (-0300)
Subject: * lisp/isearch.el (isearch-range-invisible): Use invisible-p.
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66e2e71d556785cd10270931c6fc0424b9dea6a6;p=emacs.git

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

Fixes: debbugs:8721
---

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))