From 836be5ce1667a85d3426900fe813de9b9b2964dd Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 31 Mar 2003 22:26:26 +0000 Subject: [PATCH] (reveal-post-command): Remove buggy debugging code. --- lisp/reveal.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/lisp/reveal.el b/lisp/reveal.el index c30686e4e27..88082c17621 100644 --- a/lisp/reveal.el +++ b/lisp/reveal.el @@ -61,8 +61,6 @@ ;; 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. @@ -109,10 +107,10 @@ (setq repeat t) (condition-case err (funcall open ol nil) - (error (setq reveal-backtrace (backtrace)) - (message "!!Reveal-show: %s !!" err) + (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,11 +132,9 @@ (get ol 'isearch-open-invisible-temporary))))) (condition-case err (funcall open ol t) - (error (setq reveal-backtrace (backtrace)) - (message "!!Reveal-hide: %s !!" err))) + (error (message "!!Reveal-hide: %s !!" err))) (overlay-put ol 'invisible inv))))))) - (error (setq reveal-backtrace (backtrace)) - (message "Reveal: %s" err))))) + (error (message "Reveal: %s" err))))) ;;;###autoload (define-minor-mode reveal-mode -- 2.39.2