diff options
| author | Juri Linkov <juri@jurta.org> | 2009-01-14 23:09:45 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2009-01-14 23:09:45 +0000 |
| commit | 744059aeec2958bd6ae18526e218cb06401da2e6 (patch) | |
| tree | 1fcc987987fef051d82994118d1b31a0e14c6c36 /lisp/info.el | |
| parent | 033535ded7581d7184e4c1b030cabfcf93bad8fd (diff) | |
| download | emacs-744059aeec2958bd6ae18526e218cb06401da2e6.tar.gz | |
(Info-isearch-filter): Don't filter out invisible text
when search-invisible is t. (Bug#1848)
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 11 |
1 files changed, 6 insertions, 5 deletions
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 "\^_")) |