Mercurial > emacs
comparison lisp/isearch.el @ 22517:7c42ab0fcb30
(isearch-range-invisible): Handle the case that
buffer-invisibility-spec is t (i.e. not a list).
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 20 Jun 1998 02:59:51 +0000 |
| parents | c988549f43cd |
| children | 5fe3766ec1a8 |
comparison
equal
deleted
inserted
replaced
| 22516:31e6e5b66fea | 22517:7c42ab0fcb30 |
|---|---|
| 1617 o | 1617 o |
| 1618 invis-prop) | 1618 invis-prop) |
| 1619 (while overlays | 1619 (while overlays |
| 1620 (setq o (car overlays) | 1620 (setq o (car overlays) |
| 1621 invis-prop (overlay-get o 'invisible)) | 1621 invis-prop (overlay-get o 'invisible)) |
| 1622 (if (or (memq invis-prop buffer-invisibility-spec) | 1622 (if (if (eq buffer-invisibility-spec t) |
| 1623 (assq invis-prop buffer-invisibility-spec)) | 1623 invis-prop |
| 1624 (or (memq invis-prop buffer-invisibility-spec) | |
| 1625 (assq invis-prop buffer-invisibility-spec))) | |
| 1624 (if (overlay-get o 'isearch-open-invisible) | 1626 (if (overlay-get o 'isearch-open-invisible) |
| 1625 (setq ov-list (cons o ov-list)) | 1627 (setq ov-list (cons o ov-list)) |
| 1626 ;; We found one overlay that cannot be | 1628 ;; We found one overlay that cannot be |
| 1627 ;; opened, that means the whole chunk | 1629 ;; opened, that means the whole chunk |
| 1628 ;; cannot be opened. | 1630 ;; cannot be opened. |