/[emacs]/emacs/lisp/reveal.el
ViewVC logotype

Diff of /emacs/lisp/reveal.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by monnier, Mon May 20 18:31:20 2002 UTC revision 1.6.2.1 by miles, Fri Apr 4 06:20:10 2003 UTC
# Line 107  Line 107 
107                 (setq repeat t)                 (setq repeat t)
108                 (condition-case err                 (condition-case err
109                     (funcall open ol nil)                     (funcall open ol nil)
110                   (error (message "!!Reveal-show: %s !!" err))))))))                   (error (message "!!Reveal-show: %s !!" err)
111                            ;; Let's default to a meaningful behavior to avoid
112                            ;; getting stuck in an infinite loop.
113                            (setq repeat nil)
114                            (overlay-put ol 'invisible nil))))))))
115       ;; Close old overlays.       ;; Close old overlays.
116       (dolist (ol old-ols)       (dolist (ol old-ols)
117         (when (and (eq (current-buffer) (overlay-buffer ol))         (when (and (eq (current-buffer) (overlay-buffer ol))
# Line 156  Reveal mode renders invisible text aroun Line 160  Reveal mode renders invisible text aroun
160  Interactively, with no prefix argument, toggle the mode.  Interactively, with no prefix argument, toggle the mode.
161  With universal prefix ARG (or if ARG is nil) turn mode on.  With universal prefix ARG (or if ARG is nil) turn mode on.
162  With zero or negative ARG turn mode off."  With zero or negative ARG turn mode off."
163    :global t    :global t :group 'reveal
164    (setq-default reveal-mode global-reveal-mode)    (setq-default reveal-mode global-reveal-mode)
165    (if global-reveal-mode    (if global-reveal-mode
166        (progn        (progn
# Line 166  With zero or negative ARG turn mode off. Line 170  With zero or negative ARG turn mode off.
170      (remove-hook 'post-command-hook 'reveal-post-command)))      (remove-hook 'post-command-hook 'reveal-post-command)))
171    
172  (provide 'reveal)  (provide 'reveal)
173    
174  ;;; reveal.el ends here  ;;; reveal.el ends here

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26