;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (#$ . 657)) (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!\2620\202+\314\315\"\210\305\262)0\207\210\316\317\320\316\"\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 B B\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\266A\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 (#$ . 1440)])#@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\"\266A\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 (#$ . 2357)])#@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 (#$ . 3126) nil]) (defvar reveal-mode-map (define-keymap " " 'beginning-of-line " " 'end-of-line))#@91 Non-nil if Reveal mode is enabled. Use the command `reveal-mode' to change this variable. (defvar reveal-mode nil (#$ . 3484)) (make-variable-buffer-local 'reveal-mode)#@750 Toggle uncloaking of invisible text near point (Reveal mode). Reveal mode is a buffer-local minor mode. When enabled, it reveals invisible text around point. Also see the `reveal-auto-hide' variable. 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. (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\330\203y\331\202z\332\333$\210\210\334 \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 "%s %sabled%s" "Reveal mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 3659) (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)#@707 Toggle Reveal mode in all buffers (Global Reveal mode). Reveal mode renders invisible text around point visible again. This is a global 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\210\330\301!\210\303 \203w\211\303 \232\203\210\331\332\333\306\301!\203\204\334\202\205\335\336$\210\210\337 \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 "%s %sabled%s" "Global Reveal mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 6287) (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)