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



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315&	\210\302\316\304\305\317DD\320\310\321\312\313\314\322&	\210\302\323\304\305\324DD\325\310\311\312\313\314\326&	\210\302\327\304\305\330DD\331\310\321\312\313\314\332&	\210\302\333\304\305\334DD\335\310\321\312\313\314\336&	\210\302\337\304\305\340DD\341\310\321\312\313\314\342&	\210\302\343\304\305\344DD\345\310\321\312\313\314\346&	\210\302\347\304\305\350DD\351\310\321\312\313\314\352&	\210\302\353\304\305\354DD\355\310\321\312\313\314\356&	\207" [require electric custom-declare-variable electric-pair-pairs funcall function #[0 "\301@A@B\3028\3038BE\207" [electric-quote-chars (34 . 34) 2 3] 5 #1=""] "Alist of pairs that should be used regardless of major mode.\n\nPairs of delimiters in this list are a fallback in case they have\nno syntax relevant to `electric-pair-mode' in the mode's syntax\ntable.\n\nSee also the variable `electric-pair-text-pairs'." :version "24.1" :group electricity :type (repeat (cons character character)) electric-pair-text-pairs #[0 "\301@A@B\3028\3038BE\207" [electric-quote-chars (34 . 34) 2 3] 5 #1#] "Alist of pairs that should always be used in comments and strings.\n\nPairs of delimiters in this list are a fallback in case they have\nno syntax relevant to `electric-pair-mode' in the syntax table\ndefined in `electric-pair-text-syntax-table'." "24.4" (repeat (cons character character)) electric-pair-skip-self #[0 "\300\207" [electric-pair-default-skip-self] 1 #1#] "If non-nil, skip char instead of inserting a second closing paren.\n\nWhen inserting a closing paren character right before the same character,\njust skip that character instead, so that hitting ( followed by ) results\nin \"()\" rather than \"())\".\n\nThis can be convenient for people who find it easier to hit ) than \\[forward-char].\n\nCan also be a function of one argument (the closer char just\ninserted), in which case that function's return value is\nconsidered instead." (choice (const :tag "Never skip" nil) (const :tag "Help balance" electric-pair-default-skip-self) (const :tag "Always skip" t) function) electric-pair-inhibit-predicate #[0 "\300\207" [electric-pair-default-inhibit] 1 #1#] "Predicate to prevent insertion of a matching pair.\n\nThe function is called with a single char (the opening char just inserted).\nIf it returns non-nil, then `electric-pair-mode' will not insert a matching\ncloser." (choice (const :tag "Conservative" electric-pair-conservative-inhibit) (const :tag "Help balance" electric-pair-default-inhibit) (const :tag "Always pair" ignore) function) electric-pair-preserve-balance #[0 "\300\207" [t] 1 #1#] "Non-nil if default pairing and skipping should help balance parentheses.\n\nThe default values of `electric-pair-inhibit-predicate' and\n`electric-pair-skip-self' check this variable before delegating to other\npredicates responsible for making decisions on whether to pair/skip some\ncharacters based on the actual state of the buffer's parentheses and\nquotes." boolean electric-pair-delete-adjacent-pairs #[0 "\300\207" [t] 1 #1#] "If non-nil, backspacing an open paren also deletes adjacent closer.\n\nCan also be a function of no arguments, in which case that function's\nreturn value is considered instead." (choice (const :tag "Yes" t) (const :tag "No" nil) function) electric-pair-open-newline-between-pairs #[0 "\300\207" [t] 1 #1#] "If non-nil, a newline between adjacent parentheses opens an extra one.\n\nCan also be a function of no arguments, in which case that function's\nreturn value is considered instead." (choice (const :tag "Yes" t) (const :tag "No" nil) function) electric-pair-skip-whitespace #[0 "\300\207" [t] 1 #1#] "If non-nil skip whitespace when skipping over closing parens.\n\nThe specific kind of whitespace skipped is given by the variable\n`electric-pair-skip-whitespace-chars'.\n\nThe symbol `chomp' specifies that the skipped-over whitespace\nshould be deleted.\n\nCan also be a function of no arguments, in which case that function's\nreturn value is considered instead." (choice (const :tag "Yes, jump over whitespace" t) (const :tag "Yes, and delete whitespace" chomp) (const :tag "No, no whitespace skipping" nil) function) electric-pair-skip-whitespace-chars #[0 "\300\301\302E\207" [9 32 10] 3 #1#] "Whitespace characters considered by `electric-pair-skip-whitespace'." (choice (set (const :tag "Space" 32) (const :tag "Tab" 9) (const :tag "Newline" 10)) (list character))] 10)
#@232 Function to use to skip whitespace forward.
Before attempting a skip, if `electric-pair-skip-whitespace' is
non-nil, this function is called.  It move point to a new buffer
position, presumably skipping only whitespace in between.
(defvar electric-pair-skip-whitespace-function 'electric-pair--skip-whitespace (#$ . 4563))
(make-variable-buffer-local 'electric-pair-skip-whitespace-function)
#@69 Skip whitespace forward, not crossing comment or string boundaries.
(defalias 'electric-pair--skip-whitespace #[0 "`\301\302 8\303\304\"\305w\210\211\301\302 8=?\205
b\207" [electric-pair-skip-whitespace-chars 8 syntax-ppss apply string nil] 5 (#$ . 4961)])
#@227 Syntax table used when pairing inside comments and strings.

