[Emacs-diffs] /srv/bzr/emacs/trunk r104393: * lisp/isearch.el (isearch-range-invisible): Use invisible-p.

[Stefan Monnier]

------------------------------------------------------------
revno: 104393
fixes bug(s): http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8721
author: Dmitry Kurochkin <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2011-05-27 22:14:38 -0300
message:
  * lisp/isearch.el (isearch-range-invisible): Use invisible-p.
modified:
  lisp/ChangeLog
  lisp/isearch.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-27 23:03:26 +0000
+++ b/lisp/ChangeLog    2011-05-28 01:14:38 +0000
@@ -1,3 +1,7 @@
+2011-05-28  Dmitry Kurochkin  <address@hidden>  (tiny change)
+
+       * isearch.el (isearch-range-invisible): Use invisible-p (bug#8721).
+
 2009-11-23  Toby Cubitt  <address@hidden>
 
        * emacs-lisp/avl-tree.el: New avl-tree-stack datatype.  Add new

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2011-05-24 18:15:07 +0000
+++ b/lisp/isearch.el   2011-05-28 01:14:38 +0000
@@ -2435,7 +2435,7 @@
        ;; 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))