Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ 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
international
[ DIR ]
drwxr-xr-x
language
[ 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
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : abbrev.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:11 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/abbrev.el ;;; in Emacs version 23.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`abbrev.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'abbrev-mode nil "Word abbreviations mode." :link '(custom-manual "(emacs)Abbrevs") :group 'abbrev) #@152 Non-nil means user plans to use global abbrevs only. This makes the commands that normally define mode-specific abbrevs define global abbrevs instead. (custom-declare-variable 'only-global-abbrevs 'nil '(#$ . 724) :type 'boolean :group 'abbrev-mode :group 'convenience) #@91 Non-nil if Abbrev mode is enabled. Use the command `abbrev-mode' to change this variable. (defvar abbrev-mode nil (#$ . 1000)) (make-variable-buffer-local 'abbrev-mode) #@231 Toggle Abbrev mode in the current buffer. With optional argument ARG, turn abbrev mode on if ARG is positive, otherwise turn it off. In Abbrev mode, inserting an abbreviation causes it to expand and be replaced by its expansion. (defalias 'abbrev-mode #[(&optional arg) "\303 \304=\203 \n?\202( \203 \305 !\306V\202( \n\204\" \307\202( \310\311\302\"\210\312\313\314\n\2033 \315\2024 \316\"\210\317 \203T \303 \203G \303 \232\203T \310\320\n\203Q \321\202R \322\"\210)\323 \210\n\207" [#1=#:last-message arg abbrev-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks abbrev-mode-hook abbrev-mode-on-hook abbrev-mode-off-hook called-interactively-p "Abbrev mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 1176) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode abbrev-mode nil boundp abbrev-mode-map] 5) #@322 Enable or disable Abbrev mode. Non-nil means automatically expand abbrevs as they are inserted. Setting this variable with `setq' changes it for the current buffer. Changing it with \[customize] sets the default value. Interactively, use the command `abbrev-mode' to enable or disable Abbrev mode in the current buffer. (custom-declare-variable 'abbrev-mode 'nil '(#$ . 2137) :type 'boolean :group 'abbrev-mode) (put 'abbrev-mode 'safe-local-variable 'booleanp) #@32 Keymap used in `edit-abbrevs'. (defvar edit-abbrevs-map (byte-code "\301 \302\303\304#\210\302\305\304#\210)\207" [map make-sparse-keymap define-key "" edit-abbrevs-redefine ""] 4) (#$ . 2606)) #@31 Undefine all defined abbrevs. (defalias 'kill-all-abbrevs #[nil "\303\211\203 \n@\304 J!\210\nA\211\204 *\303\207" [abbrev-table-name-list tablesym #1=#:--cl-dolist-temp-- nil clear-abbrev-table] 3 (#$ . 2814) nil]) #@57 Make a new abbrev-table with the same abbrevs as TABLE. (defalias 'copy-abbrev-table #[(table) "\302 \303\304 \"\210)\207" [new-table table make-abbrev-table mapatoms #[(symbol) "\302\303 ! J K$\207" [new-table symbol define-abbrev symbol-name] 5]] 3 (#$ . 3043)]) #@95 Insert after point a description of all defined abbrevs. Mark is set after the inserted text. (defalias 'insert-abbrevs #[nil "\303\212\304\211\203 \n@\305 \306\"\210\nA\211\204\n *`)!\207" [abbrev-table-name-list tablesym #1=#:--cl-dolist-temp-- push-mark nil insert-abbrev-table-description t] 5 (#$ . 3317) nil]) #@183 Display a list of defined abbrevs. If LOCAL is non-nil, interactively when invoked with a prefix arg, display only local, i.e. mode-specific, abbrevs. Otherwise display all abbrevs. (defalias 'list-abbrevs #[(&optional local) "\301\302!!\207" [local display-buffer prepare-abbrev-list-buffer] 3 (#$ . 3646) "P"]) #@42 Value is the name of abbrev table TABLE. (defalias 'abbrev-table-name #[(table) "\304 \204 \n\203 \n@J =\203 \n@\nA\202 *\207" [abbrev-table-name-list found tables table nil] 2 (#$ . 3966)]) (defalias 'prepare-abbrev-list-buffer #[(&optional local) "r\305\306!q\210\307 \210\203 \310\311 !\312\"\210\202/ \n\313\211 \203. \f@\310 \312\"\210\fA\211\204 *eb\210\314\313!\210\315 \210p)\207" [local local-abbrev-table abbrev-table-name-list table #1=#:--cl-dolist-temp-- get-buffer-create "*Abbrevs*" erase-buffer insert-abbrev-table-description abbrev-table-name t nil set-buffer-modified-p edit-abbrevs-mode] 4]) #@76 Major mode for editing the list of abbrev definitions. \{edit-abbrevs-map} (defalias 'edit-abbrevs-mode #[nil "\303 \210\304\305\306\n!\210\307\310!\207" [major-mode mode-name edit-abbrevs-map kill-all-local-variables edit-abbrevs-mode "Edit-Abbrevs" use-local-map run-mode-hooks edit-abbrevs-mode-hook] 2 (#$ . 4600) nil]) #@568 Alter abbrev definitions by editing a list of them. Selects a buffer containing a list of abbrev definitions. You can edit them and type \<edit-abbrevs-map>\[edit-abbrevs-redefine] to redefine abbrevs according to your editing. Buffer contains a header line for each abbrev table, which is the abbrev table name in parentheses. This is followed by one line per abbrev in that table: NAME USECOUNT EXPANSION HOOK where NAME and EXPANSION are strings with quotes, USECOUNT is an integer, and HOOK is any valid function or may be omitted (it is usually omitted). (defalias 'edit-abbrevs #[nil "\300\301 !\207" [switch-to-buffer prepare-abbrev-list-buffer] 2 (#$ . 4933) nil]) #@56 Redefine abbrevs according to current buffer contents. (defalias 'edit-abbrevs-redefine #[nil "\214~\210\300\301!\210\302\303!)\207" [define-abbrevs t set-buffer-modified-p nil] 2 (#$ . 5619) nil]) #@255 Define abbrevs according to current visible buffer contents. See documentation of `edit-abbrevs' for info on the format of the text you must have in the buffer. With argument, eliminate all abbrev definitions except the ones defined from the buffer now. (defalias 'define-abbrevs #[(&optional arg) "\203 \306 \210\212eb\210m?\205~ \307\310\311\312#\205~ p\313 !\311\211 \311\211 \311\211 \314y\210\314y\210l\204t \313 !\313 !\211\315\232\203N \312\313 !\313 !\316\311x\210l?\205_ \313 !\316\311x\210\f \257 B\2020 \317\n \"\210.\202 )\207" [arg buf table abbrevs name hook kill-all-abbrevs re-search-forward "^(" nil t read 1 (sys) " \n\f" define-abbrev-table exp count sys] 6 (#$ . 5824) "P"]) #@245 Read abbrev definitions from file written with `write-abbrev-file'. Optional argument FILE is the name of the file to read; it defaults to the value of `abbrev-file-name'. Optional second argument QUIETLY non-nil means don't display a message. (defalias 'read-abbrev-file #[(&optional file quietly) "\304\206 \305\n#\210\305\211\207" [file abbrev-file-name quietly abbrevs-changed load nil] 4 (#$ . 6557) (list (read-file-name (format "Read abbrev file (default %s): " abbrev-file-name) nil abbrev-file-name t))]) #@203 Read abbrev definitions from file written with `write-abbrev-file'. Optional argument FILE is the name of the file to read; it defaults to the value of `abbrev-file-name'. Does not display any message. (defalias 'quietly-read-abbrev-file #[(&optional file) "\301\302\"\207" [file read-abbrev-file t] 3 (#$ . 7082)]) #@377 Write all user-level abbrev definitions to a file of Lisp code. This does not include system abbrevs; it includes only the abbrev tables listed in listed in `abbrev-table-name-list'. The file written can be loaded in another session to define the same abbrevs. The argument FILE is the file name to write. If omitted or nil, the file specified in `abbrev-file-name' is used. (defalias 'write-abbrev-file #[(&optional file) "\203 G\306V\204 \307\310\311\312!! \313\216r q\210\314c\210\315\316 !\317\"\320 \211 \203C @\321\320\"\210A\211\204/ +\320r q\210\322\320\211\f\320\306%\210-\207" [file abbrev-file-name coding-system-for-write #1=#:temp-buffer #2=#:temp-file abbrev-table-name-list 0 emacs-mule get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ";;-*-coding: emacs-mule;-*-\n" sort copy-sequence #[(s1 s2) "\302!\302 !\231\207" [s1 s2 symbol-name] 3] nil insert-abbrev-table-description write-region table #3=#:--cl-dolist-temp--] 7 (#$ . 7406) (list (read-file-name "Write abbrev file: " (file-name-directory (expand-file-name abbrev-file-name)) abbrev-file-name))]) #@338 Define mode-specific abbrev for last word(s) before point. Argument is how many words before point form the expansion; or zero means the region is the expansion. A negative argument means to undefine the specified abbrev. Reads the abbreviation in the minibuffer. Don't use this function in a Lisp program; use `define-abbrev' instead. (defalias 'add-mode-abbrev #[(arg) "\304\203 \202 \n\206 \305\306!\307 #\207" [only-global-abbrevs global-abbrev-table local-abbrev-table arg add-abbrev error "No per-mode abbrev table" "Mode"] 4 (#$ . 8599) "p"]) #@388 Define global (all modes) abbrev for last word(s) before point. The prefix argument specifies the number of words before point that form the expansion; or zero means the region is the expansion. A negative argument means to undefine the specified abbrev. This command uses the minibuffer to read the abbreviation. Don't use this function in a Lisp program; use `define-abbrev' instead. (defalias 'add-global-abbrev #[(arg) "\302\303 #\207" [global-abbrev-table arg add-abbrev "Global"] 4 (#$ . 9162) "p"]) (defalias 'add-abbrev #[(table type arg) "\305Y\205 \306`\305U\203 \307 \202 \212[v\210`)\"\310\311\312\n\203( \313\202) \314 \n#!\315\305 G\310 $\210\n\203N \316 \f\"\203N \317\312\320 \316 \f\"#!\205T \321\f \227\n#*\207" [arg name exp type table 0 buffer-substring-no-properties mark nil read-string format "%s abbrev for \"%s\": " "Undefine %s abbrev: " set-text-properties abbrev-expansion y-or-n-p "%s expands to \"%s\"; redefine? " define-abbrev] 7]) #@217 Define last word before point as a mode-specific abbrev. With prefix argument N, defines the Nth word before point. This command uses the minibuffer to read the expansion. Expands the abbreviation after defining it. (defalias 'inverse-add-mode-abbrev #[(n) "\304\203 \202 \n\206 \305\306!\307 #\207" [only-global-abbrevs global-abbrev-table local-abbrev-table n inverse-add-abbrev error "No per-mode abbrev table" "Mode"] 4 (#$ . 10144) "p"]) #@229 Define last word before point as a global (mode-independent) abbrev. With prefix argument N, defines the Nth word before point. This command uses the minibuffer to read the expansion. Expands the abbreviation after defining it. (defalias 'inverse-add-global-abbrev #[(n) "\302\303 #\207" [global-abbrev-table n inverse-add-abbrev "Global"] 4 (#$ . 10599) "p"]) (defalias 'inverse-add-abbrev #[(table type arg) "\306\211\211\211\212\f[Tv\210`\307v\210`\310 \")\311\312\313 #\306\211\211\314%\315 \"\203= \316\312\317 \315 \"#!\205L \320 \227\n#\210\212b\210\321 ),\207" [end start exp name arg type nil -1 buffer-substring-no-properties read-string format "%s expansion for \"%s\": " t abbrev-expansion y-or-n-p "%s expands to \"%s\"; redefine? " define-abbrev expand-abbrev table] 7]) #@461 Mark current point as the beginning of an abbrev. Abbrev to be expanded starts here rather than at beginning of word. This way, you can expand an abbrev with a prefix: insert the prefix, use this command, then insert the abbrev. This command inserts a temporary hyphen after the prefix (until the intended abbrev expansion occurs). If the prefix is itself an abbrev, this command expands it, unless ARG is non-nil. Interactively, ARG is the prefix argument. (defalias 'abbrev-prefix-mark #[(&optional arg) "\204 \303 \210\304 p\305c\207" [arg abbrev-start-location abbrev-start-location-buffer expand-abbrev point-marker "-"] 1 (#$ . 11409) "P"]) #@173 For abbrev occurrence in the region, offer to expand it. The user is asked to type `y' or `n' for each occurrence. A prefix argument means don't query; expand all abbrevs. (defalias 'expand-region-abbrevs #[(start end &optional noquery) "\212b\210d Z\306\211 m?\205A \307v\210`\211d\fZX\205A \310\311\212\312v\210`) \"\211!\203\f \204; \313\314\315\n\"!\203\f \316 \210\202\f ,\207" [start end string pnt lim noquery nil 1 abbrev-expansion buffer-substring-no-properties -1 y-or-n-p format "Expand `%s'? " expand-abbrev] 4 (#$ . 12069) "r\nP"]) #@46 Get the PROP property of abbrev table TABLE. (defalias 'abbrev-table-get #[(table prop) "\303\304\"\211\205\f \nN)\207" [table sym prop intern-soft ""] 4 (#$ . 12626)]) #@53 Set the PROP property of abbrev table TABLE to VAL. (defalias 'abbrev-table-put #[(table prop val) "\304\305\"\211\306L\210\307 \n #)\207" [table sym prop val intern "" nil put] 5 (#$ . 12804)])(if macro-declaration-function (funcall macro-declaration-function (quote abbrev-with-wrapper-hook) (quote (declare (indent 1) (debug t))))) (byte-code "\300\301\302\303#\210\300\304\305\306#\207" [defalias abbrev-get get "Get the property PROP of abbrev ABBREV\n\n(fn ABBREV PROP)" abbrev-put put "Set the property PROP of abbrev ABREV to value VAL.\nSee `define-abbrev' for the effect of some special properties.\n\n(fn ABBREV PROP VAL)"] 4) #@454 Run BODY wrapped with the VAR hook. VAR is a special hook: its functions are called with one argument which is the "original" code (the BODY), so the hook function can wrap the original function, can call it several times, or even not call it at all. VAR is normally a symbol (a variable) in which case it is treated like a hook, with a buffer-local and a global part. But it can also be an arbitrary expression. This is similar to an `around' advice. (defalias 'abbrev-with-wrapper-hook '(macro . #[(var &rest body) "\304\305!\304\306!\307\310 D\311\301 D\300DD\312\313\314\nBBBEEC\310 \2119\2052 \312\315\316 DD\317\316 DDEEE*\207" [global funs body var make-symbol "funs" "global" labels runrestofhook lexical-let if (consp funs) (if (eq t (car funs)) (runrestofhook (append global (cdr funs)) nil) (funcall (car funs) (lambda nil (runrestofhook (cdr funs) global)))) local-variable-p quote default-value] 9 (#$ . 13451)])) #@49 List of symbols whose values are abbrev tables. (defvar abbrev-table-name-list '(fundamental-mode-abbrev-table global-abbrev-table) (#$ . 14389)) #@73 Create a new, empty abbrev table object. PROPS is a list of properties. (defalias 'make-abbrev-table #[(&optional props) "\302\303\304\"\305\306\304#\210 :\203! \305 \211A@ \211A@#\210\202 )\207" [table props make-vector 59 0 abbrev-table-put :abbrev-table-modiff] 5 (#$ . 14541)]) (defalias 'abbrev-table-p #[(object) "\301!\205 \302\303\"\247\207" [object vectorp abbrev-table-get :abbrev-table-modiff] 3]) #@196 The abbrev table whose abbrevs affect all buffers. Each buffer may also have a local abbrev table. If it does, the local table overrides the global one for any particular abbrev defined in both. (defvar global-abbrev-table (make-abbrev-table) (#$ . 14967)) #@160 Alist of abbrev tables to use for minor modes. Each element looks like (VARIABLE . ABBREV-TABLE); ABBREV-TABLE is active whenever VARIABLE's value is non-nil. (defvar abbrev-minor-mode-table-alist nil (#$ . 15231)) #@65 The abbrev table of mode-specific abbrevs for Fundamental Mode. (defvar fundamental-mode-abbrev-table (byte-code "\301 \302\303\"\210)\207" [table make-abbrev-table set-default local-abbrev-table] 3) (#$ . 15452)) #@117 Set non-nil by defining or altering any word abbrevs. This causes `save-some-buffers' to offer to save the abbrevs. (defvar abbrevs-changed nil (#$ . 15676)) #@68 Non-nil means expand multi-word abbrevs all caps if abbrev was so. (custom-declare-variable 'abbrev-all-caps 'nil '(#$ . 15840) :type 'boolean :group 'abbrev-mode) #@165 Buffer position for `expand-abbrev' to use as the start of the abbrev. When nil, use the word before point as the abbrev. Calling `expand-abbrev' sets this to nil. (defvar abbrev-start-location nil (#$ . 16011)) #@134 Buffer that `abbrev-start-location' has been set for. Trying to expand an abbrev in any other buffer clears `abbrev-start-location'. (defvar abbrev-start-location-buffer nil (#$ . 16230)) #@70 The abbrev-symbol of the last abbrev expanded. See `abbrev-symbol'. (defvar last-abbrev nil (#$ . 16424)) #@92 The exact text of the last abbrev expanded. nil if the abbrev has already been unexpanded. (defvar last-abbrev-text nil (#$ . 16537)) #@56 The location of the start of the last abbrev expanded. (defvar last-abbrev-location 0 (#$ . 16677)) #@198 Function or functions to be called before abbrev expansion is done. This is the first thing that `expand-abbrev' does, and so this may change the current abbrev table before abbrev lookup happens. (custom-declare-variable 'pre-abbrev-expand-hook 'nil '(#$ . 16784) :type 'hook :group 'abbrev-mode) (make-obsolete-variable 'pre-abbrev-expand-hook 'abbrev-expand-functions "23.1") #@63 Undefine all abbrevs in abbrev table TABLE, leaving it empty. (defalias 'clear-abbrev-table #[(table) "\306\307\310 \" G\311 \fW\203 \311I\210 T\211\202 *\n\204) \312\313\302C\"\210\314\310 \"\211 \315L\210\316 \317\n!\"\210)\320 \321\322 \321\"T#\210)\315\207" [abbrevs-changed table sym i #1=#:--cl-dotimes-temp-- newsym t intern-soft "" 0 signal cl-assertion-failed intern nil setplist symbol-plist abbrev-table-put :abbrev-table-modiff abbrev-table-get] 7 (#$ . 17169)]) #@1289 Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK. NAME must be a string, and should be lower-case. EXPANSION should usually be a string. To undefine an abbrev, define it with EXPANSION = nil. If HOOK is non-nil, it should be a function of no arguments; it is called after EXPANSION is inserted. If EXPANSION is not a string (and not nil), the abbrev is a special one, which does not expand in the usual way but only runs HOOK. PROPS is a property list. The following properties are special: - `:count': the value for the abbrev's usage-count, which is incremented each time the abbrev is used (the default is zero). - `:system': if non-nil, says that this is a "system" abbreviation which should not be saved in the user's abbreviation file. Unless `:system' is `force', a system abbreviation will not overwrite a non-system abbreviation of the same name. - `:case-fixed': non-nil means that abbreviations are looked up without case-folding, and the expansion is not capitalized/upcased. - `:enable-function': a function of no argument which returns non-nil if the abbrev should be used for a particular call of `expand-abbrev'. An obsolete but still supported calling form is: (define-abbrev TABLE NAME EXPANSION &optional HOOK COUNT SYSTEM). (defalias 'define-abbrev #[(table name expansion &optional hook &rest props) ":\203' @\203 @\247\203' \306@\211A@)\205$ \307\211A@)DBB\310\306\"\2044 \311\306\312#\310\307\"\313\n \" \211 \314>\204V \315\f!\203V \fJ\203V \316\f\307\"\203\240 \204y \315\f!\203v \317\f!\203v \fJ\232\203v \fK\232\204y \320\fL\210\fM\210\321\f \322=\203\223 \311\307\320#\202\224 \"\210\323 \324\325 \324\"T#\210\n*\207" [props x name table sym system-flag :count :system plist-get plist-put 0 intern (nil force) boundp abbrev-get fboundp t setplist force abbrev-table-put :abbrev-table-modiff abbrev-table-get expansion hook abbrevs-changed] 7 (#$ . 17661)]) #@119 Check if the characters in ABBREV have word syntax in either the current (if global is nil) or standard syntax table. (defalias 'abbrev--check-chars #[(abbrev global) "\306 p\307\216\310\n\204 \311 \202 \306 !\210\312\313 \"\205Y \314\315 \312\313 \f#\203G \315\224H \316 \"\203; \210\202@ B)\fT\202 \317\320\321\322 \237\"\n\203V \323\202W \324#*+\207" [#1=#:buffer #2=#:table global abbrev pos badchars syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table standard-syntax-table string-match "\\W" nil 0 memql error "Some abbrev characters (%s) are not word constituents %s" apply string "in the standard syntax" "in this mode" x] 5 (#$ . 19624)]) #@140 Define ABBREV as a global abbreviation for EXPANSION. The characters in ABBREV must all be word constituents in the standard syntax table. (defalias 'define-global-abbrev #[(abbrev expansion) "\303\304\"\210\305 \227\n#\207" [abbrev global-abbrev-table expansion abbrev--check-chars global define-abbrev] 4 (#$ . 20345) "sDefine global abbrev: \nsExpansion for %s: "]) #@138 Define ABBREV as a mode-specific abbreviation for EXPANSION. The characters in ABBREV must all be word-constituents in the current mode. (defalias 'define-mode-abbrev #[(abbrev expansion) "\204 \303\304!\210\305 \306\"\210\307 \227\n#\207" [local-abbrev-table abbrev expansion error "Major mode has no abbrev table" abbrev--check-chars nil define-abbrev] 4 (#$ . 20723) "sDefine mode abbrev: \nsExpansion for %s: "]) #@167 Return the list of abbrev tables currently active. TABLES if non-nil overrides the usual rules. It can hold either a single abbrev table or a list of abbrev tables. (defalias 'abbrev--active-tables #[(&optional tables) ":\203 \207\306!\203 C\207 <\203 \307 \nC\"\202 \nD \310 \211 \203Y @\211@9\203R \311\f@!\203R \f@J\203R \fA<\203M \307\fA\"\202Q \fAB A\211\204) *)\207" [tables local-abbrev-table global-abbrev-table abbrev-minor-mode-table-alist x #1=#:--cl-dolist-temp-- vectorp append nil boundp] 4 (#$ . 21150)]) #@384 Return the symbol representing abbrev named ABBREV. This symbol's name is ABBREV, but it is not the canonical symbol of that name; it is interned in an abbrev-table rather than the normal obarray. The value is nil if that abbrev is not defined. Optional second arg TABLE is abbrev table to look it up in. The default is to try buffer's mode-specific abbrev table, then global table. (defalias 'abbrev-symbol #[(abbrev &optional table) "\305!\306\n\203G J\204G \n\211A@\307\310\"?\311\307\312\"\n\"\313\f\"\206B \205B \313\f\227\"\211\205A \314 \310\"?\205A )*\202 J\205M *\207" [table sym tables case-fold abbrev abbrev--active-tables nil abbrev-table-get :case-fixed append :parents intern-soft abbrev-get] 5 (#$ . 21695)]) #@162 Return the string that ABBREV expands into in the current buffer. Optionally specify an abbrev table as second arg; then ABBREV is looked up in that table only. (defalias 'abbrev-expansion #[(abbrev &optional table) "\302 \"J\207" [abbrev table abbrev-symbol] 3 (#$ . 22446)]) #@74 Try and find an abbrev before point. Return it if found, nil otherwise. (defalias 'abbrev--before-point #[nil "p=\204 \306\307 `\306\211\211\211 \203Q \306 dW\2031 f\310=\2031 \211T|\210\311\312!\210`\211 V\205\324 \f{b\210\313 \" \fF\202\324 \203\323 \n@\204\323 \211A@ \314\315\" \316\314\317\"\"\203\201 \205\312 \320\314\321\"\206\213 \322\323 \"\205\312 \324\224\211\205\312 \324\225\211\205\312 \f{\211\205\312 \313 \"\211 \205\311 \325\315\"\211\203\303 \205\311 \fF)b\210*\202Q \n.\207" [abbrev-start-location-buffer abbrev-start-location res name end start nil abbrev--active-tables 45 skip-syntax-backward " " abbrev-symbol abbrev-table-get :enable-function append :parents looking-back :regexp "\\<\\(\\w+\\)\\W*" line-beginning-position 1 abbrev-get pos tables table enable-fun abbrev] 7 (#$ . 22730)]) #@323 Insert abbrev ABBREV at point. If non-nil, NAME is the name by which this abbrev was found. If non-nil, WORDSTART is the place where to insert the abbrev. If WORDEND is non-nil, the abbrev replaces the previous text between WORDSTART and WORDEND. Return ABBREV if the expansion should be considered as having taken place. (defalias 'abbrev-insert #[(abbrev &optional name wordstart wordend) "\204 \306 !\n\204 ` \204 \n\307 \310\311 \310\"T#\210 J;\203\212 \nb\210 Jc\210\312 \nZ!\210\313 \306 !\232\204\211 \314\315\"\203\211 \314\316\"\204q \204i \212\317v\210`\nb\210\320v\210`V)\203i \321\n`\"\210\202\211 \322\n`\"\210\202\211 ` \nb\210\323\324S\"\210\321``T\"\210b\210)) K\203\254 K\211 9\203\253 \204\253 \325N\203\253 \313*\f)\207" [name abbrev wordstart wordend value case-fold-search symbol-name abbrev-put :count abbrev-get delete-char nil string-match "[[:upper:]]" "[[:lower:]]" -1 1 upcase-initials-region upcase-region skip-syntax-forward "^w" no-self-insert abbrev-all-caps end hook expanded] 7 (#$ . 23622)]) #@211 Wrapper hook around `expand-abbrev'. The functions on this special hook are called with one argument: a function that performs the abbrev expansion. It should return the abbrev symbol if expansion took place. (defvar abbrev-expand-functions nil (#$ . 24686)) #@179 Expand the abbrev before point, if there is an abbrev there. Effective when explicitly called even when `abbrev-mode' is nil. Returns the abbrev symbol, if expansion took place. (defalias 'expand-abbrev #[nil "\302\303!\210\304\305!\211\306L\210\307\310\311\312\313D\314FEL\210J \315\301!\205% \316\301!\")\207" [#1=#:--cl---cl-var--31302-- abbrev-expand-functions run-hooks pre-abbrev-expand-hook make-symbol "----cl-var--31302--" nil lambda #2=(&rest --cl-rest--) apply #[(#3=#:G31306 #4=#:funs #5=#:global) "\306\307!\306\310!\211\nL\210 L\210 J:\203D J@\311=\203, \fJ\312J JA\"\313\"\202\241 J@\314\315\316\317\320D\320 D\320\fD\321\257E!\202\241 \322 \211 \211A@ \211A@ \211A@ \211A@ \203q \323\324\313\325 G\\D\"\210\205\240 \204\211 \326\327 !\204\211 \330 \210 ! \"\331 $)-*\207" [#6=#:--cl-global-- #7=#:--cl-funs-- #4# #5# #3# #8=#:--cl-rest-- make-symbol "--funs--" "--global--" t append nil lambda #2# apply #[(#9=#:G31303 #10=#:G31304 #11=#:G31305) "J JA\nJ\"\207" [#11# #10# #9#] 3] quote --cl-rest-- abbrev--before-point signal wrong-number-of-arguments 4 window-minibuffer-p selected-window undo-boundary abbrev-insert sym name wordstart wordend value noninteractive last-abbrev-text last-abbrev last-abbrev-location] 10] quote --cl-rest-- local-variable-p default-value] 8 (#$ . 24953) nil]) #@139 Undo the expansion of the last abbrev that expanded. This differs from ordinary undo in that other editing done since then is not undone. (defalias 'unexpand-abbrev #[nil "\212eW\206\n dV?\2050 b\210 ;\2050 \nJ\211;\204\" \304\305!\210 c\210`` G\\|\210\306\211))\207" [last-abbrev-location last-abbrev-text last-abbrev val error "Value of abbrev-symbol must be a string" nil] 4 (#$ . 26317) nil]) #@136 Write the abbrev in a `read'able form. Only writes the non-system abbrevs. Presumes that `standard-output' points to `current-buffer'. (defalias 'abbrev--write #[(sym) "J?\206\n \301\302\"?\2053 \303c\210\304\305!!\210\306c\210\304J!\210\306c\210\304K!\210\306c\210\304\301\307\"!\210\310c\207" [sym abbrev-get :system " (" prin1 symbol-name " " :count ")\n"] 4 (#$ . 26726)]) (defalias 'abbrev--describe #[(sym) "J\205D \301\302!!\210\303\304\"\204 \305\306\307\"\210\202\" \310c\210\305\311\307\"\210\301\303\312\"!\210\305\311\307\"\210\301J!\210K\203B \305\313\307\"\210\301K!\210\314 \207" [sym prin1 symbol-name abbrev-get :system indent-to 15 1 " (sys)" 20 :count 45 terpri] 4]) #@404 Insert before point a full description of abbrev table named NAME. NAME is a symbol whose value is an abbrev table. If optional 2nd arg READABLE is non-nil, a human-readable description is inserted. Otherwise the description is an expression, a call to `define-abbrev-table', which would define the abbrev table NAME exactly as it is currently defined. Abbrevs marked as "system abbrevs" are omitted. (defalias 'insert-abbrev-table-description #[(name &optional readable) "J\305\306\307\n\"\210\310 \311\"p\f\203* \312c\210\313!\210\314c\210\315\316 \"\210\317c\210\202< \320c\210\313!\210\321c\210\315\322 \"\210\323c\210+\305\207" [name symbols table standard-output readable nil mapatoms #[(sym) "J\205\n B\211\207" [sym symbols] 2] sort string-lessp "(" prin1 ")\n\n" mapc abbrev--describe "\n\n" "(define-abbrev-table '" " '(" abbrev--write " ))\n\n"] 3 (#$ . 27436)]) (put 'define-abbrev-table 'doc-string-elt 3) #@888 Define TABLENAME (a symbol) as an abbrev table name. Define abbrevs in it according to DEFINITIONS, which is a list of elements of the form (ABBREVNAME EXPANSION ...) that are passed to `define-abbrev'. PROPS is a property list to apply to the table. Properties with special meaning: - `:parents' contains a list of abbrev tables from which this table inherits abbreviations. - `:case-fixed' non-nil means that abbreviations are looked up without case-folding, and the expansion is not capitalized/upcased. - `:regexp' describes the form of abbrevs. It defaults to \=\<\(\w+\)\W* which means that an abbrev can only be a single word. The submatch 1 is treated as the potential name of an abbrev. - `:enable-function' can be set to a function of no argument which returns non-nil if and only if the abbrevs in this table should be used for this instance of `expand-abbrev'. (defalias 'define-abbrev-table #[(tablename definitions &optional docstring &rest props) "\306\307\310 ;\205 CBBB!\210\311!\205 J\211\204( \312 \nL\210 B\f:\203> \313\n\f\211A@\f\211A@#\210\202( \310 \211 \203] @\314\315\n#\210A\211\204H +\310\207" [tablename docstring table abbrev-table-name-list props definitions eval defvar nil boundp make-abbrev-table abbrev-table-put apply define-abbrev elt #1=#:--cl-dolist-temp--] 6 (#$ . 28378)]) #@193 Return a menu that shows all abbrevs in TABLE. Selecting an entry runs `abbrev-insert'. PROMPT is the prompt to use for the keymap. SORTFUN is passed to `sort' to change the default ordering. (defalias 'abbrev-table-menu #[(table &optional prompt sortfun) "\204 \304\305\306\307\n\"\210\310 !\311 \312\"\244)\207" [sortfun entries table prompt string-lessp nil mapatoms #[(abbrev) "J\205 \303!\304 !\305 \306\307\310\311\312DDFF\nB\211)\207" [abbrev name entries symbol-name intern menu-item lambda nil (interactive) abbrev-insert quote] 9] make-sparse-keymap sort #[(x y) "\303 8\303\n8\"\207" [sortfun x y 2] 4]] 4 (#$ . 29739)]) (provide 'abbrev)
Close
