;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 #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 #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!\210

L\210\300\302!\207" [show-paren-mode -1 1] 4 "\n\n(fn SYM VAL)"] show-paren-priority #[0 "\300\207" [1000] 1 #1#] "Priority of paren highlighting overlays." integer :version "21.1" show-paren-ring-bell-on-mismatch #[0 "\300\207" [nil] 1 #1#] "If non-nil, beep if mismatched paren is detected." boolean "20.3" show-paren-when-point-inside-paren #[0 "\300\207" [nil] 1 #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 #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 #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\207" [make-overlay nil t delete-overlay] 5) (#$ . 2420))
#@47 Overlay used to highlight the paren at point.
(defvar show-paren--overlay-1 (byte-code "\300``\301\302$\303
!\210\207" [make-overlay nil t delete-overlay] 5) (#$ . 2595))
(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" [t] 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-delay :type boolean :group paren-showing] 12)
#@863 Toggle visualization of matching parens (Show Paren mode).

This is a minor mode.  If called interactively, toggle the `Show-Paren
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='show-paren-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

When enabled, any matching parenthesis is highlighted in `show-paren-style'
after `show-paren-delay' seconds of Emacs idle time.

This is a global minor mode.  To toggle the mode in a single buffer,
use `show-paren-local-mode'.

(fn &optional ARG)
(defalias 'show-paren-mode #[256 "\304 \305\303\306=\203\307\303!?\202!\247\203 \310W\203 \311\202!\312\"\210\313\300!\2038\314\303\"\307\303!\2038\303B	\203B\315	!\210\311\316\n\312\317#\204O\320 \210\321\322\307\303!\203[\323\202\\\324\"\210\325\326!\203\204\327\303!\210\304 \203t\211\304 \232\203\204\330\331\307\303!\203\200\332\202\201\333\334#\210\210\335 \210\307\303!\207" [global-minor-modes show-paren--idle-timer show-paren-delay show-paren-mode current-message set-default toggle default-value 1 nil t boundp delq cancel-timer run-with-idle-timer show-paren-function show-paren--delete-overlays 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] 6 (#$ . 3309) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar show-paren-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode show-paren-mode boundp] 6)
(defalias 'show-paren--delete-overlays #[0 "\302!\210\302	!\207" [show-paren--overlay show-paren--overlay-1 delete-overlay] 2])
#@649 Toggle `show-paren-mode' only in this buffer.

This is a minor mode.  If called interactively, toggle the
`Show-Paren-Local mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(buffer-local-value \='show-paren-mode (current-buffer))'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'show-paren-local-mode #[256 "\302 p\303=\203\304\300p\"?\202!\247\203 \305W\203 \306\202!\307r
q\210\310\300!\210\211)\266\311\301!\203D\312\313	\"\304\300p\"\203D\313	B\314\300!=\203Z\204S\315 \210\316\300!\210\202o\314\300!\204l\300\305!\210\317\300\306\"\210\202o\315 \210\320\321\304\300p\"\203|\322\202}\323\"\210\324\325!\203\242\302 \203\221\211\302 \232\203\242\326\327\304\300p\"\203\236\330\202\237\331\332#\210\210\333 \210\304\300p\"\207" [show-paren-mode local-minor-modes current-message toggle buffer-local-value 1 nil t make-local-variable boundp delq show-paren-local-mode default-value show-paren--delete-overlays kill-local-variable set-default run-hooks show-paren-local-mode-hook show-paren-local-mode-on-hook show-paren-local-mode-off-hook called-interactively-p any message "Show-Paren-Local mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 5755) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar show-paren-local-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [show-paren-local-mode-hook variable-documentation put "Hook run after entering or leaving `show-paren-local-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil] 4)
#@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 (#$ . 7865)])
#@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\304
B\207\300\301!!\305=\205(\303
!\205(\306
TB\207" [syntax-class syntax-after 4 show-paren--unescaped-p 1 5 -1] 4 (#$ . 8076)])
#@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\304
x\210`)\305`S!\305`!
@\306=\203 
\207\211@\307=\203(\207\2030
\206[\2038\211\206[	\203M`X\203M\305!\206[\305S!\207	\205[`Y\205[\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 (#$ . 8602)])
#@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 (#$ . 9237))
#@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\342\303=\203\202S\262\303=\203'T\202(\262
\214\203;e`Z]d`\\^}\210\3041L\305\"\211\2620\210\202S\210\306\262\306\262\250\203p\3071h\305[\"=0\202j\210\302\204p\302\262\250\204\203\205\341

\302\211\306\257\202\341^]\310\311!!\312=\204\273\211\206\231`Sf\311!A=\206\270
f\311S!A=\206\270\311
S!A\311!A=?\262	\303U\203\312S\202\314\n\303U\203\330\202\333T\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 (#$ . 9609)])
#@57 Highlight the parentheses until the next input arrives.
(defalias 'show-paren-function #[0 "\205	 \211\204\306\n!\210\306!\207\211@
A@\3078\3108\3118\f\312=\206C\205C\f\313=\205CW\203;
S\202=T\314
!?\262

\203R
\203N\315 \210\316\202[\211\203Z\317\202[\320\203w\204~`V\203~`X\203~\250\203~\306!\210\202\224\321p$\210\322\323#\210\322\324#\210\204\234\306\n!\207
\203\306\321\n	W\203\257\202\261\nW\203\276\202\300p$\210\202\317\321\np$\210\322\n\323#\210\322\n\324#\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 (#$ . 10377)])
(provide 'paren)