From ea78522d4c8669a63c0cb190d914a76370a31d3d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 22 Nov 2004 20:52:10 +0000 Subject: [PATCH] (reveal-mode-map): New var. (reveal-mode): Use it. --- lisp/ChangeLog | 5 +++++ lisp/reveal.el | 8 ++++++++ 2 files changed, 13 insertions(+) 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 + + * reveal.el (reveal-mode-map): New var. + (reveal-mode): Use it. + 2004-11-23 Nick Roberts * 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) -- 2.39.2