ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/paren.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\306\307&\210\310\311\312\313\314\315%\210\310\316\317\320\314\321\322\323\324\325& \210\310\326\327\330\314\331\332\333&\210\310\334\302\335\314\336\332\337&\210\310\340\302\341\314\336\332\342&\210\310\343\302\344\314\336\332\342&\210\345\346\347\350#\210\345\346\351\352\353!\206\\ \354#\210\345\355\347\356#\210\345\355\351\352\353!\206n \354#\210\310\357\354\360\314\336%\207" [custom-declare-group paren-showing nil "Showing (un)matching of parens and expressions." :prefix "show-paren-" :group paren-matching custom-declare-variable show-paren-style 'parenthesis "Style used when showing a matching paren.\nValid styles are `parenthesis' (meaning show the matching paren),\n`expression' (meaning show the entire expression enclosed by the paren) and\n`mixed' (meaning show the matching paren if it is visible, and the expression\notherwise)." :type (choice (const parenthesis) (const expression) (const mixed)) show-paren-delay 0.125 "Time in seconds to delay before showing a matching paren.\nIf you change this without using customize while `show-paren-mode' is\nactive, you must toggle the mode off and on again for this to take effect." (number :tag "seconds") :initialize custom-initialize-default :set #[(sym val) "\204 \nL\207\300\303!\210 \nL\210\300\304!\207" [show-paren-mode sym val -1 1] 2] show-paren-priority 1000 "Priority of paren highlighting overlays." integer :version "21.1" show-paren-ring-bell-on-mismatch "If non-nil, beep if mismatched paren is detected." boolean "20.3" show-paren-when-point-inside-paren "If non-nil, show parens when point is just inside one.\nThis will only be done when point isn't also just outside a paren." "25.1" show-paren-when-point-in-periphery "If non-nil, show parens when point is in the line's periphery.\nThe periphery is at the beginning or end of a line or in any\nwhitespace there." put show-paren-match-face face-alias show-paren-match obsolete-face purecopy "22.1" t show-paren-mismatch-face show-paren-mismatch show-paren-highlight-openparen "Non-nil turns on openparen highlighting when matching forward.\nWhen nil, and point stands just before an open paren, the paren\nis not highlighted, the cursor being regarded as adequate to mark\nits position."] 10)
(defvar show-paren--idle-timer nil)
#@47 Overlay used to highlight the matching paren.
(defvar show-paren--overlay (byte-code "\301``\302\303$\304!\210)\207" [ol make-overlay nil t delete-overlay] 5) (#$ . 2719))
#@47 Overlay used to highlight the paren at point.
(defvar show-paren--overlay-1 (byte-code "\301``\302\303$\304!\210)\207" [ol make-overlay nil t delete-overlay] 5) (#$ . 2900))
#@266 Non-nil if Show-Paren mode is enabled.
See the `show-paren-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `show-paren-mode'.
(custom-declare-variable 'show-paren-mode nil '(#$ . 3084) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'paren-showing :type 'boolean)
#@392 Toggle visualization of matching parens (Show Paren mode).
With a prefix argument ARG, enable Show Paren mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Show Paren mode is a global minor mode. When enabled, any
matching parenthesis is highlighted in `show-paren-style' after
`show-paren-delay' seconds of Emacs idle time.
(defalias 'show-paren-mode #[(&optional arg) "\306 \307\304 \310=\203 \311\304!?\202 \312 !\313V\"\210\n\203# \314\n!\210\315\316 \317\320#\f\2046 \321
!\210\321 !\210\322\323\311\304!\203B \324\202C \325\"\210\326\327!\203p \330\304!\210\306 \203[ \306 \232\203p \331 \332\333\311\304!\203j \334\202k \335 #\210))\336 \210\311\304!\207" [#1=#:last-message arg show-paren--idle-timer show-paren-delay show-paren-mode show-paren--overlay current-message set-default toggle default-value prefix-numeric-value 0 cancel-timer nil run-with-idle-timer t show-paren-function delete-overlay run-hooks show-paren-mode-hook show-paren-mode-on-hook show-paren-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Show-Paren mode %sabled%s" "en" "dis" force-mode-line-update show-paren--overlay-1 local] 4 (#$ . 3520) (list (or current-prefix-arg 'toggle))])
#@180 Hook run after entering or leaving `show-paren-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar show-paren-mode-hook nil (#$ . 4796))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [show-paren-mode-map add-minor-mode show-paren-mode nil boundp] 6)
#@53 Determine whether the paren after POS is unescaped.
(defalias 'show-paren--unescaped-p #[(pos) "\212b\210\301\302\303!\304\"\305U)\207" [pos logand skip-syntax-backward "/\\" 1 0] 3 (#$ . 5150)])
#@295 Determine whether the character after POS has paren syntax,
and if so, return a cons (DIR . OUTSIDE), where DIR is 1 for an
open paren, -1 for a close paren, and OUTSIDE is the buffer
position of the outside of the paren. If the character isn't a
paren, or it is an escaped paren, return nil.
(defalias 'show-paren--categorize-paren #[(pos) "\301\302!!\303=\203 \304!\203 \305B\207\301\302!!\306=\205( \304!\205( \307TB\207" [pos syntax-class syntax-after 4 show-paren--unescaped-p 1 5 -1] 3 (#$ . 5354)])
#@242 Locate an unescaped paren "near" point to show.
If one is found, return the cons (DIR . OUTSIDE), where DIR is 1
for an open paren, -1 for a close paren, and OUTSIDE is the buffer
position of the outside of the paren. Otherwise return nil.
(defalias 'show-paren--locate-near-paren #[nil "\212\306 \210`)\212\307\210\310x\210`)\311`S!\311`!\n@\312=\203& \n\202f @\313=\2031 \202f \f\2039 \n\206f \f\203A \206f
\203X `X\203X \311!\206f \311 S!\202f
\205f ` Y\205f \311 S!,\207" [ind-pos eol-pos before after show-paren-when-point-inside-paren show-paren-when-point-in-periphery back-to-indentation nil " " show-paren--categorize-paren -1 1] 2 (#$ . 5876)])
#@299 Function to find the opener/closer "near" point and its match.
The function is called with no argument and should return either nil
if there's no opener/closer near point, or a list of the form
(HERE-BEG HERE-END THERE-BEG THERE-END MISMATCH)
Where HERE-BEG..HERE-END is expected to be near point.
(defvar show-paren-data-function 'show-paren--default (#$ . 6553))
#@107 Finds the opener/closer near point and its match.
It is the default value of `show-paren-data-function'.
(defalias 'show-paren--default #[nil "\306 \211@A\307\211 \307\211 \205\352 \310=\203 \n\202\" \nS \310=\203. \nT\202/ \n\214\203E e`Z]d`\\^}\210\3111S \312\n \"\2110\202Y \210\313\211\211\210 \250\203u \3141n \n\312 [\"=0\202p \210\307\204u \307 \250\204\211 \f\205\351
\307\211\313\257\202\351 \n^ \n] \315\316!!\317=\204\312 \206\244 `Sf\316!A=\206\310 f\316S!A=\206\310 \316S!A\316!A=?
\310U\203\330 S\202\331 \310U\203\343 \202\345 T\f\257*).\207" [temp dir outside pos mismatch here-beg show-paren--locate-near-paren nil 1 (error) scan-sexps t (error) syntax-class syntax-after 8 here-end blink-matching-paren-distance end beg] 6 (#$ . 6925)])
#@57 Highlight the parentheses until the next input arrives.
(defalias 'show-paren-function #[nil "\205 \211\204 \306 !\210\306\f!\202\346 \n@ \nA@ \307\n8 \310\n8 \311\n8\211 \203< \2038 \312 \210\313\202= \314
\203[ \204b `V\203b
`X\203b \250\203b \306\f!\210\202x \315\f
p$\210\316\f\317#\210\316\f\320#\210\204\203 \306 !\202\344 \321=\204\253 \322=\203\316
W\203\236 S\202\241 T \323 !)\204\316 \315
W\203\271 \202\272
W\203\306 \202\310 p$\210\202\327 \315 p$\210\316 \317#\210\316 \320#.)\207" [show-paren-mode show-paren-data-function data show-paren--overlay show-paren--overlay-1 here-beg delete-overlay 2 3 4 beep show-paren-mismatch show-paren-match move-overlay overlay-put priority face expression mixed pos-visible-in-window-p here-end there-beg there-end mismatch show-paren-ring-bell-on-mismatch show-paren-highlight-openparen show-paren-priority show-paren-style closest] 6 (#$ . 7744)])
(provide 'paren)
Kontol Shell Bypass