Current File : //usr/local/share/emacs/27.2/lisp/paren.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\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323\324\325\326\327& \210\310\330\312\313\331DD\332\316\333\334\335&\210\310\336\312\313\337DD\340\316\341\334\342&\210\310\343\312\313\344DD\345\316\341\334\346&\210\310\347\312\313\350DD\351\316\341\334\346&\210\310\352\312\313\353DD\354\316\341%\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 funcall function #[0 "\300\207" [parenthesis] 1] "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 "\300\207" [0.125] 1] "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 #[514 "\204 L\207\300\301!\210L\210\300\302!\207" [show-paren-mode -1 1] 4 "\n\n(fn SYM VAL)"] show-paren-priority #[0 "\300\207" [1000] 1] "Priority of paren highlighting overlays." integer :version "21.1" show-paren-ring-bell-on-mismatch #[0 "\300\207" [nil] 1] "If non-nil, beep if mismatched paren is detected." boolean "20.3" show-paren-when-point-inside-paren #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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." show-paren-highlight-openparen #[0 "\300\207" [t] 1] "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 "\300``\301\302$\303!\210\211\207" [make-overlay nil t delete-overlay] 5) (#$ . 2714))
#@47 Overlay used to highlight the paren at point.
(defvar show-paren--overlay-1 (byte-code "\300``\301\302$\303!\210\211\207" [make-overlay nil t delete-overlay] 5) (#$ . 2893))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable show-paren-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Show-Paren mode is enabled.\nSee the `show-paren-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 `show-paren-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group paren-showing :type boolean] 12)
#@494 Toggle visualization of matching parens (Show Paren mode).
If called interactively, enable Show-Paren 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.
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.
(fn &optional ARG)
(defalias 'show-paren-mode #[256 "\305 \306\302\307=\203 \310\302!?\202 \311!\312V\"\210\203\" \313!\210\314\315 \316\317#\n\2044 \320 !\210\320\f!\210\321\322\310\302!\203@ \323\202A \324\"\210\325\326!\203k \327\302!\210\305 \203Y \211\305 \232\203k \330\331\332\310\302!\203f \333\202g \334#\266\210\335 \210\310\302!\207" [show-paren--idle-timer show-paren-delay show-paren-mode show-paren--overlay show-paren--overlay-1 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] 7 (#$ . 3612) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar show-paren-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [show-paren-mode-map show-paren-mode-hook variable-documentation put "Hook run after entering or leaving `show-paren-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 show-paren-mode nil boundp] 6)
#@63 Determine whether the paren after POS is unescaped.
(fn POS)
(defalias 'show-paren--unescaped-p #[257 "\212\211b\210\300\301\302!\303\"\304U)\207" [logand skip-syntax-backward "/\\" 1 0] 4 (#$ . 5396)])
#@305 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.
(fn POS)
(defalias 'show-paren--categorize-paren #[257 "\300\301!!\302=\203 \303!\203 \304B\207\300\301!!\305=\205( \303!\205( \306TB\207" [syntax-class syntax-after 4 show-paren--unescaped-p 1 5 -1] 4 (#$ . 5607)])
#@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 #[0 "\212\302 \210`)\212\303\210\304x\210`)\305`S!\305`!@\306=\203\" \202b \211@\307=\203- \211\202b \2035 \206b \203= \211\206b \203T `X\203T \305!\206b \305S!\202b \205b `Y\205b \305S!\207" [show-paren-when-point-inside-paren show-paren-when-point-in-periphery back-to-indentation nil " " show-paren--categorize-paren -1 1] 6 (#$ . 6133)])
#@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 (#$ . 6779))
#@106 Find the opener/closer near point and its match.
It is the default value of `show-paren-data-function'.
(defalias 'show-paren--default #[0 "\301 \211@A\302\211\211\211\205\343 \303=\203 \202 S\262\303=\203' T\202( \262\214\203; e`Z]d`\\^}\210\3041K \305\"\211\2620\202S \210\306\262\306\211\262\210\250\203q \3071i \305[\"=0\202k \210\302\204q \302\262\250\204\204 \205\342 \302\211\306\257\202\342 ^]\310\311!!\312=\204\274 \211\206\232 `Sf\311!A=\206\271 f\311S!A=\206\271 \311S!A\311!A=?\262 \303U\203\313 S\202\315 \n\303U\203\331 \202\334 T\257\266\202)\207" [blink-matching-paren-distance show-paren--locate-near-paren nil 1 (error) scan-sexps t (error) syntax-class syntax-after 8] 14 (#$ . 7151)])
#@57 Highlight the parentheses until the next input arrives.
(defalias 'show-paren-function #[0 "\205 \211\204 \306\n!\210\306 !\202\341 \211@A@\3078\3108\3118\f\312=\206E \205E \f\313=\205E W\203= S\202? T\314!?\262\203T
\203P \315 \210\316\202] \211\203\\ \317\202] \320\203y \204\200 `V\203\200 `X\203\200 \250\203\200 \306 !\210\202\226 \321 p$\210\322 \323#\210\322 \324#\210\204\240 \306\n!\202\337 \203\312 \321\n W\203\263 \202\265 \nW\203\302 \202\304 p$\210\202\323 \321\np$\210\322\n\323#\210\322\n\324#\266\207\207" [show-paren-mode show-paren-data-function show-paren--overlay show-paren--overlay-1 show-paren-style show-paren-ring-bell-on-mismatch delete-overlay 2 3 4 expression mixed pos-visible-in-window-p beep show-paren-mismatch show-paren-match-expression show-paren-match move-overlay overlay-put priority face show-paren-highlight-openparen show-paren-priority] 13 (#$ . 7923)])
(provide 'paren)
Mini Shell