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



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301&\210\306\316\310\311\317DD\320\314\315\321\322&\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 #1=""] "Reveal text around the mark, if active." :type boolean reveal-auto-hide #[0 "\300\207" [t] 1 #1#] "Automatically hide revealed text when leaving it.\nIf nil, the `reveal-hide-revealed' command can be useful to hide\nrevealed text manually." :version "28.1"] 8)
#@91 List of spots in the buffer which are open.
Each element has the form (WINDOW . OVERLAY).
(defvar reveal-open-spots nil (#$ . 658))
(make-variable-buffer-local 'reveal-open-spots)
(defvar reveal-last-tick nil nil)
(make-variable-buffer-local 'reveal-last-tick)
(defalias 'reveal-post-command #[0 "\3041.\305\3061#\307\305\310\311	\"\"\312
!\262
\n\205\313
!\262
0\202+\314\315\"\210\305\262
)0\207\210\316\317\320!\207" [inhibit-quit reveal-open-spots reveal-auto-hide quit-flag (quit) nil (debug error) delq 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 message "Reveal: %s" t eval (ignore nil)] 5])
#@16 

(fn OLD-OLS)
(defalias 'reveal-open-new-overlays #[257 "\304\211\203\314\305\262
\205	\205\306\307 !\306`!\244\211\203\310\211@\310
\"\262\311
!\203\301\312
\313\"\312\314\"\2059\312\315\"\305\203J\n:\203J\n\236A\204N
\203\277\312\315\"\206d9\203`\315N\206d\312\316\"\211\262\204}\312\317\"\204}\n:\203\277\n\236A\203\277\203\207\320\321#\210\322 BB\211\204\234\320\313\305#\266\202\301\304\262\3231\255\211\305\"0\266\202\301\324\325$\210\305\262\320\313\305#\266\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 display reveal-toggle-invisible isearch-open-invisible-temporary isearch-open-invisible overlay-put reveal-invisible selected-window (error) message "!!Reveal-show (funcall %s %s nil): %s !!"] 13 (#$ . 1437)])
#@16 

(fn OLD-OLS)
(defalias 'reveal-close-old-overlays #[257 "\206	\303 \211=??\205\231\211\211\205\227\211@\304
!\203B`\212\304!b\210\305\306!)Y\203B`\212\307!b\210\305\310!)X\203Bp\311!=\204\220\312
\313\"\312\314\"\206W\211\314N\206W\312\315\"\304!\203z\211\203z\3161n\211\317\"0\210\202\200\320\321$\266\202\200\322\323#\210\322\313\324#\210\325\326\n\"\n\"\266
A\266\202\202\262
\207" [track-mouse 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 (error) t message "!!Reveal-hide (funcall %s %s t): %s !!" overlay-put invisible nil delq rassoc] 11 (#$ . 2355)])
#@102 Hide all revealed text.
If there is revealed text under point, this command does not hide
that text.
(defalias 'reveal-hide-revealed #[0 "\301\302 )\207" [reveal-auto-hide t reveal-post-command] 1 (#$ . 3125) nil])
(defvar reveal-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\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 (#$ . 3552))
(make-variable-buffer-local 'reveal-mode)
#@751 Toggle uncloaking of invisible text near point (Reveal mode).

This is a minor mode.  If called interactively, toggle the `Reveal
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `reveal-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

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

Also see the `reveal-auto-hide' variable.

(fn &optional ARG)
(defalias 'reveal-mode #[256 "\303 
\304=\203
?\202
\247\203
\305W\203\306\202\307\310\301!\2031\311\300	\"\2031\300	B\203E\312\302!\210\307\313\314\315\306\307$\210\202O\316\302!\210\317\314\315\307#\210\320\321\203Y\322\202Z\323\"\210\324\325!\203|\303 \203n\211\303 \232\203|\326\327\203x\330\202y\331\332#\210\210\333 \210\207" [reveal-mode local-minor-modes search-invisible current-message toggle 1 nil t boundp delq make-local-variable add-hook post-command-hook reveal-post-command 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%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 3728) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar reveal-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\314\315\316\317\320DD\321\322\323\324\325\326\327\330\331&\207" [reveal-mode-map reveal-mode-hook variable-documentation put "Hook run after entering or leaving `reveal-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode reveal-mode (global-reveal-mode nil " Reveal") custom-declare-variable global-reveal-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Reveal mode is enabled.\nSee the `global-reveal-mode' command\nfor 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 :type boolean :group reveal] 12)
#@700 Toggle Reveal mode in all buffers (Global Reveal mode).
Reveal mode renders invisible text around point visible again.

This is a minor mode.  If called interactively, toggle the `Global
Reveal mode' mode.  If the prefix argument is positive, enable the
mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='global-reveal-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'global-reveal-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B\304\314	\"\210	\203K\311\315\316\317\"\210\202R\320\321\316\317\"\210\322\323\306\301!\203^\324\202_\325\"\210\326\327!\203\207\330\301!\210\303 \203w\211\303 \232\203\207\331\332\306\301!\203\203\333\202\204\334\335#\210\210\336 \210\306\301!\207" [global-minor-modes global-reveal-mode search-invisible current-message set-default toggle default-value 1 nil t boundp delq reveal-mode 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%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 6349) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-reveal-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [global-reveal-mode-map global-reveal-mode-hook variable-documentation put "Hook run after entering or leaving `global-reveal-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-reveal-mode boundp provide reveal] 6)