Mercurial > emacs
comparison lisp/reveal.el @ 41778:19e76eadbf86
(reveal-mode): Fix reveal-mode's lighter.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 02 Dec 2001 07:39:45 +0000 |
| parents | 8835d207e12a |
| children | 44b4a14ae7fc |
comparison
equal
deleted
inserted
replaced
| 41777:ca6dfcb53a03 | 41778:19e76eadbf86 |
|---|---|
| 130 Reveal mode renders invisible text around point visible again. | 130 Reveal mode renders invisible text around point visible again. |
| 131 | 131 |
| 132 Interactively, with no prefix argument, toggle the mode. | 132 Interactively, with no prefix argument, toggle the mode. |
| 133 With universal prefix ARG (or if ARG is nil) turn mode on. | 133 With universal prefix ARG (or if ARG is nil) turn mode on. |
| 134 With zero or negative ARG turn mode off." | 134 With zero or negative ARG turn mode off." |
| 135 :lighter "Reveal" | 135 :lighter (global-reveal-mode nil " Reveal") |
| 136 (if reveal-mode | 136 (if reveal-mode |
| 137 (progn | 137 (progn |
| 138 (set (make-local-variable 'search-invisible) t) | 138 (set (make-local-variable 'search-invisible) t) |
| 139 (add-hook 'post-command-hook 'reveal-post-command nil t)) | 139 (add-hook 'post-command-hook 'reveal-post-command nil t)) |
| 140 (kill-local-variable 'search-invisible) | 140 (kill-local-variable 'search-invisible) |