aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2003-04-16 16:03:46 +0000
committerStefan Monnier2003-04-16 16:03:46 +0000
commit02ad7cbf43217841ee88ed0c6ff74876ef50a5be (patch)
tree281e5b1d4e03167704084d52f4508aa760b60ccf
parent0db701f029fd4cb6db4305bc8e2182ae1329ff6e (diff)
downloademacs-02ad7cbf43217841ee88ed0c6ff74876ef50a5be.tar.gz
emacs-02ad7cbf43217841ee88ed0c6ff74876ef50a5be.zip
(reveal-post-command): Use overlay-get for overlays.
-rw-r--r--lisp/reveal.el4
1 files changed, 2 insertions, 2 deletions
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 @@
95 (let ((inv (overlay-get ol 'invisible))) 95 (let ((inv (overlay-get ol 'invisible)))
96 (and inv (symbolp inv) 96 (and inv (symbolp inv)
97 (or (setq open (or (get inv 'reveal-toggle-invisible) 97 (or (setq open (or (get inv 'reveal-toggle-invisible)
98 (get ol 'isearch-open-invisible-temporary))) 98 (overlay-get ol 'isearch-open-invisible-temporary)))
99 (overlay-get ol 'isearch-open-invisible) 99 (overlay-get ol 'isearch-open-invisible)
100 (and (consp buffer-invisibility-spec) 100 (and (consp buffer-invisibility-spec)
101 (assq inv buffer-invisibility-spec))) 101 (assq inv buffer-invisibility-spec)))
@@ -129,7 +129,7 @@
129 (if (or open 129 (if (or open
130 (and (setq inv (overlay-get ol 'reveal-invisible)) 130 (and (setq inv (overlay-get ol 'reveal-invisible))
131 (setq open (or (get inv 'reveal-toggle-invisible) 131 (setq open (or (get inv 'reveal-toggle-invisible)
132 (get ol 'isearch-open-invisible-temporary))))) 132 (overlay-get ol 'isearch-open-invisible-temporary)))))
133 (condition-case err 133 (condition-case err
134 (funcall open ol t) 134 (funcall open ol t)
135 (error (message "!!Reveal-hide: %s !!" err))) 135 (error (message "!!Reveal-hide: %s !!" err)))