/[emacs]/emacs/lisp/reveal.el
ViewVC logotype

Diff of /emacs/lisp/reveal.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by monnier, Sun Oct 31 22:52:54 2004 UTC revision 1.13 by monnier, Mon Nov 22 20:52:10 2004 UTC
# Line 151  Line 151 
151                   (overlay-put ol 'invisible inv))))))))                   (overlay-put ol 'invisible inv))))))))
152     (error (message "Reveal: %s" err)))))     (error (message "Reveal: %s" err)))))
153    
154    (defvar reveal-mode-map
155      (let ((map (make-sparse-keymap)))
156        ;; Override the default move-end-of-line which skips valuable
157        ;; invisible text.
158        (define-key map [?\C-e] 'end-of-line)
159        map))
160    
161  ;;;###autoload  ;;;###autoload
162  (define-minor-mode reveal-mode  (define-minor-mode reveal-mode
163    "Toggle Reveal mode on or off.    "Toggle Reveal mode on or off.
# Line 160  Interactively, with no prefix argument, Line 167  Interactively, with no prefix argument,
167  With universal prefix ARG (or if ARG is nil) turn mode on.  With universal prefix ARG (or if ARG is nil) turn mode on.
168  With zero or negative ARG turn mode off."  With zero or negative ARG turn mode off."
169    :lighter (global-reveal-mode nil " Reveal")    :lighter (global-reveal-mode nil " Reveal")
170      :keymap reveal-mode-map
171    (if reveal-mode    (if reveal-mode
172        (progn        (progn
173          (set (make-local-variable 'search-invisible) t)          (set (make-local-variable 'search-invisible) t)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26