95 |
(let ((inv (overlay-get ol 'invisible))) |
(let ((inv (overlay-get ol 'invisible))) |
96 |
(and inv (symbolp inv) |
(and inv (symbolp inv) |
97 |
(or (setq open (or (get inv 'reveal-toggle-invisible) |
(or (setq open (or (get inv 'reveal-toggle-invisible) |
98 |
(get ol 'isearch-open-invisible-temporary))) |
(overlay-get ol 'isearch-open-invisible-temporary))) |
99 |
(overlay-get ol 'isearch-open-invisible) |
(overlay-get ol 'isearch-open-invisible) |
100 |
(and (consp buffer-invisibility-spec) |
(and (consp buffer-invisibility-spec) |
101 |
(assq inv buffer-invisibility-spec))) |
(assq inv buffer-invisibility-spec))) |
129 |
(if (or open |
(if (or open |
130 |
(and (setq inv (overlay-get ol 'reveal-invisible)) |
(and (setq inv (overlay-get ol 'reveal-invisible)) |
131 |
(setq open (or (get inv 'reveal-toggle-invisible) |
(setq open (or (get inv 'reveal-toggle-invisible) |
132 |
(get ol 'isearch-open-invisible-temporary))))) |
(overlay-get ol 'isearch-open-invisible-temporary))))) |
133 |
(condition-case err |
(condition-case err |
134 |
(funcall open ol t) |
(funcall open ol t) |
135 |
(error (message "!!Reveal-hide: %s !!" err))) |
(error (message "!!Reveal-hide: %s !!" err))) |