(Info-isearch-filter): Don't filter out invisible text

when search-invisible is t.  (Bug#1848)
This commit is contained in:
Juri Linkov 2009-01-14 23:09:45 +00:00
parent 033535ded7
commit 744059aeec

View file

@ -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 "\^_"))