Current File : //usr/local/share/emacs/27.2/lisp/electric.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'Electric-command-loop #[(return-tag &optional prompt inhibit-quitting loop-function loop-state) "\306\211 \307 !\203 \n;\204 \n\310=?\205 \311\312\n!\211\211GSH!\313
\314\"\211\"#\306#\204A $\315=\203e \306\211%&\316 G\317U\204S \204c \320 \210\321\322!\210\323'\306\"\210\202e \306&(
\203=\3241
\3251\360 \3261\322 \3271\263 \330
!\210\")#\306#\204\224 $\315=\205\254 \306% \204\252 \320 \210\321\322!\210\323'\306\"\202\254 \320 0000\2029000 *+\203\304 *\211\202\316 \320 \210\321\331!\210\332\333!)\202900 *+\203\342 *\211\202\354 \320 \210\321\334!\210\332\333!)\20290 *+\203\377 *\211\202 \320 \210\321\335!\210\332\333!)\2029 *+\203*\211\2028\320 \210\321\336*@\337=\203/*A@\2023\340*!\"\210\332\333!)\210\202@\320 \210+\203 +,\f\"\210\202 " [inhibit-quitting prompt prompt-string inhibit-quit err cmd 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 last-command-event this-command quit-flag last-input-event unread-command-events prefix-arg return-tag current-prefix-arg last-command conditions loop-function loop-state] 5])
(defalias 'Electric-pop-up-window #[(buffer &optional max-height) "\306!\206 \307 \310!\311\312!\312 \313 \n\204 \314\315\"\202Y \316 !\n=\203/ \317 !\210\202A \203= \320!\210\307 \202A \321\n!\210eb\210d\322 \312\"U\204X \323 \313\211\211\312&\210 -\207" [buffer win buf one-window 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 max-height] 7])
(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 #[nil "``Sf =\204( \212\302\303x\210``Sf =\206$ \304\303x\210``Sf =)\205) )\207" [pos last-command-event " " nil " \n "] 2 (#$ . 2393)])
#@55 Characters that should cause automatic reindentation.
(defvar electric-indent-chars '(10) (#$ . 2672))
#@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 (#$ . 2782))
#@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 (#$ . 3106))
(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) (#$ . 3400))
#@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 #[nil "\306 \205\251 \n\307>\203 \212\310\306x\210n)?\205\251 \311 \211\205\251 \212b\210\312\313\n\"\206, \n >\211 \314>\206> \f\315=?\205> \316\317 8*?\205\251 \3202\251 \321 X\211 \203\215 \322S\323\" \212 >\204y \204y b\210\3241s \325 0\202x \210\326\320\306\"\210 \327=\204\214 b\210l\203\214 \330\323!\210* \205\224
??\205\247 \3311\242 \325 0\202\247 \210\326\320\306\")0)\207" [pos electric-indent-mode last-command-event electric-indent-chars act at-newline nil (32 9) " " electric--after-char-pos run-hook-with-args-until-success electric-indent-functions (nil no-indent) do-indent 8 syntax-ppss indent-error line-beginning-position copy-marker t (debug error) indent-according-to-mode throw electric-layout-mode delete-horizontal-space (debug error) before indent-line-function electric-indent-functions-without-reindent electric-indent-inhibit] 4 (#$ . 3992)])
#@54 Insert just a newline, without any auto-indentation.
(defalias 'electric-indent-just-newline #[(arg) "\302\303 \304\")\207" [electric-indent-mode arg nil newline interactive] 3 (#$ . 5169) "*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 #[nil "\203 \301\302!\207\303 \207" [electric-indent-mode electric-indent-just-newline nil newline-and-indent] 2 (#$ . 5437) "*"])
#@281 Non-nil if Electric-Indent mode is enabled.
See the `electric-indent-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 `electric-indent-mode'.
(custom-declare-variable 'electric-indent-mode t '(#$ . 6013) :set 'custom-set-minor-mode :initialize 'custom-initialize-delay :group 'electricity :type 'boolean)
#@561 Toggle on-the-fly reindentation (Electric Indent mode).
If called interactively, enable Electric-Indent 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.
When enabled, this reindents whenever the hook `electric-indent-functions'
returns non-nil, or if you insert a character from `electric-indent-chars'.
This is a global minor mode. To toggle the mode in a single buffer,
use `electric-indent-local-mode'.
(defalias 'electric-indent-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\204P \3142E \315 \316\211 \205C \f@r q\210\n\203: \317\314\320\"\210)\fA\211\204* \316*0\204V \321\322\323\"\210\202V \324\322\323\325#\210\326\327\311\302!\203b \330\202c \331\"\210\332\333!\203\216 \334\302!\210\306 \203{ \306 \232\203\216 \335 \336\337\311\302!\203\211 \340\202\212 \341
#\210))\342 \210\311\302!\207" [#1=#:last-message arg electric-indent-mode buf --dolist-tail-- local current-message set-default toggle default-value prefix-numeric-value 0 found buffer-list nil throw t 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] 5 (#$ . 6463) (list (or current-prefix-arg 'toggle))])
(defvar electric-indent-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode electric-indent-mode nil boundp] 6)
#@306 Toggle `electric-indent-mode' only in this buffer.
If called interactively, enable Electric-Indent-Local 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.
(defalias 'electric-indent-local-mode #[(&optional arg) "\306 p\n\307=\203 \310\304p\"?\202 \311\n!\312Vr q\210\313\304!\210 +\f\314\304!=\2033 \315\304!\210\202B \314\304!\204B \304\316!\210\317\304\320\"\210\321\322\310\304p\"\203O \323\202P \324\"\210\325\326!\203x \306 \203d \306 \232\203x \327 \330\331\310\304p\"\203s \332\202t \333
#\210))\334 \210\310\304p\"\207" [#1=#:last-message #2=#:v arg #3=#:v electric-indent-mode local current-message toggle buffer-local-value prefix-numeric-value 0 make-local-variable default-value kill-local-variable 1 set-default nil run-hooks electric-indent-local-mode-hook electric-indent-local-mode-on-hook electric-indent-local-mode-off-hook called-interactively-p any " in current buffer" message "Electric-Indent-Local mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 8456) (list (or current-prefix-arg 'toggle))])
(defvar electric-indent-local-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\300\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.)"] 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 (#$ . 10009))
#@53 If non-nil, allow duplication of `before' newlines.
(defvar electric-layout-allow-duplicate-newlines nil (#$ . 11041))
(defalias 'electric-layout-post-self-insert-function #[nil "\205 \301 \207" [electric-layout-mode electric-layout-post-self-insert-function-1] 1])
(defalias 'electric-layout-post-self-insert-function-1 #[nil "\306 \307\n\3102K \205J \211A\242\211\205J :\203. @\f=\203. \311\310 A\"\210\202 \312 !\203 \212b\210 \f!)\211 \203F \311\310
\"\210)\202 0\211 \205\277 \313\212\314!)8?\205\277 b\210\312!\203k 9\203w C\202y \307 \211 \205\276 @\315 \316 \317\267\202\263 \210\202\263 \210\202\263 \212 \210)\202\263 \210 \210*A\211\204\202 \307*,\207" [pos probe electric-layout-rules rules last-command-event res electric--after-char-pos nil done throw functionp 8 syntax-ppss #[nil "\302\211\303\304\305\"*\207" [electric-pair-open-newline-between-pairs electric-layout-mode nil newline 1 t] 3] #[nil "\212Sb\210 ?\205 \304\305x\210n?\205 \306 ))\207" [pos electric-layout-allow-duplicate-newlines electric-indent-inhibit nl-after " " nil electric-layout-mode] 2] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (before 148 after 155 after-stay 162 around 171)) rule sym --dolist-tail-- nl-after nl-before] 4])
#@281 Non-nil if Electric-Layout mode is enabled.
See the `electric-layout-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 `electric-layout-mode'.
(custom-declare-variable 'electric-layout-mode nil '(#$ . 12376) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'electricity :type 'boolean)
#@374 Automatically insert newlines around some chars.
If called interactively, enable Electric-Layout 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.
The variable `electric-layout-rules' says when and how to insert newlines.
(defalias 'electric-layout-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203& \312\313\314\315#\210\202+ \316\313\314\"\210\317\320\307\302!\2037 \321\2028 \322\"\210\323\324!\203c \325\302!\210\304 \203P \304 \232\203c \326\327\330\307\302!\203^ \331\202_ \332 #\210))\333 \210\307\302!\207" [#1=#:last-message arg electric-layout-mode local current-message set-default toggle default-value prefix-numeric-value 0 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] 4 (#$ . 12831) (list (or current-prefix-arg 'toggle))])
(defvar electric-layout-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode electric-layout-mode nil boundp] 6)
#@306 Toggle `electric-layout-mode' only in this buffer.
If called interactively, enable Electric-Layout-Local 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.
(defalias 'electric-layout-local-mode #[(&optional arg) "\306 p\n\307=\203 \310\304p\"?\202 \311\n!\312Vr q\210\313\304!\210 +\f\314\304!=\2033 \315\304!\210\202B \314\304!\204B \304\316!\210\317\304\320\"\210\321\322\310\304p\"\203O \323\202P \324\"\210\325\326!\203x \306 \203d \306 \232\203x \327 \330\331\310\304p\"\203s \332\202t \333
#\210))\334 \210\310\304p\"\207" [#1=#:last-message #2=#:v arg #3=#:v electric-layout-mode local current-message toggle buffer-local-value prefix-numeric-value 0 make-local-variable default-value kill-local-variable 1 set-default nil run-hooks electric-layout-local-mode-hook electric-layout-local-mode-on-hook electric-layout-local-mode-off-hook called-interactively-p any " in current buffer" message "Electric-Layout-Local mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 14484) (list (or current-prefix-arg 'toggle))])
(defvar electric-layout-local-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305\306\307\310\311\312\313\314\315\316\317& \210\304\320\321\322\310\311\312\313\314\315\316\317& \210\304\323\324\325\310\326\312\327\314\330\316\317& \210\304\331\306\332\310\311\312\313\314\315\316\317& \210\304\333\321\334\310\326\312\313\314\315\316\317& \210\304\335\321\336\310\326\312\313\314\315\316\317& \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-declare-variable electric-quote-comment t "Non-nil means to use electric quoting in program comments." :version "25.1" :type boolean :safe booleanp :group electricity electric-quote-string nil "Non-nil means to use electric quoting in program strings." electric-quote-chars '(8216 8217 8220 8221) "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) #[(x) ":\205X @\306 !\205W A\211:\205V \n@\306 !\205U \nA\211 :\205T \f@ \306
!\205S \fA\211 :\205R @ \306 !\205Q A\211 \n?\205P \307))))))))\207" [x #:x1433 #:x1434 #:x1435 #:x1436 #:x1437 characterp t #:x1438 #:x1439 #:x1440] 3] electric-quote-paragraph "Non-nil means to use electric quoting in text paragraphs." electric-quote-context-sensitive "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 "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 (#$ . 17777))
#@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 #[nil "\205\276 \306=\204 \n\204 \307=\204 \205\276 \310=\205\276\311\312!?\205\276\313\314!\203/ \f\202t
\205\276 \205\276 \204B !\205\276\315 \"\316\"8\211 #\205s \203\\ \317\"8\204h !\205s \320\"8\205s #\316\212\315`S!)8=*\205\276$:\205\276$@ %$A\211 &:\205\275&@ '&A\211 (:\205\274(@ )(A\211 *:\205\273*@ +*A\211 ,?\205\272+)'% - . / 0\212\307 1 \307=\204\n\204\341 \203q \310=\203q\212\321u\210\322\323!\210o\206n\206`Sf-/D>\206`Sfz\324>)\203q\306\2111\203q\325\326-1\"`\327Z\330#\203@\331\326/!!\2102\2039-3\236\243\332f=\2039\333\334!\210/\211\202\270\325\3261!`S\330#\203Z\331\326-!!\210-\211\202\270\325\335`S\330#\205\270\331\326/!!\210/\211\202\270\325\326.\306\"`\327Z\330#\203\215\331\3260!!\2100\211\202\270\325\336`S\330#\203\244\331\326.!!\210.\211\202\270\325\335`S\330#\205\270\331\3260!!\2100\211.****\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 syntax beg electric-quote-chars #1=#:x1441 #2=#:x1442 #3=#:x1443 #4=#:x1444 #5=#:x1445 #6=#:x1446 #7=#:x1447 #8=#:x1448 q< q> q<< q>> backtick electric-pair-mode electric-pair-text-pairs] 5 (#$ . 18322)])
#@278 Non-nil if Electric-Quote mode is enabled.
See the `electric-quote-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 `electric-quote-mode'.
(custom-declare-variable 'electric-quote-mode nil '(#$ . 20052) :set 'custom-set-minor-mode :initialize 'custom-initialize-delay :group 'electricity :type 'boolean)
#@780 Toggle on-the-fly requoting (Electric Quote mode).
If called interactively, enable Electric-Quote 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.
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'.
(defalias 'electric-quote-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\204P \3142E \315 \316\211 \205C \f@r q\210\n\203: \317\314\320\"\210)\fA\211\204* \316*0\204V \321\322\323\"\210\202V \324\322\323\325#\210\326\327\311\302!\203b \330\202c \331\"\210\332\333!\203\216 \334\302!\210\306 \203{ \306 \232\203\216 \335 \336\337\311\302!\203\211 \340\202\212 \341
#\210))\342 \210\311\302!\207" [#1=#:last-message arg electric-quote-mode buf --dolist-tail-- local current-message set-default toggle default-value prefix-numeric-value 0 found buffer-list nil throw t 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] 5 (#$ . 20501) (list (or current-prefix-arg 'toggle))])
(defvar electric-quote-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode electric-quote-mode nil boundp] 6)
#@304 Toggle `electric-quote-mode' only in this buffer.
If called interactively, enable Electric-Quote-Local 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.
(defalias 'electric-quote-local-mode #[(&optional arg) "\306 p\n\307=\203 \310\304p\"?\202 \311\n!\312Vr q\210\313\304!\210 +\f\314\304!=\2033 \315\304!\210\202B \314\304!\204B \304\316!\210\317\304\320\"\210\321\322\310\304p\"\203O \323\202P \324\"\210\325\326!\203x \306 \203d \306 \232\203x \327 \330\331\310\304p\"\203s \332\202t \333
#\210))\334 \210\310\304p\"\207" [#1=#:last-message #2=#:v arg #3=#:v electric-quote-mode local current-message toggle buffer-local-value prefix-numeric-value 0 make-local-variable default-value kill-local-variable 1 set-default nil run-hooks electric-quote-local-mode-hook electric-quote-local-mode-on-hook electric-quote-local-mode-off-hook called-interactively-p any " in current buffer" message "Electric-Quote-Local mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 22702) (list (or current-prefix-arg 'toggle))])
(defvar electric-quote-local-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\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.)" provide electric] 4)
Mini Shell