[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 15:56:14 -0500 |
Index: emacs/lisp/reveal.el
diff -c emacs/lisp/reveal.el:1.7 emacs/lisp/reveal.el:1.8
*** emacs/lisp/reveal.el:1.7 Sun Nov 17 23:07:47 2002
--- emacs/lisp/reveal.el Mon Mar 31 15:56:14 2003
***************
*** 61,66 ****
--- 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.
***************
*** 107,113 ****
(setq repeat t)
(condition-case err
(funcall open ol nil)
! (error (message "!!Reveal-show: %s !!" err))))))))
;; Close old overlays.
(dolist (ol old-ols)
(when (and (eq (current-buffer) (overlay-buffer ol))
--- 109,119 ----
(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)
(when (and (eq (current-buffer) (overlay-buffer ol))
***************
*** 128,136 ****
(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
--- 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
- [Emacs-diffs] Changes to emacs/lisp/reveal.el,
Stefan Monnier <=