/[emacs]/emacs/lisp/reveal.el
ViewVC logotype

Diff of /emacs/lisp/reveal.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by monnier, Mon Mar 31 22:26:26 2003 UTC revision 1.10 by monnier, Wed Apr 16 16:03:46 2003 UTC
# Line 95  Line 95 
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)))
# Line 129  Line 129 
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)))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26