Mercurial > emacs
changeset 58435:180297c18beb
(reveal-mode-map): New var.
(reveal-mode): Use it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 22 Nov 2004 20:52:10 +0000 |
| parents | b458d6bca4fe |
| children | cb59b8d0f534 |
| files | lisp/ChangeLog lisp/reveal.el |
| diffstat | 2 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)