ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/reveal.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 728))
(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])
(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 B B\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\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 (error) message "!!Reveal-show (funcall %s %s nil): %s !!"] 12 "\n\n(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 "\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 (#$ . 3299))
(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 (#$ . 3475) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@176 Hook run after entering or leaving `reveal-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar reveal-mode-hook nil (#$ . 4564))
(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] "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 (#$ . 5438) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@183 Hook run after entering or leaving `global-reveal-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar global-reveal-mode-hook nil (#$ . 6574))
(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)
Kontol Shell Bypass