(reveal-mode-map): New var.

(reveal-mode): Use it.

2 files changed, 13 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d844931560b..3d6f75429ff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * reveal.el (reveal-mode-map): New var.
+        (reveal-mode): Use it.
+
 2004-11-23  Nick Roberts  <nickrob@snap.net.nz>
 
         * progmodes/gdb-ui.el (gdb-flush-pending-output): New variable.
diff --git a/lisp/reveal.el b/lisp/reveal.el
index 393400071a6..04cc58893c9 100644
--- a/lisp/reveal.el
+++ b/lisp/reveal.el
@@ -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 @@ Interactively, with no prefix argument, toggle the mode.
 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)