HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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] "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 (#$ . 726))
(make-variable-buffer-local 'reveal-open-spots)
(defvar reveal-last-tick nil)
(make-variable-buffer-local 'reveal-last-tick)
(defalias 'reveal-post-command #[0 "\3031*\304\3051\306\304\307\310	\"\"\311
!\262
\312
!\262
0\202'\313\314\"\210\304\262
)0\207\210\315\316\317!\207" [inhibit-quit reveal-open-spots 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\271\305\262
\205	\205\306\307 !\306`!\244\211\203\265\211@\310
\"\262\311
!\203\256\312
\313\"\305
\203\254\n:\203\254
\n\236A\203\254\312\314\"\206U
9\203Q
\314N\206U\312\315\"\211\262\204n\312\316\"\204n\n:\203\254
\n\236A\203\254\317\320#\203\254\321 BB\211\204\212\317\313\305#\210\202\254\304\262\3221\231\211\305\"0\202\253\323\324$\210\305\262\317\313\305#\262
\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 (error) message "!!Reveal-show (funcall %s %s nil): %s !!"] 12 (#$ . 1476)])
#@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\3161m\211\317\"0\202v\320\321$\262
\210\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 (#$ . 2350)])
(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 (#$ . 3325))
(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\326\203[\327\202\\\330#\266\210\331 \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 " in current buffer" message "Reveal mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 3501) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar reveal-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\210\311\312\313\314\315DD\316\317\320\321\322\323\324\325\326&\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.)" add-minor-mode reveal-mode (global-reveal-mode nil " Reveal") nil 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 :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\300\304=\203\305\300!?\202\306!\307V\"\210\303\310\"\210\203+\311\312\313\314\"\210\2022\315\316\313\314\"\210\317\320\305\300!\203>\321\202?\322\"\210\323\324!\203i\325\300!\210\302 \203W\211\302 \232\203i\326\327\330\305\300!\203d\331\202e\332#\266\210\333 \210\305\300!\207" [global-reveal-mode search-invisible current-message set-default toggle default-value prefix-numeric-value 0 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%s" "en" "dis" force-mode-line-update] 7 (#$ . 5530) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-reveal-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\210\311\312!\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.)" add-minor-mode global-reveal-mode nil boundp provide reveal] 6)