1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00

(reveal-post-command): Use overlay-get for overlays.

This commit is contained in:
Stefan Monnier 2003-04-16 16:03:46 +00:00
parent 0db701f029
commit 02ad7cbf43

View File

@ -95,7 +95,7 @@
(let ((inv (overlay-get ol 'invisible)))
(and inv (symbolp inv)
(or (setq open (or (get inv 'reveal-toggle-invisible)
(get ol 'isearch-open-invisible-temporary)))
(overlay-get ol 'isearch-open-invisible-temporary)))
(overlay-get ol 'isearch-open-invisible)
(and (consp buffer-invisibility-spec)
(assq inv buffer-invisibility-spec)))
@ -129,7 +129,7 @@
(if (or open
(and (setq inv (overlay-get ol 'reveal-invisible))
(setq open (or (get inv 'reveal-toggle-invisible)
(get ol 'isearch-open-invisible-temporary)))))
(overlay-get ol 'isearch-open-invisible-temporary)))))
(condition-case err
(funcall open ol t)
(error (message "!!Reveal-hide: %s !!" err)))