Mercurial > emacs
comparison lisp/info.el @ 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 | edc1b75fdb15 |
| children | 6bef200e9243 |
comparison
equal
deleted
inserted
replaced
| 101179:84cbdd182a6d | 101180:2b60f03f682b |
|---|---|
| 1866 and is not in the header line or a tag table." | 1866 and is not in the header line or a tag table." |
| 1867 (save-match-data | 1867 (save-match-data |
| 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 "\^_")) |
| 1879 (forward-line (if backward -1 1))) | 1880 (forward-line (if backward -1 1))) |
| 1880 ;; Skip Tag Table node | 1881 ;; Skip Tag Table node |