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

[Stefan Monnier]

------------------------------------------------------------
revno: 104356
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: Tue 2011-05-24 15:15:07 -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-24 08:22:58 +0000
+++ b/lisp/ChangeLog    2011-05-24 18:15:07 +0000
@@ -1,3 +1,7 @@
+2011-05-24  Dmitry Kurochkin  <address@hidden>  (tiny change)
+
+       * isearch.el (isearch-range-invisible): Use invisible-p (bug#8721).
+
 2011-05-24  Leo Liu  <address@hidden>
 
        * vc/vc-bzr.el (vc-bzr-sha1-program): Rename from sha1-program.
@@ -13,15 +17,15 @@
        (mail-insert-from-field): Do not perform RFC2047 encoding.
        (mail-encode-header): New function.
        (sendmail-send-it): Set buffer-file-coding-system of the work
-       buffer to the return value of select-message-coding-system.  Call
-       mail-encode-header.
+       buffer to the return value of select-message-coding-system.
+       Call mail-encode-header.
 
        * mail/smtpmail.el (smtpmail-send-it): Call mail-encode-header.
 
 2011-05-24  Sean Neakums  <address@hidden>  (tiny change)
 
-       * mail/supercite.el (sc-default-cite-frame): Handle
-       sc-nested-citation-p when sc-cite-blank-lines-p is non-nil.
+       * mail/supercite.el (sc-default-cite-frame):
+       Handle sc-nested-citation-p when sc-cite-blank-lines-p is non-nil.
 
 2011-05-24  Glenn Morris  <address@hidden>
 

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2011-05-03 03:34:26 +0000
+++ b/lisp/isearch.el   2011-05-24 18:15:07 +0000
@@ -2434,13 +2434,7 @@
        ;; If the following character is currently invisible,
        ;; skip all characters with that same `invisible' property value.
        ;; Do that over and over.
-       (while (and (< (point) end)
-                   (let ((prop
-                          (get-char-property (point) 'invisible)))
-                     (if (eq buffer-invisibility-spec t)
-                         prop
-                       (or (memq prop buffer-invisibility-spec)
-                           (assq prop buffer-invisibility-spec)))))
+       (while (and (< (point) end) (invisible-p (point)))
          (if (get-text-property (point) 'invisible)
              (progn
                (goto-char (next-single-property-change (point) 'invisible
@@ -2456,10 +2450,7 @@
                (while overlays
                  (setq o (car overlays)
                        invis-prop (overlay-get o 'invisible))
-                 (if (if (eq buffer-invisibility-spec t)
-                         invis-prop
-                       (or (memq invis-prop buffer-invisibility-spec)
-                           (assq invis-prop buffer-invisibility-spec)))
+                 (if (invisible-p invis-prop)
                      (if (overlay-get o 'isearch-open-invisible)
                          (setq ov-list (cons o ov-list))
                        ;; We found one overlay that cannot be