changeset 101180:2b60f03f682b

(Info-isearch-filter): Don't filter out invisible text when search-invisible is t. (Bug#1848)
author Juri Linkov <juri@jurta.org>
date Wed, 14 Jan 2009 23:09:45 +0000
parents 84cbdd182a6d
children a0e232b151fb
files lisp/info.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Wed Jan 14 20:47:02 2009 +0000
+++ b/lisp/info.el	Wed Jan 14 23:09:45 2009 +0000
@@ -1868,11 +1868,12 @@
     (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 "\^_"))