(reveal-post-command): Remove buggy debugging code.

1 files 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