Commit 836be5ce authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent de02e8b4
......@@ -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)))))
(define-minor-mode reveal-mode
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment