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



#@78 

(fn RETURN-TAG &optional PROMPT INHIBIT-QUITTING LOOP-FUNCTION LOOP-STATE)
(defalias 'Electric-command-loop #[1281 "\306\211
\307!\203 \262
\211;\204\"\211\310=?\205 \311\262
\312
!\262\211GSH\313\314\"\211\262\306\204A\f\315=\203e\306\211!\316 G\317U\204R\204b\320 \210\321\322!\210\323	\306\"\210\202e\306\262!\"\2039
\3241\f
\3251\356\3261\317\3271\257\330!\210\n#\306\204\220\f\315=\205\247\306\204\245\320 \210\321\322!\210\323	\306\"\202\247\320 0000\210\202<
000\203\300\211\211\262\266\202<
\320 \210\321\331!\210\332\333!\266\202<
00\203\337\211\211\262\266\202<
\320 \210\321\334!\210\332\333!\266\202<
0\203\375\211\211\262\266\202<
\320 \210\321\335!\210\332\333!\266\202<
\203
\211\211\262\266\202<
\320 \210\321\336@\337=\203,
A@\202/
\340!\"\210\332\333!\266\202<
\320 \210\203\"\210\202" [inhibit-quit last-command-event this-command quit-flag last-input-event unread-command-events nil functionp noprompt "->" read-key-sequence key-binding t 7 this-command-keys 1 ding message "Quit" throw (error) (end-of-buffer) (beginning-of-buffer) (buffer-read-only) command-execute "Buffer is read-only" sit-for 2 "Beginning of Buffer" "End of Buffer" "Error: %s" error prin1-to-string prefix-arg current-prefix-arg last-command] 15 (#$ . 84)])
#@36 

(fn BUFFER &optional MAX-HEIGHT)
(defalias 'Electric-pop-up-window #[513 "\302!\206\303 \304!\305\306!\306\307
\204\310\311\"\202W\312!=\203-\313!\210\202@\211\203<\314!\210\303 \262\202@\315!\210eb\210d\316\306\"U\204V\317\307\211\211\306&\210*\207" [pop-up-windows pop-up-frames get-buffer-window selected-window get-buffer one-window-p t nil error "Buffer %s does not exist" window-buffer select-window pop-to-buffer switch-to-buffer window-end fit-window-to-buffer] 12 (#$ . 1425)])
(custom-declare-group 'electricity nil "Electric behavior for self inserting keys." :group 'editing)
#@96 Return the position after the char we just inserted.
Returns nil when we can't find this char.
(defalias 'electric--after-char-pos #[0 "``Sf=\204)\212\301\302x\210`\262
`Sf=\206%\303\302x\210`\262
`Sf=)\205*\211\207" [last-command-event " 	" nil " \n	"] 3 (#$ . 2048)])
#@55 Characters that should cause automatic reindentation.
(defvar electric-indent-chars '(10) (#$ . 2330))
#@267 Special hook run to decide whether to auto-indent.
Each function is called with one argument (the inserted char), with
point right after that char, and it should return t to cause indentation,
`no-indent' to prevent indentation or nil to let other functions decide.
(defvar electric-indent-functions nil (#$ . 2440))
#@185 If non-nil, reindentation is not appropriate for this buffer.
This should be set by major modes such as `python-mode' since
Python does not lend itself to fully automatic indentation.
(defvar electric-indent-inhibit nil (#$ . 2764))
(make-variable-buffer-local 'electric-indent-inhibit)
#@265 List of indent functions that can't reindent.
If `indent-line-function' is one of those, then `electric-indent-mode' will
not try to reindent lines.  It is normally better to make the major
mode set `electric-indent-inhibit', but this can be used as a workaround.
(defvar electric-indent-functions-without-reindent '(indent-relative indent-to-left-margin indent-relative-maybe indent-relative-first-indent-point py-indent-line coffee-indent-line org-indent-line yaml-indent-line haskell-indentation-indent-line haskell-indent-cycle haskell-simple-indent yaml-indent-line) (#$ . 3058))
#@226 Function that `electric-indent-mode' adds to `post-self-insert-hook'.
This indents if the hook `electric-indent-functions' returns non-nil,
or if a member of `electric-indent-chars' was typed; but not in a string
or comment.
(defalias 'electric-indent-post-self-insert-function #[0 "\306\205\225	\307>\203\212\310\306x\210n)?\205\225\311 \211\262\205\225\212\211b\210\312\313	\"\206,	\n>\211\314>?\262
)\205\225\3152\225\211\316 X\211\203y\317S\320\"\212\f>\204f
\204f\211b\210\3211`\322 0\210\202f\210\323\315\306\"\210
\324=\204w\211b\210l\203w\325\320!\210)\210
\205\211??\205\222\3261\215\322 0\202\222\210\323\315\306\"\262
0\207" [electric-indent-mode last-command-event electric-indent-chars indent-line-function electric-indent-functions-without-reindent electric-indent-inhibit nil (32 9) " 	" electric--after-char-pos run-hook-with-args-until-success electric-indent-functions (nil no-indent) indent-error line-beginning-position copy-marker t (debug error) indent-according-to-mode throw electric-layout-mode delete-horizontal-space (debug error)] 6 (#$ . 3650)])
#@64 Insert just a newline, without any auto-indentation.

(fn ARG)
(defalias 'electric-indent-just-newline #[257 "\301\302
\303\")\207" [electric-indent-mode nil newline interactive] 4 (#$ . 4755) "*P"])
(define-key global-map "\n" 'electric-newline-and-maybe-indent)
#@392 Insert a newline.
If `electric-indent-mode' is enabled, that's that, but if it
is *disabled* then additionally indent according to major mode.
Indentation is done using the value of `indent-line-function'.
In programming language modes, this is the same as TAB.
In some text modes, where TAB inserts a tab, this command indents to the
column specified by the function `current-left-margin'.
(defalias 'electric-newline-and-maybe-indent #[0 "\203\301\302!\207\303 \207" [electric-indent-mode electric-indent-just-newline nil newline-and-indent] 2 (#$ . 5027) "*"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable electric-indent-mode funcall function #[0 "\300\207" [t] 1 ""] "Non-nil if Electric-Indent mode is enabled.\nSee the `electric-indent-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-indent-mode'." :set custom-set-minor-mode :initialize custom-initialize-delay :type boolean :group electricity] 12)
#@1204 Toggle on-the-fly reindentation of text lines (Electric Indent mode).

This is a minor mode.  If called interactively, toggle the
`Electric-Indent 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-indent-mode)'.

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

When enabled, this reindents whenever the hook `electric-indent-functions'
returns non-nil, or if you insert one of the "electric characters".
The electric characters normally include the newline, but can
also include other characters as needed by the major mode; see
`electric-indent-chars' for the actual list.

By "reindent" we mean remove any existing indentation, and then
indent the line according to context and rules of the major mode.

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

(fn &optional ARG)
(defalias 'electric-indent-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	\204k\3132`\314 \211\205]\211@r\211q\210	\203U\315\313\310\"\210)
A\266\202\202B\262
0\204q\316\317\320\"\210\202q\321\317\320\322#\210\323\324\305\301!\203}\325\202~\326\"\210\327\330!\203\246\331\301!\210\302 \203\226\211\302 \232\203\246\332\333\305\301!\203\242\334\202\243\335\336#\210\210\337 \210\305\301!\207" [global-minor-modes electric-indent-mode current-message set-default toggle default-value 1 nil t boundp delq found buffer-list throw remove-hook post-self-insert-hook electric-indent-post-self-insert-function add-hook 60 run-hooks electric-indent-mode-hook electric-indent-mode-on-hook electric-indent-mode-off-hook called-interactively-p any customize-mark-as-set message "Electric-Indent mode %sabled%s" "en" "dis" "" force-mode-line-update] 7 (#$ . 6156) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar electric-indent-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-indent-mode-map electric-indent-mode-hook variable-documentation put "Hook run after entering or leaving `electric-indent-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-indent-mode boundp] 6)
#@664 Toggle `electric-indent-mode' only in this buffer.

This is a minor mode.  If called interactively, toggle the
`Electric-Indent-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-indent-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-indent-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-indent-mode local-minor-modes current-message toggle buffer-local-value 1 nil t make-local-variable boundp delq electric-indent-local-mode default-value kill-local-variable set-default run-hooks electric-indent-local-mode-hook electric-indent-local-mode-on-hook electric-indent-local-mode-off-hook called-interactively-p any message "Electric-Indent-Local mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 8951) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar electric-indent-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" [electric-indent-local-mode-hook variable-documentation put "Hook run after entering or leaving `electric-indent-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)
#@979 List of rules saying where to automatically insert newlines.

Each rule has the form (CHAR . WHERE), the rule matching if the
character just inserted was CHAR.  WHERE specifies where to
insert newlines, and can be:

* one of the symbols `before', `after', `around', `after-stay',
  or nil.

* a list of the preceding symbols, processed in order of
  appearance to insert multiple newlines;

* a function of no arguments that returns one of the previous
  values.

Each symbol specifies where, in relation to the position POS of
the character inserted, the newline character(s) should be
inserted.  `after-stay' means insert a newline after POS but stay
in the same place.

Instead of the (CHAR . WHERE) form, a rule can also be just a
function of a single argument, the character just inserted.  It
is called at that position, and should return a value compatible with
WHERE if the rule matches, or nil if it doesn't match.

If multiple rules match, only first one is executed.
(defvar electric-layout-rules nil (#$ . 11068))
#@53 If non-nil, allow duplication of `before' newlines.
(defvar electric-layout-allow-duplicate-newlines nil (#$ . 12100))
(defalias 'electric-layout-post-self-insert-function #[0 "\205\301 \207" [electric-layout-mode electric-layout-post-self-insert-function-1] 1])
(defalias 'electric-layout-post-self-insert-function-1 #[0 "\302 \303\3042I\205H\211
A\262\242\211\262\205H
:\203-
@	=\203-\305\304A\"\210\202\f\306!\203\f\212b\210
	!)\211\203D\305\304\"\210\210\202\f0\211\205\263\307\212\310!)8?\205\263b\210\306
!\203e\211 \262
\2119\203o\211C\202p\211\211\205\261\211@\311\312\313\267\266\202\252\211\"\266\202\252
 \266\202\252\212
 \210)\266\202\252\211\"\210
 \266\202\252\266
A\266\202\202p\262
\207" [electric-layout-rules last-command-event electric--after-char-pos nil done throw functionp 8 syntax-ppss #[0 "\302\211\303\304\305\"*\207" [electric-pair-open-newline-between-pairs electric-layout-mode nil newline 1 t] 3] #[514 "\212
Sb\210?\205\302\303x\210n?\205\304\211 ))\207" [electric-layout-allow-duplicate-newlines electric-indent-inhibit " 	" nil electric-layout-mode] 4 "\n\n(fn POS NL-AFTER)"] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (before 128 after 138 after-stay 145 around 155))] 11])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable electric-layout-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Electric-Layout mode is enabled.\nSee the `electric-layout-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-layout-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group electricity] 12)
#@710 Automatically insert newlines around some chars.

This is a minor mode.  If called interactively, toggle the
`Electric-Layout 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-layout-mode)'.

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

The variable `electric-layout-rules' says when and how to insert newlines.

(fn &optional ARG)
(defalias 'electric-layout-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	\203E\313\314\315\316#\210\202J\317\314\315\"\210\320\321\305\301!\203V\322\202W\323\"\210\324\325!\203\326\301!\210\302 \203o\211\302 \232\203\327\330\305\301!\203{\331\202|\332\333#\210\210\334 \210\305\301!\207" [global-minor-modes electric-layout-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook post-self-insert-hook electric-layout-post-self-insert-function 40 remove-hook run-hooks electric-layout-mode-hook electric-layout-mode-on-hook electric-layout-mode-off-hook called-interactively-p any customize-mark-as-set message "Electric-Layout mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 13972) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar electric-layout-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-layout-mode-map electric-layout-mode-hook variable-documentation put "Hook run after entering or leaving `electric-layout-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-layout-mode boundp] 6)
#@664 Toggle `electric-layout-mode' only in this buffer.

This is a minor mode.  If called interactively, toggle the
`Electric-Layout-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-layout-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-layout-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-layout-mode local-minor-modes current-message toggle buffer-local-value 1 nil t make-local-variable boundp delq electric-layout-local-mode default-value kill-local-variable set-default run-hooks electric-layout-local-mode-hook electric-layout-local-mode-on-hook electric-layout-local-mode-off-hook called-interactively-p any message "Electric-Layout-Local mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 16144) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar electric-layout-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\312\313\314DD\315\316\317\320\321\322\323\324\325&\210\310\326\312\313\327DD\330\316\317\320\321\322\323\324\325&\210\310\331\312\313\332DD\333\316\334\320\335\322\336\324\325&\210\310\337\312\313\340DD\341\316\317\320\321\322\323\324\325&\210\310\342\312\313\343DD\344\316\334\320\321\322\323\324\325&\210\310\345\312\313\346DD\347\316\334\320\321\322\323\324\325&\207" [electric-layout-local-mode-hook variable-documentation put "Hook run after entering or leaving `electric-layout-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 custom-declare-variable electric-quote-comment funcall function #[0 "\300\207" [t] 1 #1=""] "Non-nil means to use electric quoting in program comments." :version "25.1" :type boolean :safe booleanp :group electricity electric-quote-string #[0 "\300\207" [nil] 1 #1#] "Non-nil means to use electric quoting in program strings." electric-quote-chars #[0 "\300\207" [(8216 8217 8220 8221)] 1 #1#] "Curved quote characters for `electric-quote-mode'.\nThis list's members correspond to left single quote, right single\nquote, left double quote, and right double quote, respectively." "26.1" (list character character character character) #[257 "\211:\205R\211\242\300
!\205P
\243\211:\205N\211\242\300
!\205L
\243\211:\205J\211\242\300
!\205H
\243\211:\205F\211\242\300
!\205D
\243\211?\205B\301\262
\262
\262
\262
\262
\262
\262
\262
\207" [characterp t] 10 "\n\n(fn X)"] electric-quote-paragraph #[0 "\300\207" [t] 1 #1#] "Non-nil means to use electric quoting in text paragraphs." electric-quote-context-sensitive #[0 "\300\207" [nil] 1 #1#] "Non-nil means to replace \\=' with an electric quote depending on context.\nIf `electric-quote-context-sensitive' is non-nil, Emacs replaces\n\\=' and \\='\\=' with an opening quote after a line break,\nwhitespace, opening parenthesis, or quote and leaves \\=` alone." electric-quote-replace-double #[0 "\300\207" [nil] 1 #1#] "Non-nil means to replace \" with an electric double quote.\nEmacs replaces \" with an opening double quote after a line\nbreak, whitespace, opening parenthesis, or quote, and with a\nclosing double quote otherwise."] 12)
#@480 List of functions that should inhibit electric quoting.
When the variable `electric-quote-mode' is non-nil, Emacs will
call these functions in order after the user has typed an \=` or
\=' character.  If one of them returns non-nil, electric quote
substitution is inhibited.  The functions are called after the
\=` or \=' character has been inserted with point directly
after the inserted character.  The functions in this hook should
not move point or change the current buffer.
(defvar electric-quote-inhibit-functions nil (#$ . 20241))
#@113 Function that `electric-quote-mode' adds to `post-self-insert-hook'.
This requotes when a quoting key is typed.
(defalias 'electric-quote-post-self-insert-function #[0 "\205\214
	\306=\204\n\204	\307=\204\205\214
	\310=\205\214
\311\312!?\205\214
\313\314!\203/\f\202m
\205\214
\205\214
 \204B!\205\214
\315 \316
8\211\205k \203V\3178\204a!\205k\3208\205k\211\316\212\315`S!)8=\266\202\205\214
\":\205\214
\"\242\"\243\211:\205\212
\211\242
\243\211:\205\210
\211\242
\243\211:\205\206
\211\242
\243\211?\205\204
\212\307	\307=\204\337\n\204\262\203>
	\310=\203>
\212\321u\210\322\323!\210o\206\324n\206\324`Sf	D>\206\324`Sfz\324>)\203>
\306\211\262\203>
\325\326\n\"`\327Z\330#\203
\331\326!!\210#\203	
$\236\243\332f=\203	
\333\334!\210\211\202\201
\325\326!`S\330#\203(
\331\326\n!!\210\211\202\201
\325\335`S\330#\205\201
\331\326!!\210\211\202\201
\325\326\306\"`\327Z\330#\203X
\331\326!!\210\211\202\201
\325\336`S\330#\203o
\331\326!!\210\211\202\201
\325\335`S\330#\205\201
\331\326!!\210\211\262
)\266\202\266\202\266\202\266\202\207" [electric-quote-mode last-command-event electric-quote-context-sensitive electric-quote-replace-double electric-quote-paragraph comment-start 39 96 34 run-hook-with-args-until-success electric-quote-inhibit-functions derived-mode-p text-mode syntax-ppss 8 4 3 -1 skip-syntax-backward "\\" (32 40) search-backward string 2 t replace-match nil delete-char 1 "\"" "'" comment-use-syntax electric-quote-comment electric-quote-string electric-quote-chars electric-pair-mode electric-pair-text-pairs] 13 (#$ . 20786)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable electric-quote-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Electric-Quote mode is enabled.\nSee the `electric-quote-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-quote-mode'." :set custom-set-minor-mode :initialize custom-initialize-delay :type boolean :group electricity] 12)
#@1115 Toggle on-the-fly requoting (Electric Quote mode).

This is a minor mode.  If called interactively, toggle the
`Electric-Quote 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-quote-mode)'.

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

When enabled, as you type this replaces \=` with ‘, \=' with ’,
\=`\=` with “, and \='\=' with ”.  This occurs only in comments, strings,
and text paragraphs, and these are selectively controlled with
`electric-quote-comment', `electric-quote-string', and
`electric-quote-paragraph'.

Customize `electric-quote-chars' to use characters other than the
ones listed here.

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

(fn &optional ARG)
(defalias 'electric-quote-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	\204k\3132`\314 \211\205]\211@r\211q\210	\203U\315\313\310\"\210)
A\266\202\202B\262
0\204q\316\317\320\"\210\202q\321\317\320\322#\210\323\324\305\301!\203}\325\202~\326\"\210\327\330!\203\246\331\301!\210\302 \203\226\211\302 \232\203\246\332\333\305\301!\203\242\334\202\243\335\336#\210\210\337 \210\305\301!\207" [global-minor-modes electric-quote-mode current-message set-default toggle default-value 1 nil t boundp delq found buffer-list throw remove-hook post-self-insert-hook electric-quote-post-self-insert-function add-hook 10 run-hooks electric-quote-mode-hook electric-quote-mode-on-hook electric-quote-mode-off-hook called-interactively-p any customize-mark-as-set message "Electric-Quote mode %sabled%s" "en" "dis" "" force-mode-line-update] 7 (#$ . 22974) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar electric-quote-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-quote-mode-map electric-quote-mode-hook variable-documentation put "Hook run after entering or leaving `electric-quote-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-quote-mode boundp] 6)
#@661 Toggle `electric-quote-mode' only in this buffer.

This is a minor mode.  If called interactively, toggle the
`Electric-Quote-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-quote-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-quote-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-quote-mode local-minor-modes current-message toggle buffer-local-value 1 nil t make-local-variable boundp delq electric-quote-local-mode default-value kill-local-variable set-default run-hooks electric-quote-local-mode-hook electric-quote-local-mode-on-hook electric-quote-local-mode-off-hook called-interactively-p any message "Electric-Quote-Local mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 25669) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar electric-quote-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-quote-local-mode-hook variable-documentation put "Hook run after entering or leaving `electric-quote-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 electric] 4)