Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
calc	[ DIR ]	drwxr-xr-x
calendar	[ DIR ]	drwxr-xr-x
cedet	[ DIR ]	drwxr-xr-x
emacs-lisp	[ DIR ]	drwxr-xr-x
emulation	[ DIR ]	drwxr-xr-x
erc	[ DIR ]	drwxr-xr-x
eshell	[ DIR ]	drwxr-xr-x
gnus	[ DIR ]	drwxr-xr-x
image	[ DIR ]	drwxr-xr-x
international	[ DIR ]	drwxr-xr-x
language	[ DIR ]	drwxr-xr-x
leim	[ DIR ]	drwxr-xr-x
mail	[ DIR ]	drwxr-xr-x
mh-e	[ DIR ]	drwxr-xr-x
net	[ DIR ]	drwxr-xr-x
nxml	[ DIR ]	drwxr-xr-x
obsolete	[ DIR ]	drwxr-xr-x
org	[ DIR ]	drwxr-xr-x
play	[ DIR ]	drwxr-xr-x
progmodes	[ DIR ]	drwxr-xr-x
term	[ DIR ]	drwxr-xr-x
textmodes	[ DIR ]	drwxr-xr-x
url	[ DIR ]	drwxr-xr-x
vc	[ DIR ]	drwxr-xr-x
COPYING	34.32 KB	-rw-r--r--
README	537 B	-rw-r--r--
abbrev.elc	34.55 KB	-rw-r--r--
align.elc	39.88 KB	-rw-r--r--
allout-widgets.elc	62.37 KB	-rw-r--r--
allout.elc	203.33 KB	-rw-r--r--
ansi-color.elc	17.12 KB	-rw-r--r--
apropos.elc	37.42 KB	-rw-r--r--
arc-mode.elc	58.06 KB	-rw-r--r--
array.elc	27.07 KB	-rw-r--r--
auth-source-pass.elc	11.68 KB	-rw-r--r--
auth-source.elc	64.32 KB	-rw-r--r--
autoarg.elc	6.63 KB	-rw-r--r--
autoinsert.elc	13.41 KB	-rw-r--r--
autorevert.elc	30.71 KB	-rw-r--r--
avoid.elc	11.62 KB	-rw-r--r--
battery.elc	24.42 KB	-rw-r--r--
bindings.elc	42.76 KB	-rw-r--r--
bookmark.elc	77.09 KB	-rw-r--r--
bs.elc	49.32 KB	-rw-r--r--
buff-menu.elc	27.02 KB	-rw-r--r--
button.elc	14.97 KB	-rw-r--r--
calculator.elc	53.9 KB	-rw-r--r--
case-table.elc	4.99 KB	-rw-r--r--
cdl.elc	1.07 KB	-rw-r--r--
char-fold.elc	311.81 KB	-rw-r--r--
chistory.elc	8.16 KB	-rw-r--r--
cmuscheme.elc	18.07 KB	-rw-r--r--
color.elc	12.83 KB	-rw-r--r--
comint.elc	114.46 KB	-rw-r--r--
completion.elc	41.12 KB	-rw-r--r--
composite.elc	27.94 KB	-rw-r--r--
cus-dep.elc	6.42 KB	-rw-r--r--
cus-edit.elc	139.04 KB	-rw-r--r--
cus-face.elc	10.54 KB	-rw-r--r--
cus-load.el	85.19 KB	-rw-r--r--
cus-start.elc	21.92 KB	-rw-r--r--
cus-theme.elc	25.05 KB	-rw-r--r--
custom.elc	47.41 KB	-rw-r--r--
dabbrev.elc	22.28 KB	-rw-r--r--
delim-col.elc	8.95 KB	-rw-r--r--
delsel.elc	9.2 KB	-rw-r--r--
descr-text.elc	26.87 KB	-rw-r--r--
desktop.elc	47.64 KB	-rw-r--r--
dframe.elc	19.92 KB	-rw-r--r--
dired-aux.elc	85.75 KB	-rw-r--r--
dired-loaddefs.el	22.29 KB	-rw-r--r--
dired-x.elc	44.53 KB	-rw-r--r--
dired.elc	127.27 KB	-rw-r--r--
dirtrack.elc	7.75 KB	-rw-r--r--
disp-table.elc	8.76 KB	-rw-r--r--
display-fill-column-indicator....	8.32 KB	-rw-r--r--
display-line-numbers.elc	8.67 KB	-rw-r--r--
dnd.elc	7.13 KB	-rw-r--r--
doc-view.elc	65.25 KB	-rw-r--r--
dom.elc	7.36 KB	-rw-r--r--
dos-fns.elc	6.14 KB	-rw-r--r--
dos-vars.elc	1.1 KB	-rw-r--r--
dos-w32.elc	11.67 KB	-rw-r--r--
double.elc	4.34 KB	-rw-r--r--
dynamic-setting.elc	2.2 KB	-rw-r--r--
ebuff-menu.elc	10.46 KB	-rw-r--r--
echistory.elc	4.75 KB	-rw-r--r--
ecomplete.elc	7.1 KB	-rw-r--r--
edmacro.elc	19.94 KB	-rw-r--r--
ehelp.elc	11.32 KB	-rw-r--r--
elec-pair.elc	21.41 KB	-rw-r--r--
electric.elc	23.69 KB	-rw-r--r--
elide-head.elc	2.65 KB	-rw-r--r--
emacs-lock.elc	9.29 KB	-rw-r--r--
env.elc	6.12 KB	-rw-r--r--
epa-dired.elc	1.62 KB	-rw-r--r--
epa-file.elc	8.65 KB	-rw-r--r--
epa-hook.elc	4.63 KB	-rw-r--r--
epa-mail.elc	9.43 KB	-rw-r--r--
epa.elc	45.25 KB	-rw-r--r--
epg-config.elc	8.97 KB	-rw-r--r--
epg.elc	166.06 KB	-rw-r--r--
expand.elc	9.07 KB	-rw-r--r--
ezimage.elc	9.65 KB	-rw-r--r--
face-remap.elc	16.58 KB	-rw-r--r--
facemenu.elc	27.89 KB	-rw-r--r--
faces.elc	90.21 KB	-rw-r--r--
ffap.elc	50.3 KB	-rw-r--r--
filecache.elc	16.69 KB	-rw-r--r--
fileloop.elc	6.62 KB	-rw-r--r--
filenotify.elc	28.49 KB	-rw-r--r--
files-x.elc	21.9 KB	-rw-r--r--
files.elc	236.95 KB	-rw-r--r--
filesets.elc	72.57 KB	-rw-r--r--
find-cmd.elc	4.9 KB	-rw-r--r--
find-dired.elc	10.41 KB	-rw-r--r--
find-file.elc	18.33 KB	-rw-r--r--
find-lisp.elc	7.66 KB	-rw-r--r--
finder-inf.el	41.27 KB	-rw-r--r--
finder.elc	14.73 KB	-rw-r--r--
flow-ctrl.elc	2.26 KB	-rw-r--r--
foldout.elc	7.25 KB	-rw-r--r--
follow.elc	40.63 KB	-rw-r--r--
font-core.elc	12.41 KB	-rw-r--r--
font-lock.elc	61.63 KB	-rw-r--r--
format-spec.elc	3.93 KB	-rw-r--r--
format.elc	27.56 KB	-rw-r--r--
forms.elc	35.1 KB	-rw-r--r--
frame.elc	85.94 KB	-rw-r--r--
frameset.elc	48.02 KB	-rw-r--r--
fringe.elc	10.23 KB	-rw-r--r--
generic-x.elc	40.27 KB	-rw-r--r--
help-at-pt.elc	11.15 KB	-rw-r--r--
help-fns.elc	45.35 KB	-rw-r--r--
help-macro.elc	4.25 KB	-rw-r--r--
help-mode.elc	23.89 KB	-rw-r--r--
help.elc	52.22 KB	-rw-r--r--
hex-util.elc	1.3 KB	-rw-r--r--
hexl.elc	35.39 KB	-rw-r--r--
hfy-cmap.elc	25.45 KB	-rw-r--r--
hi-lock.elc	29.38 KB	-rw-r--r--
hilit-chg.elc	28.77 KB	-rw-r--r--
hippie-exp.elc	21.52 KB	-rw-r--r--
hl-line.elc	11.23 KB	-rw-r--r--
htmlfontify-loaddefs.el	808 B	-rw-r--r--
htmlfontify.elc	67.51 KB	-rw-r--r--
ibuf-ext.elc	77.15 KB	-rw-r--r--
ibuf-macs.elc	12.47 KB	-rw-r--r--
ibuffer-loaddefs.el	12.68 KB	-rw-r--r--
ibuffer.elc	98.62 KB	-rw-r--r--
icomplete.elc	22.83 KB	-rw-r--r--
ido.elc	127.92 KB	-rw-r--r--
ielm.elc	19.2 KB	-rw-r--r--
iimage.elc	4.92 KB	-rw-r--r--
image-dired.elc	92.97 KB	-rw-r--r--
image-file.elc	6.53 KB	-rw-r--r--
image-mode.elc	42.56 KB	-rw-r--r--
image.elc	34.45 KB	-rw-r--r--
imenu.elc	24.94 KB	-rw-r--r--
indent.elc	23.63 KB	-rw-r--r--
info-look.elc	28.18 KB	-rw-r--r--
info-xref.elc	16.59 KB	-rw-r--r--
info.elc	144.48 KB	-rw-r--r--
informat.elc	9.73 KB	-rw-r--r--
isearch.elc	147.85 KB	-rw-r--r--
isearchb.elc	4.73 KB	-rw-r--r--
jit-lock.elc	23.49 KB	-rw-r--r--
jka-cmpr-hook.elc	13.07 KB	-rw-r--r--
jka-compr.elc	12.09 KB	-rw-r--r--
json.elc	22.76 KB	-rw-r--r--
jsonrpc.elc	31.65 KB	-rw-r--r--
kermit.elc	2.92 KB	-rw-r--r--
kmacro.elc	35.15 KB	-rw-r--r--
ldefs-boot.el	1.41 MB	-rw-r--r--
linum.elc	10.77 KB	-rw-r--r--
loaddefs.el	1.41 MB	-rw-r--r--
loadhist.elc	9.77 KB	-rw-r--r--
loadup.el	20.08 KB	-rw-r--r--
locate.elc	19.57 KB	-rw-r--r--
lpr.elc	9.44 KB	-rw-r--r--
ls-lisp.elc	22.7 KB	-rw-r--r--
macros.elc	7.23 KB	-rw-r--r--
makesum.elc	2.47 KB	-rw-r--r--
man.elc	53.85 KB	-rw-r--r--
master.elc	4.58 KB	-rw-r--r--
mb-depth.elc	3.56 KB	-rw-r--r--
md4.elc	8.12 KB	-rw-r--r--
menu-bar.elc	86.61 KB	-rw-r--r--
midnight.elc	10.22 KB	-rw-r--r--
minibuf-eldef.elc	6.43 KB	-rw-r--r--
minibuffer.elc	104.08 KB	-rw-r--r--
misc.elc	5.4 KB	-rw-r--r--
misearch.elc	12.37 KB	-rw-r--r--
mouse-copy.elc	3.61 KB	-rw-r--r--
mouse-drag.elc	6.43 KB	-rw-r--r--
mouse.elc	71.3 KB	-rw-r--r--
mpc.elc	79.29 KB	-rw-r--r--
msb.elc	26.76 KB	-rw-r--r--
mwheel.elc	12.83 KB	-rw-r--r--
newcomment.elc	39.43 KB	-rw-r--r--
notifications.elc	13.78 KB	-rw-r--r--
novice.elc	4.43 KB	-rw-r--r--
obarray.elc	1.71 KB	-rw-r--r--
outline.elc	37.04 KB	-rw-r--r--
paren.elc	8.69 KB	-rw-r--r--
password-cache.elc	3.57 KB	-rw-r--r--
pcmpl-cvs.elc	6.17 KB	-rw-r--r--
pcmpl-gnu.elc	12.96 KB	-rw-r--r--
pcmpl-linux.elc	3.09 KB	-rw-r--r--
pcmpl-rpm.elc	11.17 KB	-rw-r--r--
pcmpl-unix.elc	7.52 KB	-rw-r--r--
pcmpl-x.elc	8.95 KB	-rw-r--r--
pcomplete.elc	36.16 KB	-rw-r--r--
pixel-scroll.elc	10.82 KB	-rw-r--r--
plstore.elc	14.75 KB	-rw-r--r--
printing.elc	157.7 KB	-rw-r--r--
proced.elc	62.85 KB	-rw-r--r--
profiler.elc	42.81 KB	-rw-r--r--
ps-bdf.elc	12.69 KB	-rw-r--r--
ps-def.elc	2.23 KB	-rw-r--r--
ps-mule.elc	34.89 KB	-rw-r--r--
ps-print-loaddefs.el	2.6 KB	-rw-r--r--
ps-print.elc	141.17 KB	-rw-r--r--
ps-samp.elc	5.26 KB	-rw-r--r--
recentf.elc	48.73 KB	-rw-r--r--
rect.elc	26.88 KB	-rw-r--r--
register.elc	27.63 KB	-rw-r--r--
registry.elc	10.41 KB	-rw-r--r--
repeat.elc	5.14 KB	-rw-r--r--
replace.elc	84.62 KB	-rw-r--r--
reposition.elc	2.66 KB	-rw-r--r--
reveal.elc	7.16 KB	-rw-r--r--
rfn-eshadow.elc	7.23 KB	-rw-r--r--
rot13.elc	2.56 KB	-rw-r--r--
rtree.elc	4.09 KB	-rw-r--r--
ruler-mode.elc	21.87 KB	-rw-r--r--
savehist.elc	10.83 KB	-rw-r--r--
saveplace.elc	11.87 KB	-rw-r--r--
sb-image.elc	2.75 KB	-rw-r--r--
scroll-all.elc	4.41 KB	-rw-r--r--
scroll-bar.elc	16.68 KB	-rw-r--r--
scroll-lock.elc	5.41 KB	-rw-r--r--
select.elc	18.75 KB	-rw-r--r--
server.elc	47.56 KB	-rw-r--r--
ses.elc	131.12 KB	-rw-r--r--
shadowfile.elc	31.16 KB	-rw-r--r--
shell.elc	41.53 KB	-rw-r--r--
simple.elc	301.78 KB	-rw-r--r--
skeleton.elc	15.76 KB	-rw-r--r--
so-long.elc	47.15 KB	-rw-r--r--
sort.elc	15.49 KB	-rw-r--r--
soundex.elc	1.14 KB	-rw-r--r--
speedbar.elc	115.02 KB	-rw-r--r--
startup.elc	68.51 KB	-rw-r--r--
strokes.elc	44.03 KB	-rw-r--r--
subdirs.el	450 B	-rw-r--r--
subr.elc	186.63 KB	-rw-r--r--
svg.elc	12.71 KB	-rw-r--r--
t-mouse.elc	3.8 KB	-rw-r--r--
tab-bar.elc	52.48 KB	-rw-r--r--
tab-line.elc	29.85 KB	-rw-r--r--
tabify.elc	2.17 KB	-rw-r--r--
talk.elc	2.99 KB	-rw-r--r--
tar-mode.elc	57.2 KB	-rw-r--r--
tempo.elc	19.18 KB	-rw-r--r--
term.elc	107.99 KB	-rw-r--r--
thingatpt.elc	16.88 KB	-rw-r--r--
thread.elc	8.08 KB	-rw-r--r--
thumbs.elc	25.74 KB	-rw-r--r--
time-stamp.elc	18.69 KB	-rw-r--r--
time.elc	20.87 KB	-rw-r--r--
timezone.elc	10.94 KB	-rw-r--r--
tmm.elc	13.39 KB	-rw-r--r--
tool-bar.elc	9.76 KB	-rw-r--r--
tooltip.elc	13.19 KB	-rw-r--r--
tree-widget.elc	19.84 KB	-rw-r--r--
tutorial.elc	22.28 KB	-rw-r--r--
type-break.elc	37.35 KB	-rw-r--r--
uniquify.elc	17.68 KB	-rw-r--r--
userlock.elc	6.33 KB	-rw-r--r--
vcursor.elc	23.92 KB	-rw-r--r--
version.elc	6.01 KB	-rw-r--r--
view.elc	34.69 KB	-rw-r--r--
vt-control.elc	1.99 KB	-rw-r--r--
vt100-led.elc	1.33 KB	-rw-r--r--
w32-fns.elc	11.01 KB	-rw-r--r--
w32-vars.elc	5.16 KB	-rw-r--r--
wdired.elc	23.52 KB	-rw-r--r--
whitespace.elc	69.06 KB	-rw-r--r--
wid-browse.elc	8.48 KB	-rw-r--r--
wid-edit.elc	99.52 KB	-rw-r--r--
widget.elc	1.4 KB	-rw-r--r--
windmove.elc	19.82 KB	-rw-r--r--
window.elc	294.5 KB	-rw-r--r--
winner.elc	12.04 KB	-rw-r--r--
woman.elc	109.43 KB	-rw-r--r--
x-dnd.elc	19.56 KB	-rw-r--r--
xdg.elc	10.14 KB	-rw-r--r--
xml.elc	25.31 KB	-rw-r--r--
xt-mouse.elc	14.1 KB	-rw-r--r--
xwidget.elc	18.9 KB	-rw-r--r--

