diff options
| author | Juri Linkov | 2009-01-14 23:09:45 +0000 |
|---|---|---|
| committer | Juri Linkov | 2009-01-14 23:09:45 +0000 |
| commit | 744059aeec2958bd6ae18526e218cb06401da2e6 (patch) | |
| tree | 1fcc987987fef051d82994118d1b31a0e14c6c36 | |
| parent | 033535ded7581d7184e4c1b030cabfcf93bad8fd (diff) | |
| download | emacs-744059aeec2958bd6ae18526e218cb06401da2e6.tar.gz emacs-744059aeec2958bd6ae18526e218cb06401da2e6.zip | |
(Info-isearch-filter): Don't filter out invisible text
when search-invisible is t. (Bug#1848)
| -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." | |||
| 1868 | (let ((backward (< found beg-found))) | 1868 | (let ((backward (< found beg-found))) |
| 1869 | (not | 1869 | (not |
| 1870 | (or | 1870 | (or |
| 1871 | (if backward | 1871 | (and (not (eq search-invisible t)) |
| 1872 | (or (text-property-not-all found beg-found 'invisible nil) | 1872 | (if backward |
| 1873 | (text-property-not-all found beg-found 'display nil)) | 1873 | (or (text-property-not-all found beg-found 'invisible nil) |
| 1874 | (or (text-property-not-all beg-found found 'invisible nil) | 1874 | (text-property-not-all found beg-found 'display nil)) |
| 1875 | (text-property-not-all beg-found found 'display nil))) | 1875 | (or (text-property-not-all beg-found found 'invisible nil) |
| 1876 | (text-property-not-all beg-found found 'display nil)))) | ||
| 1876 | ;; Skip node header line | 1877 | ;; Skip node header line |
| 1877 | (and (save-excursion (forward-line -1) | 1878 | (and (save-excursion (forward-line -1) |
| 1878 | (looking-at "\^_")) | 1879 | (looking-at "\^_")) |