Mercurial > emacs
diff lisp/reveal.el @ 90054:f2ebccfa87d4
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-74
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-709
Update from CVS: src/indent.c (Fvertical_motion): Fix last change.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-710
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-715
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-74
Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 08 Dec 2004 05:02:30 +0000 |
| parents | e24e2e78deda 180297c18beb |
| children | e4694597cbf4 |
line wrap: on
line diff
--- a/lisp/reveal.el Mon Dec 06 12:38:25 2004 +0000 +++ b/lisp/reveal.el Wed Dec 08 05:02:30 2004 +0000 @@ -151,6 +151,13 @@ (overlay-put ol 'invisible inv)))))))) (error (message "Reveal: %s" err))))) +(defvar reveal-mode-map + (let ((map (make-sparse-keymap))) + ;; Override the default move-end-of-line which skips valuable + ;; invisible text. + (define-key map [?\C-e] 'end-of-line) + map)) + ;;;###autoload (define-minor-mode reveal-mode "Toggle Reveal mode on or off. @@ -160,6 +167,7 @@ With universal prefix ARG (or if ARG is nil) turn mode on. With zero or negative ARG turn mode off." :lighter (global-reveal-mode nil " Reveal") + :keymap reveal-mode-map (if reveal-mode (progn (set (make-local-variable 'search-invisible) t)