Code Editor : elec-pair.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; 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!\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] "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] "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] "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 C-f.\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] "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] "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] "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] "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] "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] "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 (#$ . 4836))
(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 (#$ . 5234)])
#@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 (#$ . 5502))
#@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 (#$ . 5810)])
#@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\310\311\312\"\313\"\314$\216\315!\210z\316!\206B�)D\266\202\203Q�\317	\n\"\202R�\n\236\320\"@\321>\203l�\317\322D\"\202\227�\203\214�@A=\203\202�\323	\324F\202\227�\325A\324F\202\227�\211\205\227�\326@\324F\207" [electric-pair-text-syntax-table electric-pair-text-pairs electric-pair-pairs 8 syntax-ppss syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table matching-paren append rassq (34 40 41 36) nil 34 t 40 41] 14 (#$ . 5973)])
#@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 (#$ . 6992)])
#@421 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
�\211A\262\242\202�\300\301\302GD\"\211\203!�\211A\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\262\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 (#$ . 7233)]))
(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!\3058\205�\306>\3078\205�\310>\203*�\3118T\202=�\211\205=�\3118b\210\312d[!\210\313\314!\210`\211\203u�\315\316\317\320\321\322!\323\"\324$\216\325 p\316\317\326\321\322\"\327\"\324$\216\330	!\210\331\")\266\202*\266\202\202\204�\n\332>\203\203�\331e\"\202\204�\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-byte-code 0 "\301\300!\207" vconcat vector [syntax-ppss-flush-cache] 2 syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table parse-partial-sexp (c-mode c++ mode)] 19 (#$ . 8339)])
#@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\225�\3061b�\307`\310\311\312\313\314!\315\"\316$\216\303 p\310\311\317\313\314\"\320\"\316$\216\321!\210\322`\f\311V\203N�d\202P�d[\"\210		\")\266\202*\266\2020\202\221�\323\324A@\"\203w�\203\200�\325\326 8\204\200�\"\202\217�\3278b\210$\262\210\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\203Q�\3021L�\211f\303`\304\301\305\306\307!\310\"\311$\216\312 p\304\301\313\306\307\"\314\"\311$\216\315!\210\316\317`\320\"\206>�`Sf!)\266\202*\266\202=0\202\214�\210\321\202\214�\322`S!\323\3248!@\211f\205\212�\206f�`Sf\312 p\304\301\313\306\307\"\325\"\311$\216\315!\210\316!)\266\202\206\211�=\266\203)\301V\203\235�`\206\230�`Sf\202\237�`f\242\204\252�B\240\210?\205\264�B\240\207" [syntax-propertize-function 0 (scan-error) ignore make-byte-code "\301\300!\207" vconcat vector [syntax-ppss-flush-cache] 2 syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table matching-paren scan-sexps 1 nil electric-pair--syntax-ppss last 9 [set-syntax-table]] 18 "\n\n(fn DIRECTION INNERMOST OUTERMOST TABLE)"] (scan-error) ignore make-byte-code 0 "\301\300!\207" vconcat vector [syntax-ppss-flush-cache] 2 "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table scan-sexps string-match "ends prematurely" 8 syntax-ppss 3] 18 (#$ . 9283)])
#@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 (#$ . 11377))
#@76 Return non-nil if there are unbalanced strings started by CHAR.

(fn CHAR)
(defalias 'electric-pair--unbalanced-strings-p #[257 "\301 \212\3028\203�\303\3048b\210\305d!\210\306\307!\210`!\202 �\301 !)\3108\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 (#$ . 11723)])
#@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\"\3028\303D>\207" [electric-pair--syntax-ppss (comment) 3 t] 5 (#$ . 12109)])
#@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 (#$ . 12463)]))
#@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\224�\211@A\211:\205\222�\211@A\211:\205\220�\211A\211:\205\216�\211@A\211?\205\214�\3052\212�\306 \307\211\307C\310\311\312\313\314	\"\315\"\316$\216\317!\210\320\321!\210\322\305\323\267\202\200�\324\325\"\211A\211@\203o�\307\202t�\211A=\266\202\202\201�\326!\202\201�\307\"\327\240\210,\266\2050\266\203\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-byte-code 0 "\301\242\203	�\302\300!\207\303\300!\207" vconcat vector [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 95 34 121)) electric-pair--balance-info 1 electric-pair--unbalanced-strings-p t] 24 (#$ . 12689)])
#@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:\205y�\211@A\211:\205w�\211@A\211:\205u�\211A\211:\205s�\211@A\211?\205q�\301\302\303\304\305!\306\"\307$\216\310\311!\210\211\312\267\202m�\313\311\"\211@A\211@\203W�@\202a�@\205a�\211A=?\266\203\202n�\314\f!\202n�\315)\266\203\266\202\262\266\202\266\202\207" [electric-pair-syntax-info make-byte-code 0 "\300c\207" vconcat vector [] 1 delete-char -1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (41 69 34 102)) electric-pair--balance-info electric-pair--inside-string-p nil] 18 (#$ . 13840)])
#@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 (#$ . 14688)])
#@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 (#$ . 14871)])
(defalias 'electric-pair-post-self-insert-function #[0 "\205�\306 \307\310	!\311:\203\246@A\211:\203\237\211@A\211:\203\230\211@A\211:\203\220\211A\211\204N
\204>�\307\202I\211\312>\203\211�\313 \203\211�\211\314=\204i�\211\315=\203\\�`\316 Y\204i�\211\315=\204u�\316 `Y\203u�\212\316 b\210\317!)\202I
\211S|\210\317!\210\316 b\210\317	!\202I\212
Sb\210\320\321!\322\246\323U)\204\236�\307\202I\211\324>\203\204\314�\325\n!\203\310�`\326\323\327\330\331!\332\"\333$\216b\210\n	!)\262\202\311�\n\203\212\203\327�\211\314=\204\362�\334=\204\350�\325!\203\350� \202\351�\211\262\203\362�\f \210\307f	)=\203\f\203\f \210
S
\334=\203`\202|\210\307u\202I\211\335>\205I
?\205I\204D`\326\323\327\330\331!\332\"\333$\216b\210$	!)\262?\205I\212\317!)\266\203\202\213\325%!\203[% \202]%\205\213	\336=\205\213\337eT`d#\205\213\212\340\307x\210`S\206z`Sf)\341\307f!=\205\213\212\342\333\343\")\262\202\223 \266\202\202\232 \266\202\202\241 \266\202\202\250\211 \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 #[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 < #1="	 " nil matching-paren newline 1 t] 4] (40 41 34 36) use-region-p 34 41 mark electric-pair--insert skip-syntax-backward "\\" 2 0 (41 34 36) functionp make-byte-code "\300b\207" vconcat vector [] 1 chomp (40 34 36) 10 < #1# matching-paren newline t electric-pair-inhibit-predicate electric-pair-open-newline-between-pairs] 21])
(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 (#$ . 17031) "*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\211\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) (#$ . 17348))
(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 :group electricity :type boolean] 12)
#@686 Toggle automatic parens pairing (Electric Pair mode).

If called interactively, enable Electric-Pair 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.

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 "\301 \302\300\303=\203�\304\300!?\202�\305!\306V\"\210\203*�\307\310\311\312#\210\307\313\314\"\210\2024�\315\310\311\"\210\315\313\314\"\210\316\317\304\300!\203@�\320\202A�\321\"\210\322\323!\203k�\324\300!\210\301 \203Y�\211\301 \232\203k�\325\326\327\304\300!\203f�\330\202g�\331#\266\210\332 \210\304\300!\207" [electric-pair-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook post-self-insert-hook electric-pair-post-self-insert-function 50 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] 7 (#$ . 18355) (byte-code "\206�\301C\207" [current-prefix-arg toggle] 1)])
(defvar electric-pair-mode-hook nil)
(byte-code "\301\302N\204\f�\303\301\302\304#\210\305\306\307\310\300!\205�\307\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.)" add-minor-mode electric-pair-mode nil boundp] 6)
#@322 Toggle `electric-pair-mode' only in this buffer.

If called interactively, enable Electric-Pair-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.

(fn &optional ARG)
(defalias 'electric-pair-local-mode #[256 "\301 p\302=\203�\303\300p\"?\202�\304!\305Vrq\210\306\300!\210\211)\266\307\300!=\2032�\310\300!\210\202A�\307\300!\204A�\300\311!\210\312\300\313\"\210\314\315\303\300p\"\203N�\316\202O�\317\"\210\320\321!\203v�\301 \203c�\211\301 \232\203v�\322\323\324\303\300p\"\203q�\325\202r�\326#\266\210\327 \210\303\300p\"\207" [electric-pair-mode 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-pair-local-mode-hook electric-pair-local-mode-on-hook electric-pair-local-mode-off-hook called-interactively-p any " in current buffer" message "Electric-Pair-Local mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 20381) (byte-code "\206�\301C\207" [current-prefix-arg toggle] 1)])
(defvar electric-pair-local-mode-hook nil)
(byte-code "\300\301N\204\f�\302\300\301\303#\210\304\305!\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.)" provide elec-pair] 4)

${this.title}

Code Editor : elec-pair.elc