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. |
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) |