Mercurial > emacs

changeset 50384:09ec24acd6a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(reveal-post-command): Remove buggy debugging code.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 31 Mar 2003 22:26:26 +0000
parents 2018e9013e52
children 3d69189ed879
files lisp/reveal.el
diffstat 1 files changed, 4 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/reveal.el	Mon Mar 31 21:49:09 2003 +0000
+++ b/lisp/reveal.el	Mon Mar 31 22:26:26 2003 +0000
@@ -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