Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : dabbrev.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\302\303\304\305\306\307\306\310& \210\311\312\313\314\315DD\316\317\320\306\301&\210\311\321\313\314\322DD\323\317\324\306\301&\210\311\325\313\314\326DD\327\317\330\306\301&\210\311\331\313\314\332DD\333\317\320\306\301&\210\311\334\313\314\335DD\336\317\337\306\301&\210\311\340\313\314\341DD\342\317\320\306\301&\210\311\343\313\314\344DD\345\317\346\306\301\347\350& \210\311\351\313\314\352DD\353\317\354\306\301&\210\311\355\313\314\356DD\357\317\360\306\301&\210\311\361\313\314\362DD\363\317\320\306\301&\210\311\364\313\314\365DD\366\317\367\306\301\347\370& \210\311\371\313\314\372DD\373\317\374\306\301\347\375& \210\311\376\313\314\377DD\201@ \317\201A \306\301&\207" [custom-declare-group dabbrev nil "Dynamic Abbreviations." :tag "Dynamic Abbreviations" :group abbrev convenience custom-declare-variable dabbrev-backward-only funcall function #[0 "\300\207" [nil] 1] "If non-nil, `dabbrev-expand' only looks backwards." :type boolean dabbrev-limit #[0 "\300\207" [nil] 1] "Limits region searched by `dabbrev-expand' to this many chars away." (choice (const :tag "off" nil) integer) dabbrev-abbrev-skip-leading-regexp #[0 "\300\207" [nil] 1] "Regexp for skipping leading characters of an abbreviation.\n\nExample: Set this to \"\\\\$\" for programming languages\nin which variable names may appear with or without a leading `$'.\n(For example, in Makefiles.)\n\nSet this to nil if no characters should be skipped." (choice regexp (const :tag "off" nil)) dabbrev-eliminate-newlines #[0 "\300\207" [t] 1] "Non-nil means dabbrev should not insert newlines.\nInstead it converts them to spaces." dabbrev-case-fold-search #[0 "\300\207" [case-fold-search] 1] "Control whether dabbrev searches should ignore case.\nA value of nil means case is significant.\nA value of `case-fold-search' means case is significant\n if `case-fold-search' is nil.\nAny other non-nil version means case is not significant." (choice (const :tag "off" nil) (const :tag "like search" case-fold-search) (other :tag "on" t)) dabbrev-upcase-means-case-search #[0 "\300\207" [nil] 1] "The significance of an uppercase character in an abbreviation.\nA nil value means case fold search when searching for possible expansions;\nnon-nil means case sensitive search.\n\nThis variable has an effect only when the value of\n`dabbrev-case-fold-search' says to ignore case." dabbrev-case-distinction #[0 "\300\207" [case-replace] 1] "Whether dabbrev treats expansions as the same if they differ in case.\n\nA value of nil means treat them as different.\nA value of `case-replace' means distinguish them if `case-replace' is nil.\nAny other non-nil value means to treat them as the same.\n\nThis variable has an effect only when the value of\n`dabbrev-case-fold-search' specifies to ignore case." (choice (const :tag "off" nil) (const :tag "based on `case-replace'" case-replace) (other :tag "on" t)) :version "22.1" dabbrev-case-replace #[0 "\300\207" [case-replace] 1] "Whether dabbrev applies the abbreviations's case pattern to the expansion.\n\nA value of nil means preserve the expansion's case pattern.\nA value of `case-replace' means preserve it if `case-replace' is nil.\nAny other non-nil value means modify the expansion\nby applying the abbreviation's case pattern to it.\n\nThis variable has an effect only when the value of\n`dabbrev-case-fold-search' specifies to ignore case." (choice (const :tag "off" nil) (const :tag "based on `case-replace'" case-replace) (other :tag "on" t)) dabbrev-abbrev-char-regexp #[0 "\300\207" [nil] 1] "Regexp to recognize a character in an abbreviation or expansion.\nThis regexp will be surrounded with \\\\( ... \\\\) when actually used.\n\nSet this variable to \"\\\\sw\" if you want ordinary words or\n\"\\\\sw\\\\|\\\\s_\" if you want symbols (including characters\nwhose syntax is \"symbol\" as well as those whose syntax is\n\"word\"). The abbreviation is from point to the start of the\nprevious sequence of characters matching this variable.\n\nThe default value of nil is equivalent to \"\\\\sw\\\\|\\\\s_\".\n\nFor instance, suppose the current buffer is in `c-mode'. If this\nvariable is nil or \"\\\\sw\\\\|\\\\s_\", then expanding\n`debug_print_in_' looks for a symbol starting with\n`debug_print_in_'. If you set this variable to \"\\\\sw\", that\nexpansion looks for a word prefixed with `in_' (e.g., it would\nmatch `in_range', but not `in_close_range'). If expanding\n`debug_print_in' it would look for a word starting with\n`in' (e.g. `integer')." (choice (const nil) regexp) dabbrev-check-all-buffers #[0 "\300\207" [t] 1] "Non-nil means dabbrev package should search *all* buffers.\n\nDabbrev always searches the current buffer first. Then, if\n`dabbrev-check-other-buffers' says so, it searches the buffers\ndesignated by `dabbrev-select-buffers-function'.\n\nThen, if `dabbrev-check-all-buffers' is non-nil, dabbrev searches\nall the other buffers, except those named in `dabbrev-ignored-buffer-names',\nor matched by `dabbrev-ignored-buffer-regexps'." dabbrev-ignored-buffer-names #[0 "\300\207" [("*Messages*" "*Buffer List*")] 1] "List of buffer names that dabbrev should not check.\nSee also `dabbrev-ignored-buffer-regexps'." (repeat (string :tag "Buffer name")) "20.3" dabbrev-ignored-buffer-regexps #[0 "\300\207" [nil] 1] "List of regexps matching names of buffers that dabbrev should not check.\nSee also `dabbrev-ignored-buffer-names'." (repeat regexp) "21.1" dabbrev-check-other-buffers #[0 "\300\207" [t] 1] "Should \\[dabbrev-expand] look in other buffers?\nnil: Don't look in other buffers.\nt: Also look for expansions in the buffers pointed out by\n `dabbrev-select-buffers-function'.\nAnything else: When we can't find any more expansions in\nthe current buffer, then ask the user whether to look in other\nbuffers too.\n\nThe default value is t." (choice (const :tag "off" nil) (const :tag "on" t) (other :tag "ask" other))] 10) #@282 A function that selects buffers that should be searched by dabbrev. The function should take no arguments and return a list of buffers to search for expansions. See the source of `dabbrev--select-buffers' for an example. A mode setting this variable should make it buffer local. (defvar dabbrev-select-buffers-function 'dabbrev--select-buffers (#$ . 6337)) (byte-code "\300\301\302\303\304DD\305\306\303\307\310&\210\300\311\302\303\312DD\313\306\314\307\310&\207" [custom-declare-variable dabbrev-friend-buffer-function funcall function #[0 "\300\207" [dabbrev--same-major-mode-p] 1] "A function to decide whether dabbrev should search OTHER-BUFFER.\nThe function should take one argument, OTHER-BUFFER, and return\nnon-nil if that buffer should be searched. Have a look at\n`dabbrev--same-major-mode-p' for an example.\n\nThe value of `dabbrev-friend-buffer-function' has an effect only if\nthe value of `dabbrev-select-buffers-function' uses it. The function\n`dabbrev--select-buffers' is one function you can use here.\n\nA mode setting this variable should make it buffer local." :type :group dabbrev dabbrev-search-these-buffers-only #[0 "\300\207" [nil] 1] "If non-nil, a list of buffers which dabbrev should search.\nIf this variable is non-nil, dabbrev will only look in these buffers.\nIt will not even look in the current buffer if it is not a member of\nthis list." (choice (const nil) (repeat :tag "List of buffers" string))] 8) (defvar dabbrev--last-table nil) (defvar dabbrev--last-abbreviation nil) (defvar dabbrev--last-abbrev-location nil) (defvar dabbrev--last-direction 0) (defvar dabbrev--last-expansion nil) (defvar dabbrev--last-expansion-location nil) (defvar dabbrev--friend-buffer-list nil) (defvar dabbrev--last-buffer nil) (defvar dabbrev--last-buffer-found nil) (defvar dabbrev--last-case-pattern nil) (defvar dabbrev--check-other-buffers dabbrev-check-other-buffers) (defvar dabbrev--check-all-buffers dabbrev-check-all-buffers) (defvar dabbrev--abbrev-char-regexp nil) (defvar dabbrev--progress-reporter nil) #@40 Get the buffer from which mini-buffer. (defalias 'dabbrev--minibuffer-origin #[0 "\300\301 !\207" [window-buffer minibuffer-selected-window] 2 (#$ . 8389)]) (put 'dabbrev--minibuffer-origin 'byte-optimizer 'byte-compile-inline-expand) #@31 (fn ELEMENT LIST CONDITION) (defalias 'dabbrev-filter-elements '(macro . #[771 "\300\301\302E\303\302E\304\302\303\305BB\306\303\301\307 \310BBEE\311BBBB\312BBBB\207" [let dabbrev-result dabbrev-tail setq while ((car dabbrev-tail)) if cons (dabbrev-result) ((setq dabbrev-tail (cdr dabbrev-tail))) ((nreverse dabbrev-result))] 16 (#$ . 8630)])) #@15 (fn ABBREV) (defalias 'dabbrev--ignore-case-p #[257 "\301=\203\n \202 \205 \n?\206 \211\227\230\207" [dabbrev-case-fold-search case-fold-search dabbrev-upcase-means-case-search] 3 (#$ . 8990)]) #@437 Completion on current word. Like \[dabbrev-expand] but finds all expansions in the current buffer and presents suggestions for completion. With a prefix argument ARG, it searches all buffers accepted by the function pointed out by `dabbrev-friend-buffer-function' to find the completions. If the prefix argument is 16 (which comes from \[universal-argument] \[universal-argument]), then it searches *all* buffers. (fn &optional ARG) (defalias 'dabbrev-completion #[256 "\302 \210\303 \304!\210`\305!\210`\306!\307C\310\311\312\313\314 #\315\"\316\317%\205+ \320\2057 \321!\322U\323#\207" [dabbrev--check-other-buffers dabbrev--check-all-buffers dabbrev--reset-global-variables dabbrev--abbrev-at-point search-backward search-forward dabbrev--ignore-case-p uninitialized make-byte-code 771 "\211\306=\203 \306\307\310B\311BB\207\302\242\312=\203l \212\300\313\300\301\"\301 \211:\2041 \314\315\300 \203. \316\202/ \317#\210\302\301\203; \204? \202g \300\211\226\230\203M \320\321\"\202g \322\300\323\324#\322\300\323\324#\226\230\203c \320\325\"\202g \320\326\"\240\210)\210)\327\302\242$\207" vconcat vector [dabbrev--last-abbreviation completion-ignore-case dabbrev--check-other-buffers metadata cycle-sort-function identity ((category . dabbrev)) uninitialized dabbrev--find-all-expansions user-error "No dynamic expansion for \"%s\" found%s" "" " in this-buffer" mapcar upcase substring 0 1 capitalize downcase complete-with-action dabbrev-case-replace] 10 "\n\n(fn S P A)" t prefix-numeric-value 16 completion-in-region] 14 (#$ . 9200) "*P"]) #@1055 Expand previous word "dynamically". Expands to the most recent, preceding word for which this is a prefix. If no suitable preceding word is found, words following point are considered. If still no suitable word is found, then look in the buffers accepted by the function pointed out by variable `dabbrev-friend-buffer-function', if `dabbrev-check-other-buffers' says so. Then, if `dabbrev-check-all-buffers' is non-nil, look in all the other buffers, subject to constraints specified by `dabbrev-ignored-buffer-names' and `dabbrev-ignored-buffer-regexps'. A positive prefix argument, N, says to take the Nth backward *distinct* possibility. A negative argument says search forward. If the cursor has not moved from the end of the previous expansion and no argument is given, replace the previously-made expansion with the next possible expansion not yet tried. The variable `dabbrev-backward-only' may be used to limit the direction of search to backward if set non-nil. See also `dabbrev-abbrev-char-regexp' and \[dabbrev-completion]. (fn ARG) (defalias 'dabbrev-expand #[257 "\306\211\211\211\211`\212\2045 \307!\2035 \310!\2035 \n=\204) \311 \2035 `U\2035 \262\f\262 \262\202\271 h\312=\203\224 \307!\203\224 \310!\203\224 `TU\203\224 \313\262\212\214~\210&\203^ &q\210 \314=\204q \315=\203x '`W\203x '\fG\\''b\210\316\317(\320Q!\210\321'`\"\262`'*\322\202\271 \323 \210\204\251 )\203\245 \314\202\255 \315\202\255 \324!\262\325 \262\326\262\306\262\204\310 \327\330 !#\262)\204\373 \323 \210\203\352 \212\211*B*\331!\210c\210``G\\|\210)\332\333\203\364 \334\202\365 \335#\202U&+=\204\336\337 !\204\340\341\342&!\"\210&+\202 \340\306!\210p&=\204)&\204<'\247\203<'`V\203<\343'!'\211*B*\344$\262\345 \211\207" [dabbrev--last-abbrev-location last-command this-command dabbrev--last-abbreviation dabbrev--last-expansion dabbrev--last-direction nil markerp marker-position window-minibuffer-p 32 " " 1 0 re-search-forward "\\(?:" "\\)+" buffer-substring-no-properties -1 dabbrev--reset-global-variables prefix-numeric-value dabbrev--abbrev-at-point t dabbrev--find-expansion dabbrev--ignore-case-p search-backward user-error "No%s dynamic expansion for `%s' found" " further" "" minibuffer-window-active-p selected-window message "Expansion found in `%s'" buffer-name copy-marker dabbrev--substitute-expansion point-marker dabbrev--last-buffer dabbrev--last-expansion-location dabbrev--abbrev-char-regexp dabbrev-backward-only buffer-undo-list dabbrev--last-buffer-found] 12 (#$ . 10788) "*P"]) #@85 Check if OTHER-BUFFER has the same major mode as current buffer. (fn OTHER-BUFFER) (defalias 'dabbrev--same-major-mode-p #[257 "rq\210)=\207" [major-mode] 3 (#$ . 13383)]) #@87 Back over all abbrev type characters and then moves forward over all skip characters. (defalias 'dabbrev--goto-start-of-abbrev #[0 "\302 \303\304\305\306\307!\310\"\311$\216`\312 V\203? \313u\210\314!\2036 `\312 V\2036 `\315`\316`S#U\2046 \313u\210\202 \314!\204? \317u\210 \205O \314 !\205O \317u\210\202C )\207" [dabbrev--abbrev-char-regexp dabbrev-abbrev-skip-leading-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 minibuffer-prompt-end -1 looking-at field-beginning nil 1] 7 (#$ . 13565)]) #@55 Extract the symbol at point to serve as abbreviation. (defalias 'dabbrev--abbrev-at-point #[0 "o\203 \302\303!\210\212`\304 \305\306\307\310\311!\312\"\313$\216\212\314u\210\315 \206# \316!)\204> \317 \206. \316\320\321#\203: \322u\210\202> \302\303!\210)\210\323 \210\324`\")\207" [dabbrev--last-abbrev-location dabbrev-abbrev-char-regexp user-error "No possible abbreviation preceding point" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 -1 looking-at "\\sw\\|\\s_" re-search-backward nil t 1 dabbrev--goto-start-of-abbrev buffer-substring-no-properties] 7 (#$ . 14122)]) #@34 Initialize all global variables. (defalias 'dabbrev--reset-global-variables #[0 "\306\211\306\211\306\211\306\211 \306\n \206 \307\f \211\207" [dabbrev--last-table dabbrev--last-abbreviation dabbrev--last-abbrev-location dabbrev--last-direction dabbrev--last-expansion dabbrev--last-expansion-location nil "\\sw\\|\\s_" dabbrev--friend-buffer-list dabbrev--last-buffer dabbrev--last-buffer-found dabbrev-abbrev-char-regexp dabbrev--abbrev-char-regexp dabbrev-check-other-buffers dabbrev--check-other-buffers dabbrev-check-all-buffers dabbrev--check-all-buffers] 3 (#$ . 14753)]) #@493 Return a list of other buffers to search for a possible abbrev. The current buffer is not included in the list. This function makes a list of all the buffers returned by `buffer-list', then discards buffers whose names match `dabbrev-ignored-buffer-names' or `dabbrev-ignored-buffer-regexps'. It also discards buffers for which `dabbrev-friend-buffer-function', if it is bound, returns nil when called with the buffer as argument. It returns the list of the buffers that are not discarded. (defalias 'dabbrev--select-buffers #[0 "\301\211\211\302 \262\2033 @\262p=\204, \303!\204, \304\300!\203, !\203, \211B\262A\262\202 \237\207" [dabbrev-friend-buffer-function nil buffer-list dabbrev--ignore-buffer-p boundp] 5 (#$ . 15359)]) #@261 Search for ABBREV, backwards if REVERSE, N times. If IGNORE-CASE is non-nil, ignore case while searching. Return the expansion found, and save the location of the start of the expansion in `dabbrev--last-expansion-location'. (fn ABBREV REVERSE N IGNORE-CASE) (defalias 'dabbrev--try-find #[1028 "\212\214~\210\304\203\f b\210\211\305V\2039 \306\205+ \n\303=\203* \202+ \n#\211\262\2039 \211S\262\202 )\266\211\203B `\211\262*\207" [dabbrev--last-expansion-location case-fold-search dabbrev-case-distinction case-replace nil 0 dabbrev--search] 12 (#$ . 16112)]) #@142 Return a list of all possible expansions of ABBREV. If IGNORE-CASE is non-nil, accept matches which differ in case. (fn ABBREV IGNORE-CASE) (defalias 'dabbrev--find-all-expansions #[514 "\300\211\212eb\210\301\302#\211\262\203 \211B\262\202 )\207" [nil dabbrev--find-expansion -1] 8 (#$ . 16700)]) #@69 Return non-nil if BUFFER should be ignored by dabbrev. (fn BUFFER) (defalias 'dabbrev--ignore-buffer-p #[257 "\302!\211\235\206# \303\203! \211\204! \304@\"\262A\262\202 \262\207" [dabbrev-ignored-buffer-names dabbrev-ignored-buffer-regexps buffer-name nil string-match] 7 (#$ . 17013)]) #@509 Find one occurrence of ABBREV, and return the expansion. DIRECTION > 0 means look that many times backwards. DIRECTION < 0 means look that many times forward. DIRECTION = 0 means try both backward and forward. IGNORE-CASE non-nil means ignore case when searching. This sets `dabbrev--last-direction' to 1 or -1 according to the direction in which the occurrence was actually found. It sets `dabbrev--last-expansion-location' to the location of the start of the occurrence. (fn ABBREV DIRECTION IGNORE-CASE) (defalias 'dabbrev--find-expansion #[771 "\212\203 q\210 \204% \306Y\203% \307^\211\203% \310\311\307]$\206\234 \203- \203E \306X\203E \312\211\203E \310\313\307[]$\206\234 \312\204^ \204^ \314 \315\316 G[\306\211\307\317&\313\211\204\225 \203\225 \211A\242\211q\210\f G[\313\247\203\201 @Y\205\206 \320#\266e\310\313\307$\262\202_ \321\f!\210\211\262)\207" [dabbrev--last-buffer dabbrev-search-these-buffers-only dabbrev--last-direction dabbrev--friend-buffer-list dabbrev--progress-reporter dabbrev--last-expansion-location 0 1 dabbrev--try-find t -1 nil dabbrev--make-friend-buffer-list make-progress-reporter "Scanning for dabbrevs..." 1.5 progress-reporter-do-update progress-reporter-done] 12 (#$ . 17320)]) (defalias 'dabbrev--make-friend-buffer-list #[0 "\304\305\"C\204` \203` \306=\204 \307\310!\211\203` \211\n \240\210 \203X \211\311\242\312\211\211\313 \262\203Q @\262\211\242>\204J \314!\204J \211B\262A\262\202/ \237\266\203\"\240\210\211\315p\242\"\240\210\211\242\203u \316\317\320\321\322\323!\324\"\325\326%!\210\327 \203\216 \204\216 \211\330\331 !\315\330\331 !\242\"B\240\210\211\242\207" [dabbrev-search-these-buffers-only dabbrev--check-other-buffers dabbrev-select-buffers-function dabbrev--check-all-buffers mapcar get-buffer t y-or-n-p "Scan other buffers also? " append nil buffer-list dabbrev--ignore-buffer-p delq walk-windows make-byte-code 257 "\211\301 =?\205 \302!\300\242>\205 \300\302!\303\302!\300\242\"B\240\207" vconcat vector [selected-window window-buffer delq] 6 "\n\n(fn W)" window-minibuffer-p window-buffer minibuffer-selected-window] 9]) #@43 (fn STRING &optional FIXEDCASE LITERAL) (defalias 'dabbrev--safe-replace-match #[769 "\301=\203\f \302#\207\303#\207" [major-mode picture-mode picture-replace-match replace-match] 7 (#$ . 19485)]) #@504 Replace OLD with EXPANSION in the buffer. OLD is text currently in the buffer, perhaps the abbreviation or perhaps another expansion that was tried previously. ABBREV is the abbreviation we are expanding. It is " " if we are copying subsequent words. EXPANSION is the expansion substring to be used this time. RECORD-CASE-PATTERN, if non-nil, means set `dabbrev--last-case-pattern' to record whether we upcased the expansion, downcased it, or did neither. (fn OLD ABBREV EXPANSION RECORD-CASE-PATTERN) (defalias 'dabbrev--substitute-expansion #[1028 "\304!\205 \301=\203 \202 \305\232\203# \n\203 \n!\262\306\262\307\310\"\311\312\"\211\203b \211\227\230\204> \211\226\230\203U \211\227\230\204e \211\226\230\203U GZ\310V\204e \307\313 G#\230\203e \306\262\266\211\227\230\203x \211\227\230\203x \306\262\211\203\200 \227\262\203\234 \211\205\233 \211\226\232\203\223 \314\202\233 \211\227\232\205\233 \315 \203\306 \305\232\203\252 \313\202\254 G\311\316#\203\305 \313\224T\262\317\305\306\211$\262\202\254 \210\203\323 \212\320!\210)\202\333 \320!\210\321!\210\322?\323#\266\207" [dabbrev-case-replace case-replace dabbrev--last-case-pattern dabbrev-eliminate-newlines dabbrev--ignore-case-p " " nil substring 1 string-match "[[:alpha:]]" 0 upcase downcase "[\n ]+" replace-match search-backward search-forward dabbrev--safe-replace-match t] 12 (#$ . 19698)]) #@793 Search for something that could be used to expand ABBREV. Second arg, REVERSE, is t for reverse search, nil for forward. The variable `dabbrev-limit' controls the maximum search region size. Third argument IGNORE-CASE non-nil means treat case as insignificant while looking for a match and when comparing with previous matches. Also if that's non-nil and the match is found at the beginning of a sentence and is in lower case except for the initial then it is converted to all lower case for return. Table of expansions already seen is examined in buffer `dabbrev--last-table' so that only distinct possibilities are found by dabbrev-re-expand. Returns the expansion found, or nil if not found. Leaves point at the location of the start of the expansion. (fn ABBREV REVERSE IGNORE-CASE) (defalias 'dabbrev--search #[771 "\305 \306\307\310\311\312!\313\"\314$\216\315!\316\317R\315!\320\321R\322\323\211\214\n\2036 ` \2032 \n[\2023 \n\\}\210\204\254 \203G \324\323\322#\202L \325\323\322#\203\254 \307\224b\210\326 \210\327!\203\233 \325!\210\330\307!\262\262\203q \227\262\323\211\211\f\262\203\221 @\262\230\203\212 \211B\262A\262\202w \237\266\203\203\233 \323\262\203\245 \307\224\202\247 \307\225b\210\2026 \205\265 \fB\211*\266\205)\207" [dabbrev--abbrev-char-regexp inhibit-point-motion-hooks dabbrev-limit dabbrev--last-expansion-location dabbrev--last-table match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 regexp-quote "\\(" "\\)" "\\(\\(" "\\)+\\)" t nil re-search-backward re-search-forward dabbrev--goto-start-of-abbrev looking-at match-string-no-properties] 14 (#$ . 21121)]) (provide 'dabbrev)
Close
