Mercurial > emacs
comparison lisp/reveal.el @ 48399:59fc5f077731
(global-reveal-mode): Add group.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Mon, 18 Nov 2002 04:07:47 +0000 |
| parents | ac7e0cc03aed |
| children | 73660951a233 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 48398:a885153e42b4 | 48399:59fc5f077731 |
|---|---|
| 154 Reveal mode renders invisible text around point visible again. | 154 Reveal mode renders invisible text around point visible again. |
| 155 | 155 |
| 156 Interactively, with no prefix argument, toggle the mode. | 156 Interactively, with no prefix argument, toggle the mode. |
| 157 With universal prefix ARG (or if ARG is nil) turn mode on. | 157 With universal prefix ARG (or if ARG is nil) turn mode on. |
| 158 With zero or negative ARG turn mode off." | 158 With zero or negative ARG turn mode off." |
| 159 :global t | 159 :global t :group 'reveal |
| 160 (setq-default reveal-mode global-reveal-mode) | 160 (setq-default reveal-mode global-reveal-mode) |
| 161 (if global-reveal-mode | 161 (if global-reveal-mode |
| 162 (progn | 162 (progn |
| 163 (setq search-invisible t) | 163 (setq search-invisible t) |
| 164 (add-hook 'post-command-hook 'reveal-post-command)) | 164 (add-hook 'post-command-hook 'reveal-post-command)) |
| 165 (setq search-invisible 'open) ;FIXME | 165 (setq search-invisible 'open) ;FIXME |
| 166 (remove-hook 'post-command-hook 'reveal-post-command))) | 166 (remove-hook 'post-command-hook 'reveal-post-command))) |
| 167 | 167 |
| 168 (provide 'reveal) | 168 (provide 'reveal) |
| 169 | |
| 169 ;;; reveal.el ends here | 170 ;;; reveal.el ends here |