[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/reveal.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/reveal.el |
Date: |
Mon, 31 Mar 2003 17:26:26 -0500 |
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