`electric-pair-mode' considers this syntax table only when point in inside
quotes or comments.  If lookup fails here, `electric-pair-text-pairs' will
be considered.
(defvar electric-pair-text-syntax-table prog-mode-syntax-table (#$ . 5229))
#@13 

(fn CHAR)
(defalias 'electric-pair-conservative-inhibit #[257 "\211\300f=\206 \211`Sf=\203\211`S\206`Sf=\206 gz\301=\207" [nil 119] 3 (#$ . 5537)])
#@363 Calculate a list (SYNTAX PAIR UNCONDITIONAL STRING-OR-COMMENT-START).

SYNTAX is COMMAND-EVENT's syntax character.  PAIR is
COMMAND-EVENT's pair.  UNCONDITIONAL indicates the variables
`electric-pair-pairs' or `electric-pair-text-pairs' were used to
lookup syntax.  STRING-OR-COMMENT-START indicates that point is
inside a comment or string.

(fn COMMAND-EVENT)
(defalias 'electric-pair-syntax-info #[257 "o\206\f\303\212\304`S!)8\303\304`!8\211\205
\211\203\202 \305 \305 p\306\307#\216\310!\210z\311!\2069)D\266\202\203H\312	\n\"\202I\n
\236\313\"@\314>\203a\312\315D\"\207
\203}
@A=\203u\316	\317F\207\320A\317F\207\211\205\210\321
@\317F\207" [electric-pair-text-syntax-table electric-pair-text-pairs electric-pair-pairs 8 syntax-ppss syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table matching-paren append rassq (34 40 41 36) nil 34 t 40 41] 13 (#$ . 5700)])
#@13 

(fn CHAR)
(defalias 'electric-pair--insert #[257 "\211\304\211\305\306\307!,\207" [electric-layout-allow-duplicate-newlines electric-pair-mode blink-matching-paren last-command-event nil t self-insert-command 1] 5 (#$ . 6664)])
#@425 Like `with-syntax-table', but flush the `syntax-ppss' cache afterwards.
Use this instead of (with-syntax-table TABLE BODY) when BODY
contains code which may update the `syntax-ppss' cache.  This
includes calling `parse-partial-sexp' and any sexp-based movement
functions when `parse-sexp-lookup-properties' is non-nil.  The
cache is flushed from position START, defaulting to point.

(fn (TABLE &optional START) &rest BODY)
(defalias 'electric-pair--with-uncached-syntax '(macro . #[128 "\211\203
\211
A\262\242\202\300\301\302GD\"\211\203!\211
A\262\242\202(\300\301\302GD\"
\211A\262\242\203=\300\301\302\303G\\D\"\210\304\305!\306\307\206H\310DD\311\312	BB\313DEE\207" [signal wrong-number-of-arguments electric-pair--with-uncached-syntax 2 make-symbol "start" let (syntax-propertize-function #'ignore) (point) unwind-protect with-syntax-table syntax-ppss-flush-cache] 11 (#$ . 6905)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put electric-pair--with-uncached-syntax edebug-form-spec ((form &optional form) body) function-put lisp-indent-function 1] 4)
#@200 Like `syntax-ppss', but sometimes fallback to `parse-partial-sexp'.

WHERE is a list defaulting to '(string comment) and indicates
when to fallback to `parse-partial-sexp'.

(fn &optional POS WHERE)
(defalias 'electric-pair--syntax-ppss #[512 "
\206`
\206\n\303\304!\305
8\205\306>\3078\205\310>
\203*\3118T\202=\211\205=\3118b\210\312d[!\210\313\314!\210`\211\203a\315

\316\317\"\216\320 p\316\321#\216\322	!\210\323\")\266\202*\207\n\324>\203m\323e\"\207\207" [syntax-propertize-function electric-pair-text-syntax-table major-mode (string comment) syntax-ppss 3 string 4 comment 8 forward-comment skip-syntax-forward " >!" ignore make-closure #[0 "\301\300!\207" [V0 syntax-ppss-flush-cache] 2] syntax-table #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table parse-partial-sexp (c-mode c++ mode)] 16 (#$ . 8010)])
#@512 Examine lists forward or backward according to DIRECTION's sign.

STRING-OR-COMMENT is info suitable for running `parse-partial-sexp'.

Return a cons of two descriptions (MATCHED-P . PAIR) for the
innermost and outermost lists that enclose point.  The outermost
list enclosing point is either the first top-level or first
mismatched list found by listing up.

If the outermost list is matched, don't rely on its PAIR.
If point is not enclosed by any lists, return ((t) . (t)).

(fn DIRECTION STRING-OR-COMMENT)
(defalias 'electric-pair--balance-info #[514 "\302C\302C\203\f\202\303 \304\305\212\242\204\207\3061S\307`
\310\311\"\216\303 p\310\312#\216\313!\210\314`\f\315V\203>d\202@d[\"\210		\")\266\202*\266\2020\210\202\316\317A@\"\203h\203s\320\321 8\204s\"\266\202\322
8b\210
$\266\202)\242\242B\207" [electric-pair-text-syntax-table syntax-propertize-function nil syntax-table #[514 "\211\300C\240\210
\242?\205
\300C\240\207" [t] 4 "\n\n(fn INNERMOST OUTERMOST)"] #[1028 "`\212\301W\203A\3021<\211f\303`
\304\305\"\216\306 p\304\307#\216\310!\210\311\312`\313\"\206.`Sf!)\266\202*\266\202=0\202s\210\314\202s\315`S!\316\3178!@\211f
\205q\206V`Sf\306 p\304\320#\216\310!\210\311!)\266\202\206p
=\266\203)\301V\203\204`\206`Sf\202\206`f\242\204\221B\240\210
?\205\233B\240\207" [syntax-propertize-function 0 (scan-error) ignore make-closure #[0 "\301\300!\207" [V0 syntax-ppss-flush-cache] 2] syntax-table #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table matching-paren scan-sexps 1 nil electric-pair--syntax-ppss last 9 #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2]] 15 "\n\n(fn DIRECTION INNERMOST OUTERMOST TABLE)"] (scan-error) ignore make-closure #[0 "\301\300!\207" [V0 syntax-ppss-flush-cache] 2] #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table scan-sexps 0 string-match "ends prematurely" 8 syntax-ppss 3] 15 (#$ . 8887)])
#@272 Next buffer position where strings are syntactically unexpected.
Value is a function called with no arguments and returning a
buffer position.  Major modes should set this variable
buffer-locally if they experience slowness with
`electric-pair-mode' when pairing quotes.
(defvar electric-pair-string-bound-function 'point-max (#$ . 10885))
#@76 Return non-nil if there are unbalanced strings started by CHAR.

(fn CHAR)
(defalias 'electric-pair--unbalanced-strings-p #[257 "\301 \212\302
8\203\303\3048b\210\305d!\210\306\307!\210`!\202 \301 !)\310
8\211\311=\206-
=\207" [electric-pair-string-bound-function syntax-ppss 4 electric-pair--syntax-ppss 8 forward-comment skip-syntax-backward " >!" 3 t] 6 (#$ . 11231)])
#@210 Return non-nil if point is inside a string started by CHAR.

A comments text is parsed with `electric-pair-text-syntax-table'.
Also consider strings within comments, but not strings within
strings.

(fn CHAR)
(defalias 'electric-pair--inside-string-p #[257 "\300`\301\"\302
8\303D>\207" [electric-pair--syntax-ppss (comment) 3 t] 5 (#$ . 11617)])
#@19 

(fn &rest BODY)
(defalias 'electric-pair--save-literal-point-excursion '(macro . #[128 "\300\301!\302
\303BC\304\305B\306DEE\207" [make-symbol "point" let ((point)) unwind-protect progn goto-char] 8 (#$ . 11971)]))
#@231 Return non-nil if auto-pairing of CHAR would hurt parentheses' balance.

Works by first removing the character from the buffer, then doing
some list calculations, finally restoring the situation as if nothing
happened.

(fn CHAR)
(defalias 'electric-pair-inhibit-if-helps-balance #[257 "\304
!\211:\205\210\211\242
\243\211:\205\206\211\242
\243\211:\205\204\211\243\211:\205\202\211\242
\243\211?\205\200\3052\200\306 \307\211\307C
\310\311#\216\312!\210\313\314!\210\315\305
\316\267\202v\317\320\n\"\211A\211@\203e\266\307\202w\211A=\266\202\202w\321!\202w\307\"
\322\240\210,\266\2050\266\202\262
\266\202\266\202\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit electric-pair-syntax-info done prepare-change-group nil make-closure #[0 "\301\242\203	\302\300!\207\303\300!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group delete-char -1 throw #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (40 83 34 111)) electric-pair--balance-info 1 electric-pair--unbalanced-strings-p t] 20 (#$ . 12197)])
#@226 Return non-nil if skipping CHAR would benefit parentheses' balance.
Works by first removing the character from the buffer, then doing
some list calculations, finally restoring the situation as if nothing
happened.

(fn CHAR)
(defalias 'electric-pair-skip-if-helps-balance #[257 "\300
!\211:\205p\211\242
\243\211:\205n\211\242
\243\211:\205l\211\243\211:\205j\211\242
\243\211?\205h\301\302\n\"\216\303\304!\210\305\267\202f\306\304\"\211@
A\211@\203O
@\266\203\202g
@\205Z\211A=?\266\203\202g\307	!\202g\310)\266\202\262
\266\202\266\202\207" [electric-pair-syntax-info make-closure #[0 "\300c\207" [V0] 1] delete-char -1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (41 59 34 95)) electric-pair--balance-info electric-pair--inside-string-p nil] 14 (#$ . 13321)])
#@13 

(fn CHAR)
(defalias 'electric-pair-default-skip-self #[257 "\203\301
!\207\302\207" [electric-pair-preserve-balance electric-pair-skip-if-helps-balance t] 3 (#$ . 14150)])
#@13 

(fn CHAR)
(defalias 'electric-pair-default-inhibit #[257 "\203\301
!\207\302
!\207" [electric-pair-preserve-balance electric-pair-inhibit-if-helps-balance electric-pair-conservative-inhibit] 3 (#$ . 14333)])
#@918 Member of `post-self-insert-hook'.  Do main work for `electric-pair-mode'.
If the newly inserted character C has delimiter syntax, this
function may decide to insert additional paired delimiters, or
skip the insertion of the new character altogether by jumping
over an existing identical character, or do nothing.

The decision is taken by order of preference:

* According to `use-region-p'.  If this returns non-nil this
  function will unconditionally "wrap" the region in the
  corresponding delimiter for C;

* According to C alone, by looking C up in the tables
  `electric-pair-pairs' or `electric-pair-text-pairs' (which
  see);

* According to C's syntax and the syntactic state of the buffer
  (both as defined by the major mode's syntax table).  This is
  done by looking up up the variables
  `electric-pair-inhibit-predicate', `electric-pair-skip-self'
  and `electric-pair-skip-whitespace' (which see).
(defalias 'electric-pair-post-self-insert-function #[0 "\205\306 \307\310	!\211:\205F
\211\242
\243\211:\205D
\211\242
\243\211:\205B
\211\242
\243\211:\205@
\211\243\211?\205>
	\204:\307\202>
\311>\203\211\312 \203\211\313=\204i\314=\203[`\315 Y\204i\314=\204u\315 `Y\203u\212\315 b\210\316!)\202>
	\211S|\210\316!\210\315 b\210\316	!\202>
\212	Sb\210\317\320!\321\246\322U)\204\236\307\202>
\323>\203
\204\306\324\n!\203\302`\325\326\"\216\nb\210\n	!)\262
\202\303\n\203
\212\203\322\313=\204\355\327=\204\343\324!\203\343 \202\344\211\262\n\203\355\f \210\307f	)=\203
\203\375\f \210	S	\327=\203
`\202

\n|\210\307u\202>
\330>\205>

?\205>
\2049
`\325\331\"\216\nb\210	!)\262
?\205>
\212\316!)\262
\266\202\266\202\266\202\207" [electric-pair-mode last-command-event electric-pair-skip-self electric-pair-skip-whitespace electric-pair-skip-whitespace-function overwrite-mode electric--after-char-pos nil electric-pair-syntax-info (40 41 34 36) use-region-p 34 41 mark electric-pair--insert skip-syntax-backward "\\" 2 0 (41 34 36) functionp make-closure #[0 "\300b\207" [V0] 1] chomp (40 34 36) #[0 "\300b\207" [V0] 1] electric-pair-inhibit-predicate] 14 (#$ . 14553)])
#@116 Honor `electric-pair-open-newline-between-pairs'.
Member of `post-self-insert-hook' if `electric-pair-mode' is on.
(defalias 'electric-pair-open-newline-between-pairs-psif #[0 "\302!\203 \202\f\205:	\303=\205:\304eT`d#\205:\212\305\306x\210`S\206)`Sf)\307\306f!=\205:\212\310\311\312\")\207" [electric-pair-open-newline-between-pairs last-command-event functionp 10 < "	 " nil matching-paren newline 1 t] 4 (#$ . 16714)])
(defalias 'electric-pair-will-use-region #[0 "\301 \205\302!@\303>\207" [last-command-event use-region-p electric-pair-syntax-info (40 41 34 36)] 2])
#@170 When between adjacent paired delimiters, delete both of them.
ARG and KILLP are passed directly to
`backward-delete-char-untabify', which see.

(fn ARG &optional KILLP)
(defalias 'electric-pair-delete-pair #[513 "\300\301!\210\302\"\207" [delete-char 1 backward-delete-char-untabify] 5 (#$ . 17307) "*p\nP"])
#@38 Keymap used by `electric-pair-mode'.
(defvar electric-pair-mode-map (byte-code "\300 \301
\302\303\304\305\306\307\257#\210\207" [make-sparse-keymap define-key "" menu-item "" electric-pair-delete-pair :filter #[257 "`Sf\301f
\205\f\302!\211@
A@\2055\211\2055
\303>\2055\211=\2055\304!\2030 \2021\2055\207" [electric-pair-delete-adjacent-pairs nil electric-pair-syntax-info (40 34 36) functionp] 8 "\n\n(fn CMD)"]] 9) (#$ . 17624))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable electric-pair-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Electric-Pair mode is enabled.\nSee the `electric-pair-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 `electric-pair-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group electricity] 12)
#@1000 Toggle automatic parens pairing (Electric Pair mode).

This is a minor mode.  If called interactively, toggle the
`Electric-Pair 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 \='electric-pair-mode)'.

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

Electric Pair mode is a global minor mode.  When enabled, typing
an open parenthesis automatically inserts the corresponding
closing parenthesis, and vice versa.  (Likewise for brackets, etc.).
If the region is active, the parentheses (brackets, etc.) are
inserted around the region instead.

To toggle the mode in a single buffer, use `electric-pair-local-mode'.

(fn &optional ARG)
(defalias 'electric-pair-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203P\313\314\315\316#\210\313\314\317\316#\210\313\320\321\"\210\202_\322\314\315\"\210\322\314\317\"\210\322\320\321\"\210\323\324\305\301!\203k\325\202l\326\"\210\327\330!\203\224\331\301!\210\302 \203\204\211\302 \232\203\224\332\333\305\301!\203\220\334\202\221\335\336#\210\210\337 \210\305\301!\207" [global-minor-modes electric-pair-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook post-self-insert-hook electric-pair-post-self-insert-function 50 electric-pair-open-newline-between-pairs-psif self-insert-uses-region-functions electric-pair-will-use-region remove-hook run-hooks electric-pair-mode-hook electric-pair-mode-on-hook electric-pair-mode-off-hook called-interactively-p any customize-mark-as-set message "Electric-Pair mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 18631) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar electric-pair-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" [electric-pair-mode-map electric-pair-mode-hook variable-documentation put "Hook run after entering or leaving `electric-pair-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 electric-pair-mode boundp] 6)
#@658 Toggle `electric-pair-mode' only in this buffer.

This is a minor mode.  If called interactively, toggle the
`Electric-Pair-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 \='electric-pair-mode
(current-buffer))'.

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

(fn &optional ARG)
(defalias 'electric-pair-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!=\203S\315\300!\210\202b\314\300!\204b\300\305!\210\316\300\306\"\210\317\320\304\300p\"\203o\321\202p\322\"\210\323\324!\203\225\302 \203\204\211\302 \232\203\225\325\326\304\300p\"\203\221\327\202\222\330\331#\210\210\332 \210\304\300p\"\207" [electric-pair-mode local-minor-modes current-message toggle buffer-local-value 1 nil t make-local-variable boundp delq electric-pair-local-mode default-value kill-local-variable set-default run-hooks electric-pair-local-mode-hook electric-pair-local-mode-on-hook electric-pair-local-mode-off-hook called-interactively-p any message "Electric-Pair-Local mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 21269) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar electric-pair-local-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\210\310\311!\207" [electric-pair-local-mode-hook variable-documentation put "Hook run after entering or leaving `electric-pair-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 provide elec-pair] 4)