| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/reveal.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:29 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/reveal.el ;;; in Emacs version 24.3.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 (#$ . 878)) (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)"] error #[257 "\300\301\"\207" [message "Reveal: %s"] 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@\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\"\206Z 9\203V \314N\206Z \312\315\"\240\204q \312\316\"\204q \n:\203\275 \n\236A\203\275 \317\320#\203\275 \321 B B\211@\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\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 reveal-toggle-invisible isearch-open-invisible-temporary isearch-open-invisible overlay-put reveal-invisible selected-window #1=#:err funcall make-byte-code 0 "\301@\300\302\"\207" vconcat vector [nil] 3 "\n\n(fn)" error 257 "\303\304\302@\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 \" \"\266A\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 (#$ . 4069)) (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 (#$ . 4245) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) (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 (#$ . 5965) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) (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)