From 02ad7cbf43217841ee88ed0c6ff74876ef50a5be Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 16 Apr 2003 16:03:46 +0000 Subject: (reveal-post-command): Use overlay-get for overlays. --- lisp/reveal.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/reveal.el') diff --git a/lisp/reveal.el b/lisp/reveal.el index 88082c17621..11f8c11c936 100644 --- a/lisp/reveal.el +++ b/lisp/reveal.el @@ -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))) -- cgit v1.2.1