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 : terminal.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:17 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/terminal.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 "`terminal.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require ehelp custom-declare-group terminal nil "Terminal emulator for Emacs." :group terminals] 6) #@335 All characters except for this are passed verbatim through the terminal-emulator. This character acts as a prefix for commands to the emulator program itself. Type this character twice to send it through the emulator. Type ? after typing it for a list of possible commands. This variable is local to each terminal-emulator buffer. (custom-declare-variable 'terminal-escape-char '30 '(#$ . 765) :type 'character :group 'terminal) #@227 If non-nil, the terminal-emulator will losingly `scroll' when output occurs past the bottom of the screen. If nil, output will win and `wrap' to the top of the screen. This variable is local to each terminal-emulator buffer. (custom-declare-variable 'terminal-scrolling 't '(#$ . 1204) :type 'boolean :group 'terminal) #@90 If non-nil, do more-processing. This variable is local to each terminal-emulator buffer. (custom-declare-variable 'terminal-more-processing 't '(#$ . 1530) :type 'boolean :group 'terminal) #@239 Maximum number of characters which will be processed by the terminal-emulator before a screen redisplay is forced. Set this to a large value for greater throughput, set it smaller for more frequent updates but overall slower performance. (custom-declare-variable 'terminal-redisplay-interval '5000 '(#$ . 1726) :type 'integer :group 'terminal) (byte-code "\306B\307\306!\204 \310\306\311\"\210\301B\307\301!\204 \310\301\312\"\210 \204. \313 \314\n\315\316#\210\n)\303B\307\303!\204= \310\303\312\"\210 \204` \313 \314\n\317\313 #\210\314\n\320\316#\210\314\n\321\322#\210\314\n\323 #\210\n)\304B\307\304!\204o \310\304\312\"\210\f\204\332 \313 \314\n\324\325#\210\326 \327H\330X\203\227 \314\n \331#\210 \327 \327HTI\210\202~ )\314\n\332\333#\210\314\n\334\335#\210\314\n\336\337#\210\314\n\340\341#\210\314\n\342\343#\210\314\n\344\345#\210\314\n\346\347#\210\314\n\350\351#\210\314\n\352\353#\210\314\n\354@!\353#\210\n)\355B\307\355!\204\351 \310\355\312\"\210-\204\361 \356-\357B\307\357!\204 \310\357\312\"\210/\2043\313 \314\n\360\361#\210\314\n\354@!\362#\210\314\n\363\364#\210\314\n\340\341#\210\314\n\342\365#\210\314\n\366\367#\210\n/)\370B\307\370!\204B\310\370\312\"\210\371B\307\371!\204Q\310\371\312\"\210\372B\307\372!\204`\310\372\312\"\210\373B\307\373!\204o\310\373\312\"\210\374B\307\374!\204~\310\374\312\"\210\375B\307\375!\204\215\310\375\312\"\210\376B\307\376!\204\234\310\376\312\"\210\377B\307\377!\204\253\310\377\312\"\210\201A B\307\201A !\204\300\310\201A \312\"\210\201B B\307\201B !\204\325\310\201B \312\"\210\201C B\307\201C !\204\352\310\201C \312\"\210\201D B\307\201D !\204\377\310\201D \312\"\210\312\207" [current-load-list terminal-meta-map map terminal-map terminal-escape-map s terminal-more-break-insertion default-boundp set-default "*** More break -- Press space to continue ***" nil make-sparse-keymap define-key [t] te-pass-through [menu-bar] [t] [switch-frame] handle-switch-frame "" [t] undefined "0" 0 57 digit-argument "b" switch-to-buffer "o" other-window "e" te-set-escape-char "\f" redraw-display "" te-flush-pending-output "m" te-toggle-more-processing "x" te-escape-extended-command "w" te-edit "?" te-escape-help char-to-string te-escape-command-alist (("Set Escape Character" . te-set-escape-char) ("Edit" . te-edit) ("Refresh" . redraw-display) ("Record Output" . te-set-output-log) ("Photo" . te-set-output-log) ("Tofu" . te-tofu) ("Stuff Input" . te-stuff-string) ("Flush Pending Output" . te-flush-pending-output) ("Enable More Processing" . te-enable-more-processing) ("Disable More Processing" . te-disable-more-processing) ("Scroll at end of page" . te-do-scrolling) ("Wrap at end of page" . te-do-wrapping) ("Switch To Buffer" . switch-to-buffer) ("Other Window" . other-window) ("Kill Buffer" . kill-buffer) ("Help" . te-escape-help) ("Set Redisplay Interval" . te-set-redisplay-interval)) terminal-more-break-map [t] te-more-break-unread te-more-break-help " " te-more-break-resume te-more-break-flush-pending-output " " te-more-break-advance-one-line te-process te-log-buffer te-height te-width te-more-count te-redisplay-count te-pending-output te-more-old-point help-char te-more-old-local-map te-more-old-filter te-more-old-mode-line-format te-pending-output-info] 4) #@51 Prefix used for terminal type names for Terminfo. (defconst te-terminal-name-prefix "emacs-em" (#$ . 5042)) #@69 Directory used for run-time terminal definition files for Terminfo. (defconst te-terminfo-directory (byte-code "\301\302\303\"!\207" [temporary-file-directory file-name-as-directory expand-file-name "emacs-terminfo"] 4) (#$ . 5156)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list te-terminal-name default-boundp set-default nil] 3) (defalias 'te-escape #[nil "\306\307 \310 \311\216\312 !\210\313 !\210\314\f\203# \315\316\317\320!\321\f!#\202) \315\322\317\320!\"!)\323\324!\210\n;\203I \n\325\326 \"\230\203I \327 \330 )\202U \331 \n\"\211\205U \332\n!+\207" [global local s terminal-escape-map current-prefix-arg terminal-escape-char nil current-local-map current-global-map ((byte-code "\302!\210\303 !\207" [global local use-global-map use-local-map] 2)) use-global-map use-local-map read-key-sequence format "Emacs Terminal escape[%s for help]> %d " substitute-command-keys "\\<terminal-escape-map>\\[te-escape-help]" prefix-numeric-value "Emacs Terminal escape[%s for help]> " message "" make-string 1 -259 te-pass-through lookup-key call-interactively last-command-event] 6 nil nil]) #@73 Provide help on commands available after terminal-escape-char is typed. (defalias 'te-escape-help #[nil "\302\303!\210\304!\305\306!)\207" [terminal-escape-char char message "Terminal emulator escape help..." single-key-description with-electric-help #[nil "\305\306\307\211\211\211%!\210\305\310\311!!\210\305\306\312\313\314 \315#\314#!\210\316\317\n!\320\"\211\203\\ \321 @A!\2060 \322 \323\324\f\"\203> \f\325\211\224O\305\326!\210\305 @@!\210\305\327!\210\305\f!\210\330\331!\210) A\211\204' )\332\207" [char terminal-escape-map te-escape-command-alist l doc princ format "Terminal-emulator escape, invoked by \"%s\"\nType \"%s\" twice to send a single \"%s\" through.\n\nOther chars following \"%s\" are interpreted as follows:\n" substitute-command-keys "\\{terminal-escape-map}\n" "\nSubcommands of \"%s\" (%s)\n" where-is-internal te-escape-extended-command t sort copy-sequence #[(a b) "@ @\231\207" [a b] 2] documentation "Not documented" string-match "\n" 0 " \"" "\":\n " write-char 10 nil] 8]] 2 (#$ . 6298) nil]) (defalias 'te-escape-extended-command #[nil "\303\304\305 \306\303$)\211\205 \307\310\215)\207" [completion-ignore-case te-escape-command-alist c t completing-read "terminal command: " nil foo (byte-code "\227 \n\205& \n@@\227\230\203 \303\304\305\n@A!\"\210\202 \nA\211\204 \306)\207" [c te-escape-command-alist l throw foo call-interactively nil] 5)] 6 nil nil]) (defalias 'te-escape-extended-command-unread #[nil "\301\302 !\303 \207" [unread-command-events listify-key-sequence this-command-keys te-escape-extended-command] 2 nil nil]) #@48 Change the terminal-emulator escape character. (defalias 'te-set-escape-char #[(c) "\303 \nU\203 \304\202 \305\306\n!\306 !#\210\n\211)\207" [terminal-escape-char o c message "\"%s\" is the escape char" "\"%s\" is now the escape; \"%s\" passes through" single-key-description] 5 (#$ . 7896) "cSet escape character to: "]) #@151 Read a string to send to through the terminal emulator as though that string had been typed on the keyboard. Very poor man's file transfer protocol. (defalias 'te-stuff-string #[(string) "\302 \"\207" [te-process string process-send-string] 3 (#$ . 8230) "sStuff string: "]) #@55 Record output from the terminal emulator in a buffer. (defalias 'te-set-output-log #[(name) "\203\n \302\232\203 \303\304\305!\207\306!\204' \212\307!q\210\310 \210\311p!\210\312 \210)\306!\304\313\314 !\"\207" [name te-log-buffer "" nil message "Output logging off." get-buffer get-buffer-create fundamental-mode buffer-disable-undo erase-buffer "Recording terminal emulator output into buffer \"%s\"" buffer-name] 4 (#$ . 8513) (list (if te-log-buffer nil (read-buffer "Record output in buffer: " (format "%s output-log" (buffer-name (current-buffer))) nil)))]) #@25 Discontinue output log. (defalias 'te-tofu #[nil "\300\301!\207" [te-set-output-log nil] 2 (#$ . 9091) nil]) (defalias 'te-toggle #[(sym arg) " \247\204\n \202! \302U\203 J?\202! \303W\203 \304\202! \305L\207" [sym arg 1 0 nil t] 3]) (defalias 'te-toggle-more-processing #[(arg) "\303\304\301\"\203\f \305\202 \306!\210 \205 \307\211\207" [arg terminal-more-processing te-more-count message te-toggle "More processing on" "More processing off" -1] 4 nil "p"]) (defalias 'te-toggle-scrolling #[(arg) "\301\302\303\"\203\f \304\202 \305!\207" [arg message te-toggle terminal-scrolling "Scroll at end of page" "Wrap at end of page"] 4 nil "p"]) #@30 Enable ** MORE ** processing (defalias 'te-enable-more-processing #[nil "\300\301!\207" [te-toggle-more-processing t] 2 (#$ . 9752) nil]) #@31 Disable ** MORE ** processing (defalias 'te-disable-more-processing #[nil "\300\301!\207" [te-toggle-more-processing nil] 2 (#$ . 9896) nil]) #@30 Scroll at end of page (yuck) (defalias 'te-do-scrolling #[nil "\300\301!\207" [te-toggle-scrolling t] 2 (#$ . 10044) nil]) #@38 Wrap to top of window at end of page (defalias 'te-do-wrapping #[nil "\300\301!\207" [te-toggle-scrolling nil] 2 (#$ . 10173) nil]) #@202 Set the maximum interval (in output characters) between screen updates. Set this number to large value for greater throughput, set it smaller for more frequent updates (but overall slower performance. (defalias 'te-set-redisplay-interval #[(arg) "\303]\211\304\211\207" [arg terminal-redisplay-interval te-redisplay-count 1 0] 3 (#$ . 10312) "NMax number of output chars between redisplay updates: "]) (put 'te-more-break-unread 'suppress-keymap t) (defalias 'te-more-break-unread #[nil " =\203\n \304\305!\207\306\307\310!\311 #\210\312\313 \210\314\315 )\207" [last-input-event terminal-escape-char te-more-count terminal-more-processing call-interactively te-escape message "Continuing from more break (\"%s\" typed, %d chars output pending...)" single-key-description te-pending-output-length 259259 te-more-break-unwind nil te-pass-through] 4 nil nil]) #@77 Proceed past the **MORE** break, allowing the next page of output to appear (defalias 'te-more-break-resume #[nil "\300\301!\210\302 \207" [message "Continuing from more break" te-more-break-unwind] 2 (#$ . 11184) nil]) #@74 Provide help on commands available in a terminal-emulator **MORE** break (defalias 'te-more-break-help #[nil "\300\301!\210\302\303!\210\304\305!\207" [message "Terminal-emulator more break help..." sit-for 0 with-electric-help #[nil "\301\302!\210\301\303\304\305\306\307#\310\306!#!\210\301\311\312!!\210\301\313!\210\314\207" [terminal-more-break-map princ "Terminal-emulator more break.\n\n" format "Type \"%s\" (te-more-break-resume)\n%s\n" where-is-internal te-more-break-resume t documentation substitute-command-keys "\\{terminal-more-break-map}\n" "Any other key is passed through to the program\nrunning under the terminal emulator and disables more processing until\nall pending output has been dealt with." nil] 7]] 2 (#$ . 11410) nil]) #@75 Allow one more line of text to be output before doing another more break. (defalias 'te-more-break-advance-one-line #[nil "\301\302 \207" [te-more-count 1 te-more-break-unwind] 1 (#$ . 12166) nil]) #@129 Discard any output which has been received by the terminal emulator but not yet processed and then proceed from the more break. (defalias 'te-more-break-flush-pending-output #[nil "\300 \210\301 \207" [te-more-break-unwind te-flush-pending-output] 1 (#$ . 12372) nil]) #@89 Discard any as-yet-unprocessed output which has been received by the terminal emulator. (defalias 'te-flush-pending-output #[nil "A\204 \302\303!\207\304 \302\305 \"\210\306\307\310 \"D\311 \210\312\313!\210\314\306!)\207" [te-pending-output length message "(There is no output pending)" te-pending-output-length "Flushing %d chars of pending output" 0 format "\n*** %d chars of pending output flushed ***\n" te-update-pending-output-display te-process-output nil sit-for] 4 (#$ . 12647) nil]) #@198 Character is passed to the program running under the terminal emulator. One characters is treated specially: the terminal escape character (normally C-^) lets you type a terminal emulator command. (defalias 'te-pass-through #[nil " =\203\n \305\306!\2079\203 \307N\203 \307N\250\203. \310\311\312\"!\204. \313\311\314\"\\\250\203L \n\203@ A\204@ \315\316!\210\317\f\320\321\"\"\210\322\323!\207\324\325\326!\"\207" [last-input-event terminal-escape-char terminal-more-processing te-pending-output te-process call-interactively te-escape ascii-character zerop logand 134217728 128 127 te-set-more-count nil process-send-string make-string 1 te-process-output t message "Function key `%s' ignored" single-key-description] 5 (#$ . 13152) nil]) (defalias 'te-set-window-start #[nil "\303p!\211\205 \304!?\206= `eZ\nT\245Y\203# \305e\"\202= d`Z\nT\245Y\203< \305\306d \nT_\307#\"\202= \310*\207" [w h te-width get-buffer-window window-height set-window-start - -1 nil] 7]) (defalias 'te-pending-output-length #[nil "@A \203 \n @G\\ A\211\204\n \n*\207" [te-pending-output tem length] 3]) (byte-code "\301B\302\301!\204 \303\301\304\"\210 \204 \305 \306 \307\310#\210\311\312\313\314#\207" [current-load-list terminal-edit-map default-boundp set-default nil make-sparse-keymap define-key "" terminal-cease-edit put terminal-edit-mode mode-class special] 4) #@227 Major mode for editing the contents of a terminal-emulator buffer. The editing commands are the same as in Fundamental mode, together with a command \<terminal-edit-map>to return to terminal emulation: \[terminal-cease-edit]. (defalias 'terminal-edit-mode #[nil "\305!\210\306\307\310\303!\311\312\313!\207" [terminal-edit-map major-mode mode-name mode-line-modified mode-line-process use-local-map terminal-edit-mode "Terminal Edit" default-value nil run-mode-hooks terminal-edit-mode-hook] 2 (#$ . 14548)]) #@74 Start editing the terminal emulator buffer with ordinary Emacs commands. (defalias 'te-edit #[nil "\300 \210\301 \210\302\303!\304=\203 \305\306!\207\305\307\310\311!\"\207" [terminal-edit-mode force-mode-line-update key-binding "" terminal-cease-edit message "Editing: Type C-c C-c to return to Terminal" "%s" substitute-command-keys "Editing: Type \\[terminal-cease-edit] to return to Terminal"] 4 (#$ . 15068) nil]) #@57 Finish editing message; switch back to Terminal proper. (defalias 'terminal-cease-edit #[nil "\306~\210\307 \nS eb\210 \310Y\203\214 ` \311\312\f\\\313#\2036 \314u\210\315\316\f`ZZ\"\210\317u\210\202l m\203G \315\316\f`ZZ\"\210\202l g\320U\203S \317u\210\202l `\311\312\306\321#\203g `S|\210\202l d|\210) \310U\203~ m\204\205 `d|\210\202\205 m\203\205 \320c\210 S\211\202 b\210 \306\211\223\210`\310\314,\322\323!\324 !\210\325 \326 \327\211 \207" [buffer-read-only te-width te-height h width opoint nil point-marker 0 search-forward "\n" move -1 insert-char 32 1 10 t default-value mode-line-modified use-local-map terminal-mode "terminal" (":%s") p te-saved-point te-redisplay-count te-more-count terminal-map major-mode mode-name mode-line-process] 6 (#$ . 15496) nil]) (defalias 'te-more-break #[nil "\306\307!\210\310\300!\210`\310\301!\210\311 \312\n!\210\310\304!\210\313 !\310\314!\210 \f\315 \316E\317 \320\"\210\321 \210\322\323 !p=\203? \324\325!\210m\204X \203X \212\326u\210`` \\|\210 c\210)\327\330!\210\331\332!\210\333\334\307\"\207" [te-more-old-point te-more-old-local-map terminal-more-break-map te-process te-more-old-filter mode-line-format te-set-more-count t make-local-variable current-local-map use-local-map process-filter te-more-old-mode-line-format "-- **MORE** " "%-" set-process-filter #[(process string) "\212\303!q\210 \nC\244)\304 \207" [process te-pending-output string process-buffer te-update-pending-output-display] 2] te-update-pending-output-display window-buffer selected-window message "More break " 1 run-hooks terminal-more-break-hook sit-for 0 throw te-process-output mode-line-buffer-identification terminal-more-break-insertion te-width] 3]) (defalias 'te-more-break-unwind #[nil "\306!\210\307 \n\"\210 b\210\f\310 \210\311 m\2041 \2031 \312u\210``G\\|\210\313\314\"\210 b\210\311\315 \316 \210*\317\320!\207" [te-more-old-local-map te-process te-more-old-filter te-more-old-point te-more-old-mode-line-format mode-line-format use-local-map set-process-filter force-mode-line-update nil 1 insert-char 32 259259 te-newline te-process-output t buffer-read-only terminal-more-break-insertion te-width te-more-count] 3]) (defalias 'te-set-more-count #[(newline) "`eZT\245\n\203 T U\203 \211\202N SU\203' \211\202N \305\245W\2047 Z\306V\203? Z\211\202N \211\306V\203J \305\202K \307Z\211)\207" [te-width line newline te-height te-more-count 2 10 1] 3]) #@120 Move down a line, optionally do more processing, perhaps wrap/scroll, move to start of new line, clear to end of line. (defalias 'te-newline #[nil "\304\210\203 S\211\305W\203 \306\307!\210\202 \305=\203 \310 \210m\203> ee\n\\|\210eb\210 \203G \311\312!\210db\210\313c\210\202G \312u\210``\n\\|\210\314\315\n\"\210\316 \210\317 \207" [terminal-more-processing te-more-count te-width terminal-scrolling nil 0 te-set-more-count t te-more-break delete-char 1 10 insert-char 32 beginning-of-line te-set-window-start] 3 (#$ . 17979)]) (defalias 'te-move-to-position #[nil "\305 \306Z\305 \306Z\nV\204 V\204 \307e \nT_#b\210*\310\211\207" [x y te-width te-height te-more-count te-get-char 32 + -1] 5]) (defalias 'te-clear-rest-of-line #[nil "\212`\301\210`Z``\\|\210\302\303[\"*\207" [n nil insert-char 32] 3]) (defalias 'te-clear-rest-of-screen #[nil "\212\301 \210\302\210m?\205 \303u\210\302\210`Z`|\210\304\305\"\210\202 )\207" [te-width te-clear-rest-of-line nil 1 insert-char 32] 3]) (defalias 'te-clear-screen #[nil "\304 \210\305 W\203 T\306\307\n\"\210\310c\210\202 )dSd|\210eb\210\311\211\207" [i te-height te-width te-more-count erase-buffer 0 insert-char 32 10 -1] 3]) (defalias 'te-insert-lines #[nil "n\203F \212\306`eZ T\245\307#\310 \311Z\n^\312 d T_Zd|\210`d=\203+ \313c\210\f W\203E \fT\314\311 \"\210\f\n=\204+ \313c\210\202+ ,\307\211\207" [te-height te-width line n i te-more-count - -1 te-get-char 32 0 10 insert-char] 4]) (defalias 'te-delete-lines #[nil "n\203B \306`eZ T\245\307#\310 \311Z\n^\312 `` T_\\d^|\210\212db\210\f W\203A \fT\313\311 \"\210\f\n=\204' \314c\210\202' ,\307\211\207" [te-height te-width line n i te-more-count - -1 te-get-char 32 0 insert-char 10] 4]) (defalias 'te-beginning-of-line #[nil "\300 \207" [beginning-of-line] 1]) (defalias 'te-backward-char #[nil "n?\205 \300u\207" [-1] 1]) (defalias 'te-forward-char #[nil "l?\205 \300u\207" [1] 1]) (defalias 'te-delete #[nil "n?\205 `S`|\210\300c\210\301u\207" [32 -1] 2]) (defalias 'te-beep #[nil "\300 \207" [beep] 1]) (defalias 'te-insert-spaces #[nil "`\302 \303Z\304\210`Z^\211\305X\204! \306 [!\210b\210\307\303 \"\210b*\207" [p n te-get-char 32 nil 0 delete-char insert-char] 4]) (defalias 'te-delete-char #[nil "`\302 \303Z\304\210`Z^\211\305X\204 \306\303 \"\210b\210\307 !\210b*\207" [p n te-get-char 32 nil 0 insert-char delete-char] 4]) (defalias 'te-losing-unix #[nil "\300\207" [nil] 1]) (defalias 'te-output-tab #[nil "`\211\303 \210`Z\304\305 \306\"Z\307\210`Z^\n\\b+\207" [p x l beginning-of-line 8 logand 7 nil] 5]) #@51 Move down a line vertically, or scroll at bottom. (defalias 'te-down-vertically-or-scroll #[nil "i\302\210m\203' ee \\|\210eb\210\303\304!\210db\210\305c\210\306\307 \"\210\310 \210\202* \304y\210\311!\210)\312 \207" [column te-width nil delete-char 1 10 insert-char 32 beginning-of-line move-to-column te-set-window-start] 3 (#$ . 20580)]) (defalias 'te-filter #[(process string) "p\306\216\307 !q\210\nb\210\310 !\203, \311 !\204 \312\202, q\210db\210\313\f!\210\307 !q\210 \fC\244\314 \210\315p\316\317 !=!\210\307 !q\210`\211*\207" [obuf process te-saved-point te-log-buffer string te-pending-output ((set-buffer obuf)) process-buffer bufferp buffer-name nil insert-before-markers te-update-pending-output-display te-process-output window-buffer selected-window] 4]) (defalias 'te-process-output #[(preemptible) "\301\302\303\215\210\304\305!\207" [preemptible t te-process-output (byte-code "\306\211\211\211\211\211 A\203;\f@A@\211\nH\nT\211\fG=\203@ \307AAB\307A@\310 \210\202E \n\240\210 \311V\203 \312W\203 l\203v \n\307=\203j \307\313\314 \"ABB\202p \nS\240\210\315 \210\202)\f\204\210 \316\314!\210 c\210\317\314!\210\202) \f=\203\222 \206\236 \320\321\f\n#\211\206\236 \fG \316\314!\210 c\210`\306\210 \n` Z\\^ b\210 =\203\302 \306`` \nZ\\|\210\n\307=\203\335 \fG=\203\335 \f\202\342 \f\n Oc\210 \fG=\203\367 \307AAB\202\375 \240\210\317 \nZT!\210)\202) \322=\203\323 \324\236A\206#\325\202# \326\236A\206#\325 \210\317\314!\210 \203\f \327 \203\f \330\331\332\"\210\202\f .\306\207" [matchpos char start ostring string buffer-read-only nil 0 te-update-pending-output-display 31 255 make-string 1 te-newline delete-char te-redisplay-if-necessary string-match "[ - -\377]" 16 te-get-char ((61 . te-move-to-position) (99 . te-clear-rest-of-line) (67 . te-clear-rest-of-screen) (15 . te-insert-lines) (11 . te-delete-lines) (1 . te-beginning-of-line) (2 . te-backward-char) (100 . te-delete-char) (95 . te-insert-spaces) (6 . te-forward-char) (7 . te-beep) (10 . te-down-vertically-or-scroll) (12 . te-clear-screen)) te-losing-unix ((10 . te-newline) (127 . te-delete) (13 . te-beginning-of-line) (7 . te-beep) (8 . te-backward-char) (9 . te-output-tab)) input-pending-p throw te-process-output t te-pending-output end preemptible] 7) walk-windows #[(w) "\301 =?\205 \302!p=\205 \303`\"\207" [w selected-window window-buffer set-window-point] 3]] 2]) (defalias 'te-get-char #[nil "A\203( @A@ \nH\nT\211 G=\203\" \303AAB\202& \n\240\210*\207\304\305\215\207" [te-pending-output string start 0 char (byte-code "\302!\303\216\304\305\"\210\306!*\207" [te-process filter process-filter ((set-process-filter te-process filter)) set-process-filter #[(p s) "G\302=\204 \302D\303\304\305H\"\207" [s te-pending-output 1 throw char 0] 4] accept-process-output] 3)] 3]) (defalias 'te-redisplay-if-necessary #[(length) " Z\211\303X\205\" p\304\305 !=\205\" \306 \205\" \307 \210\310\303!\210\n\211\207" [te-redisplay-count length terminal-redisplay-interval 0 window-buffer selected-window waiting-for-user-input-p te-update-pending-output-display sit-for] 3]) (defalias 'te-update-pending-output-display #[nil "A\204\n \303\202\" \304 \211\305W\203 \303\202! \306\307\n\310\\\311\245\")\312 \207" [te-pending-output te-pending-output-info length "" te-pending-output-length 1500 format "(%dK chars output pending) " 512 1024 force-mode-line-update] 5]) (defalias 'te-sentinel #[(process message) "\304!\305=\206B \306\307!!?\206B p\212\307!q\210\310\311 \210db\210\312 \210\313 \210\314 \315\261\210) \307!=\205A \316 \205A db\210\317\320!)\207" [process b buffer-read-only message process-status run buffer-name process-buffer nil fundamental-mode delete-blank-lines delete-horizontal-space "\n*******\n" "*******\n" waiting-for-user-input-p recenter -1] 3]) #@60 Shell command to set terminal modes for terminal emulator. (defvar te-stty-string "stty -nl erase '^?' kill '^u' intr '^c' echo pass8" (#$ . 24465)) #@74 If non-nil, is file name to use for explicitly requested inferior shell. (custom-declare-variable 'explicit-shell-file-name 'nil '(#$ . 24620) :type '(choice (const :tag "None" nil) file) :group 'terminal) #@1395 Under a display-terminal emulator in BUFFER, run PROGRAM on arguments ARGS. ARGS is a list of argument-strings. Remaining arguments are WIDTH and HEIGHT. BUFFER's contents are made an image of the display generated by that program, and any input typed when BUFFER is the current Emacs buffer is sent to that program as keyboard input. Interactively, BUFFER defaults to "*terminal*" and PROGRAM and ARGS are parsed from an input-string using your usual shell. WIDTH and HEIGHT are determined from the size of the current window -- WIDTH will be one less than the window's width, HEIGHT will be its height. To switch buffers and leave the emulator, or to give commands to the emulator itself (as opposed to the program running under it), type Control-^. The following character is an emulator command. Type Control-^ twice to send it to the subprogram. This escape character may be changed using the variable `terminal-escape-char'. `Meta' characters may not currently be sent through the terminal emulator. Here is a list of some of the variables which control the behavior of the emulator -- see their documentation for more information: terminal-escape-char, terminal-scrolling, terminal-more-processing, terminal-redisplay-interval. This function calls the value of terminal-mode-hook if that exists and is non-nil after the terminal buffer has been set up and the subprocess started. (defalias 'terminal-emulator #[(buffer program args &optional width height) "\306!\210 \204 \307\310 !S\n\204 \311\310 !S\312 \210 \n \313 !\313\f!Q&\314\315 \f#\316D'\317 (\320 \210)\317 )\321p!\211)\203d \322\314\323\324)!\"!\203Y \325)!\210\202< \326\327\324)!\"\210\202< )\330\331\332\217\210\333*\334+!\210\335\336!\210\337\340\341,!\342\341\343\344-\333#\345##\207" [buffer width height te-width te-height te-terminal-name-prefix switch-to-buffer window-width selected-window window-height terminal-mode number-to-string format "Emacs terminal %dx%d: %%b " te-pending-output-info nil te-clear-screen get-buffer-process y-or-n-p "Kill process %s? " process-name delete-process error "Process %s not killed" err (byte-code "\306P\307\310 P\311\312 P BBB\313\314p\315\316\317\320\n\321\322 \fB\323##%\324 \325\"\210\326 \327\"\210)\310\207" [te-terminal-name process-environment te-stty-string program args te-process "TERM=" "TERMCAP=" te-create-termcap "TERMINFO=" te-create-terminfo start-process "terminal-emulator" "/bin/sh" "-c" format "%s; exec %s" mapconcat te-quote-arg-for-sh " " set-process-filter te-filter set-process-sentinel te-sentinel] 12) ((error (byte-code "\301 \210\302@A\"\207" [err fundamental-mode signal] 3))) t use-local-map run-hooks terminal-mode-hook message "Entering Emacs terminal-emulator... Type %s %s for help" single-key-description mapconcat where-is-internal te-escape-help " " te-terminal-name mode-line-buffer-identification buffer-read-only process inhibit-quit terminal-map terminal-escape-char terminal-escape-map] 9 (#$ . 24834) (byte-code "\212\304\305!q\210\306\307\300!\203 \203 \310!\311=\204 p\202 \312\305!!)\313 \2064 \314\315!\2064 \314\316!\2064 \317\320\321\322\n\"!\211\323\232\203H \n\324D\202K \325 !*!B\207" [te-process explicit-shell-file-name default-s s get-buffer-create "*terminal*" buffer-name boundp process-status run generate-new-buffer append getenv "ESHELL" "SHELL" "/bin/sh" read-string format "Run program in emulator (default %s): " "" nil te-parse-program-and-args] 7)]) (defalias 'te-parse-program-and-args #[(s) "\304\305\"\203A \306\307 \2037 \304\310 #\203+ \311\225O\307\225\211G=\2031 \306\2021 \306O\306\nB\202 \n\237\211@\nA*D\207\304\312\"\203V \313!\204V \314\315PDD\207\306D\207" [s p l shell-file-name string-match "\\`\\([-a-zA-Z0-9+=_.@/:]+[ ]*\\)+\\'" nil 0 "\\([-a-zA-Z0-9+=_.@/:]+\\)\\([ ]+\\)*" 1 "[ ]" file-exists-p "-c" "exec "] 5]) (put 'terminal-mode 'mode-class 'special) #@134 Set up variables for use with the terminal-emulator. One should not call this -- it is an internal function of the terminal-emulator (defalias 'terminal-mode #[nil "\306 \210\307p!\210\310\311\312\313\211\314\305!\210\315\305!\314\316!\210\315\316!\314\317!\210\315\317!\314\320!\210\315\320!\314\321!\210\314\322!\210\314\323!\210\314\324!\210\325C\314\326!\210e\314\327!\210\330\314\331!\210\314\332!\210\333\314\334!\210\335 \314\336!\210\211 \207" [major-mode mode-name mode-line-process buffer-read-only truncate-lines terminal-escape-char kill-all-local-variables buffer-disable-undo terminal-mode "terminal" (":%s") t make-local-variable default-value terminal-scrolling terminal-more-processing terminal-redisplay-interval te-width te-height te-process te-pending-output 0 te-saved-point te-pending-output-info "" inhibit-quit te-log-buffer nil te-more-count -1 te-redisplay-count] 3 (#$ . 28761)]) (defalias 'te-quote-arg-for-sh #[(string) "\304\305\"\203 \207\304\306\"\204 \307!\207\310\311\211\nGY\204I \304\312\n#\211\2045 \n\313OP\202I \n O\314 \211TOR T\211\202 \315 \315Q+\207" [string end start harder string-match "\\`[-a-zA-Z0-9+=_.@/:]+\\'" "[$]" prin1-to-string "" 0 "[\"\\$]" nil "\\" "\""] 7]) #@131 Create and compile a terminfo entry for the virtual terminal. This is kept in the directory specified by `te-terminfo-directory'. (defalias 'te-create-terminfo #[nil "\203w \306 \n\307\310O\311 R!\204w \312\313 \f $\314\315\316\317\320\321\260 \322Q % &\323 \324\"\210\325\326\327 \"!\211 '\330\331\332!! ( )\333\216r(q\210&c\210)r(q\210\334\335\211)\335\307%\210,\336'%\"\210)\337\340 !P*B *\341\342\343\335\343%$\344\"\210+\340 !\207" [system-uses-terminfo te-terminfo-directory te-terminal-name-prefix te-terminal-name te-width te-height file-exists-p 0 1 "/" format "%s,\n mir, xon,cols#%d, lines#%d," "bel=^P^G, clear=^P\\f, cr=^P^A, cub1=^P^B, cud1=^P\\n," "cuf1=^P^F, cup=^P=%p1%'\\s'%+%c%p2%'\\s'%+%c," "dch=^Pd%p1%'\\s'%+%c, dch1=^Pd!, dl=^P^K%p1%'\\s'%+%c," "dl1=^P^K!, ed=^PC, el=^Pc, home=^P=\\s\\s," "ich=^P_%p1%'\\s'%+%c, ich1=^P_!, il=^P^O%p1%'\\s'%+%c," "il1=^P^O!, ind=^P\\n, nel=\\n,\n" ".tif" make-directory t make-temp-file expand-file-name "tif" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) write-region nil rename-file "TERMINFO=" directory-file-name set-process-sentinel start-process "tic" te-tic-sentinel file-name terminfo temp-file #1# #2=#:temp-file process-environment] 8 (#$ . 30030)]) #@49 Create a termcap entry for the virtual terminal (defalias 'te-create-termcap #[nil "\304\305 \n \203 \306\202 \307%\310\311\312\313\314\315\260\207" [te-terminal-name te-width te-height terminal-scrolling format "%s:co#%d:li#%d:%s" "" "ns:" "cm=^p=%+ %+ :cr=^p^a:le=^p^b:nd=^p^f:" "nw=^j:ce=^pc:cd=^pC:cl=^p^l:bl=^p^g:" "IC=^p_%+ :DC=^pd%+ :AL=^p^o%+ :DL=^p^k%+ :" "LP:NF:" "ic=^p_!:dc=^pd!:al=^p^o!:dl=^p^k!:ho=^p= :" "im=:ei=:dm=:ed=:mi:do=^p^j:nl=^p^j:bs:"] 7 (#$ . 31369)]) #@43 If tic has finished, delete the .tif file (defalias 'te-tic-sentinel #[(proc state-change) "\303\232\205\f \304 \n\305Q!\207" [state-change te-terminfo-directory te-terminal-name "finished\n" delete-file ".tif"] 4 (#$ . 31858)]) (provide 'terminal)
Close
