From: Juri Linkov <juri@jurta.org>
Date: Wed, 14 Jan 2009 23:09:45 +0000 (+0000)
Subject: (Info-isearch-filter): Don't filter out invisible text
X-Git-Tag: emacs-pretest-23.0.90~459
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=744059aeec2958bd6ae18526e218cb06401da2e6;p=emacs.git

(Info-isearch-filter): Don't filter out invisible text
when search-invisible is t.  (Bug#1848)
---

diff --git a/lisp/info.el b/lisp/info.el
index 9ee468f311d..4a90b3e65bb 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1868,11 +1868,12 @@ and is not in the header line or a tag table."
     (let ((backward (< found beg-found)))
       (not
        (or
-	(if backward
-	    (or (text-property-not-all found beg-found 'invisible nil)
-		(text-property-not-all found beg-found 'display nil))
-	  (or (text-property-not-all beg-found found 'invisible nil)
-	      (text-property-not-all beg-found found 'display nil)))
+	(and (not (eq search-invisible t))
+	     (if backward
+		 (or (text-property-not-all found beg-found 'invisible nil)
+		     (text-property-not-all found beg-found 'display nil))
+	       (or (text-property-not-all beg-found found 'invisible nil)
+		   (text-property-not-all beg-found found 'display nil))))
 	;; Skip node header line
 	(and (save-excursion (forward-line -1)
 			     (looking-at "\^_"))