diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-22 20:52:10 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-22 20:52:10 +0000 |
| commit | ea78522d4c8669a63c0cb190d914a76370a31d3d (patch) | |
| tree | b1f4d0a55d9789083033163a1056049bad126a15 /lisp/reveal.el | |
| parent | 49561cf61f7b1aaddd3528e34d652d6de4e59c7e (diff) | |
(reveal-mode-map): New var.
(reveal-mode): Use it.
Diffstat (limited to 'lisp/reveal.el')
| -rw-r--r-- | lisp/reveal.el | 8 |
1 files changed, 8 insertions, 0 deletions
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) |