From 744059aeec2958bd6ae18526e218cb06401da2e6 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 14 Jan 2009 23:09:45 +0000 Subject: (Info-isearch-filter): Don't filter out invisible text when search-invisible is t. (Bug#1848) --- lisp/info.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lisp/info.el') 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 "\^_")) -- cgit v1.2.1