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)) |
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 |
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 |