# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1101156730 0
# Node ID 180297c18beb0f3e54cddf1b5ce4cd6031ca539d
# Parent  b458d6bca4fe187e9a63fcb309c3a3d485d1e857
(reveal-mode-map): New var.
(reveal-mode): Use it.

diff -r b458d6bca4fe -r 180297c18beb lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Nov 22 20:38:40 2004 +0000
+++ b/lisp/ChangeLog	Mon Nov 22 20:52:10 2004 +0000
@@ -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 -r b458d6bca4fe -r 180297c18beb lisp/reveal.el
--- a/lisp/reveal.el	Mon Nov 22 20:38:40 2004 +0000
+++ b/lisp/reveal.el	Mon Nov 22 20:52:10 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)