diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-03-31 22:26:26 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-03-31 22:26:26 +0000 |
| commit | 836be5ce1667a85d3426900fe813de9b9b2964dd (patch) | |
| tree | 65680d748d1a9dad8ba768057635d4af3a905dda /lisp/reveal.el | |
| parent | de02e8b450c3bde0fa1725fe1598ab5d58e97ba9 (diff) | |
| download | emacs-836be5ce1667a85d3426900fe813de9b9b2964dd.tar.gz | |
(reveal-post-command): Remove buggy debugging code.
Diffstat (limited to 'lisp/reveal.el')
| -rw-r--r-- | lisp/reveal.el | 12 |
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 |