From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 16 Apr 2003 16:03:46 +0000 (+0000)
Subject: (reveal-post-command): Use overlay-get for overlays.
X-Git-Tag: ttn-vms-21-2-B4~10490
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02ad7cbf43217841ee88ed0c6ff74876ef50a5be;p=emacs.git

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

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)))