;ELC
;;; Compiled
;;; in Emacs version 24.5.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301&\207" [custom-declare-group reveal nil "Reveal hidden text on the fly." :group convenience custom-declare-variable reveal-around-mark funcall function #[0 "\300\207" [t] 1 "\n\n(fn)"] "Reveal text around the mark, if active." :type boolean] 8)
#@91 List of spots in the buffer which are open.
Each element has the form (WINDOW . OVERLAY).
(defvar reveal-open-spots nil (#$ . 739))
(make-variable-buffer-local 'reveal-open-spots)
(defvar reveal-last-tick nil)
(make-variable-buffer-local 'reveal-last-tick)
(defalias 'reveal-post-command #[0 "\300\301\302D\303\301\304\300EDC\217\207" [#1=#:err funcall #[0 "\301\302\303\304D\305\303\306\302EDC\217)\207" [inhibit-quit nil #2=#:err funcall #[0 "\301\302\303\304\"\"\305
!\262
\306
!\207" [reveal-open-spots delq nil mapcar #[257 "\211@\300 =\203\211A\207\301
@!\205\302
@!p=?\205#\211\300 \240\210\211A\207" [selected-window window-live-p window-buffer] 3 "\n\n(fn X)"] reveal-open-new-overlays reveal-close-old-overlays] 5 "\n\n(fn)"] (debug error) #[257 "\300\301\"\210\302\207" [message "Reveal: %s" nil] 4 "\n\n(fn ERR)"]] 6 "\n\n(fn)"] quit #[257 "\301\302\303!\207" [quit-flag t eval (ignore nil)] 3 "\n\n(fn IGNORED)"]] 6 "\n\n(fn)"])
(defalias 'reveal-open-new-overlays #[257 "\304C\211\242\203\312\211\305\240\210\205	\205\306\307 !\306`!\244\211\203\306\211@\310
\"\262\311
!\203\277\312
\313\"\305C
\203\275\n:\203\275
\n\236A\203\275\211\312\314\"\206Z9\203V\314N\206Z\312\315\"\240\204q\312\316\"\204q\n:\203\275
\n\236A\203\275\317\320#\203\275\321 BB\211\242\204\216\317\313\305#\210\202\275\304\240\210\322\323\324\325\326\327\330	\"\331\"\332\333%D\334\323\324\335\336\327\330
\f#\337\"\340\341%\322EDC\217\210\266
A\266\202\202\210\202\210\207" [reveal-around-mark mark-active buffer-invisibility-spec reveal-open-spots t nil overlays-at mark delq overlay-start overlay-get invisible reveal-toggle-invisible isearch-open-invisible-temporary isearch-open-invisible overlay-put reveal-invisible selected-window #1=#:err funcall make-byte-code 0 "\301\242\300\302\"\207" vconcat vector [nil] 3 "\n\n(fn)" error 257 "\303\304\302\242\301$\210\300\305\240\210\306\301\307\305#\207" [message "!!Reveal-show (funcall %s %s nil): %s !!" nil overlay-put invisible] 6 "\n\n(fn ERR)"] 18 "\n\n(fn OLD-OLS)"])
(defalias 'reveal-close-old-overlays #[257 "\302 \211=\205\246\211\211\205\244\211@\303
!\203<`\212\303!b\210\304\305!)Y\203<`\212\306!b\210\304\307!)X\203<p\310!=\204\235\311
\312\"\311\313\"\206Q\211\313N\206Q\311\314\"\303!\203\207\211\203\207\315\316\317\320\321\322\323	\"\324\"\325\326%D\327\316\317\330\331\322\323\n\"\332\"\333\334%\315EDC\217\210\202\215\335\336#\210\335\312\337#\210\340\341	\"	\"\266
A\266\202\202\n\262
\207" [reveal-last-tick reveal-open-spots buffer-modified-tick overlay-start line-beginning-position 1 overlay-end 2 overlay-buffer overlay-get reveal-invisible reveal-toggle-invisible isearch-open-invisible-temporary #1=#:err funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [t] 3 "\n\n(fn)" error 257 "\302\303\301\300$\207" [message "!!Reveal-hide (funcall %s %s t): %s !!"] 6 "\n\n(fn ERR)" overlay-put invisible nil delq rassoc] 16 "\n\n(fn OLD-OLS)"])
(defvar reveal-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\211\207" [make-sparse-keymap define-key [remap move-beginning-of-line] beginning-of-line [remap move-end-of-line] end-of-line] 5))
#@91 Non-nil if Reveal mode is enabled.
Use the command `reveal-mode' to change this variable.
(defvar reveal-mode nil (#$ . 3962))
(make-variable-buffer-local 'reveal-mode)
#@341 Toggle uncloaking of invisible text near point (Reveal mode).
With a prefix argument ARG, enable Reveal mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
Reveal mode if ARG is omitted or nil.

Reveal mode is a buffer-local minor mode.  When enabled, it
reveals invisible text around point.

(fn &optional ARG)
(defalias 'reveal-mode #[256 "\302 
\303=\203
?\202\304!\305V\211\203'\306\301!\210\307\310\311\312\313\307$\210\2021\314\301!\210\315\311\312\307#\210\316\317\203;\320\202<\321\"\210\322\323!\203]\302 \203P\211\302 \232\203]\324\325\203Z\326\202[\327\"\210\210\330 \210\207" [reveal-mode search-invisible current-message toggle prefix-numeric-value 0 make-local-variable t add-hook post-command-hook reveal-post-command nil kill-local-variable remove-hook run-hooks reveal-mode-hook reveal-mode-on-hook reveal-mode-off-hook called-interactively-p any message "Reveal mode %sabled" "en" "dis" force-mode-line-update] 8 (#$ . 4138) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
#@176 Hook run after entering or leaving `reveal-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar reveal-mode-hook nil (#$ . 5198))
(byte-code "\301\302\303\304\211%\210\305\306\307\310\311DD\312\313\314\315\316\317\320\321\322&\207" [reveal-mode-map add-minor-mode reveal-mode (global-reveal-mode nil " Reveal") nil custom-declare-variable global-reveal-mode funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Non-nil if Global-Reveal mode is enabled.\nSee the command `global-reveal-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-reveal-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group reveal :type boolean] 12)
#@305 Toggle Reveal mode in all buffers (Global Reveal mode).
Reveal mode renders invisible text around point visible again.

With a prefix argument ARG, enable Global Reveal mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

(fn &optional ARG)
(defalias 'global-reveal-mode #[256 "\302 
\303=\203
?\202\304!\305V\306\307\"\210\203&\310\311\312\313\"\210\202-\314\315\312\313\"\210\316\317\2037\320\2028\321\"\210\322\323!\203]\324\300!\210\302 \203P\211\302 \232\203]\325\326\203Z\327\202[\330\"\210\210\331 \210\207" [global-reveal-mode search-invisible current-message toggle prefix-numeric-value 0 set-default reveal-mode t add-hook post-command-hook reveal-post-command open remove-hook run-hooks global-reveal-mode-hook global-reveal-mode-on-hook global-reveal-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Reveal mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 6082) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
#@183 Hook run after entering or leaving `global-reveal-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar global-reveal-mode-hook nil (#$ . 7149))
(byte-code "\301\302\303\304\300!\205\n\303\211%\210\305\306!\207" [global-reveal-mode-map add-minor-mode global-reveal-mode nil boundp provide reveal] 6)