(forward-word): Allow 0 args.

[bpt/emacs.git] / lisp / reveal.el

diff --git a/lisp/reveal.el b/lisp/reveal.el
index c30686e..2809db2 100644 (file)
--- 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.
@@ -97,7 +95,7 @@
                     (let ((inv (overlay-get ol 'invisible)))
                       (and inv (symbolp inv)
                            (or (setq open (or (get inv 'reveal-toggle-invisible)
-                                              (get ol 'isearch-open-invisible-temporary)))
+                                              (overlay-get ol 'isearch-open-invisible-temporary)))
                                (overlay-get ol 'isearch-open-invisible)
                                (and (consp buffer-invisibility-spec)
                                     (assq inv buffer-invisibility-spec)))
@@ -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)
@@ -131,14 +129,12 @@
             (if (or open
                     (and (setq inv (overlay-get ol 'reveal-invisible))
                          (setq open (or (get inv 'reveal-toggle-invisible)
-                                        (get ol 'isearch-open-invisible-temporary)))))
+                                        (overlay-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
@@ -175,4 +171,5 @@ With zero or negative ARG turn mode off."
 
 (provide 'reveal)
 
+;;; arch-tag: 96ba0242-2274-4ed7-8e10-26bc0707b4d8
 ;;; reveal.el ends here