From ea78522d4c8669a63c0cb190d914a76370a31d3d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 22 Nov 2004 20:52:10 +0000 Subject: (reveal-mode-map): New var. (reveal-mode): Use it. --- lisp/reveal.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp/reveal.el') 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) -- cgit v1.2.1