(reveal-mode-map): New var.

(reveal-mode): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d844931560b0e8ecbc213f5ced76e752f909b2de..3d6f75429ff89375ecc63440b9b92472b4bdcef1 100644 (file)
--- 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 393400071a60457b646f4a18c45aade048ef95f2..04cc58893c99cdf0fadbd3c87786ec22c814fb54 100644 (file)
--- 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)