| Current File : //proc/thread-self/root/kunden/kunden/proc/self/root/usr/share/emacs/27.2/lisp/reveal.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\2620\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\312 \305\262\205 \205 \306\307 !\306`!\244\211\203\306 \211@\310\"\262\311!\203\277 \312\313\"\312\314\"\2059 \312\315\"\305\203J \n:\203J \n\236A\204N \203\275 \312\315\"\206d 9\203` \315N\206d \312\316\"\211\262\204} \312\317\"\204} \n:\203\275 \n\236A\203\275 \203\207 \320\321#\210\322 B B\211\204\233 \320\313\305#\210\202\275 \304\262\3231\252 \211\305\"0\202\274 \324\325$\210\305\262\320\313\305#\262\210\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 (#$ . 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\203B p\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\"\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 (#$ . 2392)])
(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 (#$ . 3367))
(make-variable-buffer-local 'reveal-mode)
#@420 Toggle uncloaking of invisible text near point (Reveal mode).
If called interactively, enable Reveal mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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 (#$ . 3543) (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)
#@386 Toggle Reveal mode in all buffers (Global Reveal mode).
Reveal mode renders invisible text around point visible again.
If called interactively, enable Global Reveal mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(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 (#$ . 5651) (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)