[Emacs-diffs] Changes to emacs/lisp/reveal.el

[Stefan Monnier]

Index: emacs/lisp/reveal.el
diff -c emacs/lisp/reveal.el:1.8 emacs/lisp/reveal.el:1.9
*** emacs/lisp/reveal.el:1.8    Mon Mar 31 15:56:14 2003
--- emacs/lisp/reveal.el        Mon Mar 31 17:26:26 2003
***************
*** 61,68 ****
  
  ;; Actual code
  
- (defvar reveal-backtrace nil)
- 
  (defun reveal-post-command ()
    ;; Refresh the spots that might have changed.
    ;; `Refreshing' here means to try and re-hide the corresponding text.
--- 61,66 ----
***************
*** 109,118 ****
               (setq repeat t)
               (condition-case err
                   (funcall open ol nil)
!                (error (setq reveal-backtrace (backtrace))
!                       (message "!!Reveal-show: %s !!" err)
                        ;; Let's default to a meaningful behavior to avoid
                        ;; getting stuck in an infinite loop.
                        (overlay-put ol 'invisible nil))))))))
       ;; Close old overlays.
       (dolist (ol old-ols)
--- 107,116 ----
               (setq repeat t)
               (condition-case err
                   (funcall open ol nil)
!                (error (message "!!Reveal-show: %s !!" err)
                        ;; Let's default to a meaningful behavior to avoid
                        ;; getting stuck in an infinite loop.
+                       (setq repeat nil)
                        (overlay-put ol 'invisible nil))))))))
       ;; Close old overlays.
       (dolist (ol old-ols)
***************
*** 134,144 ****
                                         (get ol 
'isearch-open-invisible-temporary)))))
                 (condition-case err
                     (funcall open ol t)
!                  (error (setq reveal-backtrace (backtrace))
!                         (message "!!Reveal-hide: %s !!" err)))
               (overlay-put ol 'invisible inv)))))))
!    (error (setq reveal-backtrace (backtrace))
!         (message "Reveal: %s" err)))))
  
  ;;;###autoload
  (define-minor-mode reveal-mode
--- 132,140 ----
                                         (get ol 
'isearch-open-invisible-temporary)))))
                 (condition-case err
                     (funcall open ol t)
!                  (error (message "!!Reveal-hide: %s !!" err)))
               (overlay-put ol 'invisible inv)))))))
!    (error (message "Reveal: %s" err)))))
  
  ;;;###autoload
  (define-minor-mode reveal-mode