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 : startup.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:21 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/startup.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 "`startup.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302\207" [top-level (normal-top-level) nil] 1) #@47 Non-nil once command line has been processed. (defvar command-line-processed nil (#$ . 668)) (custom-declare-group 'initialization nil "Emacs start-up procedure." :group 'environment) #@238 Buffer to show after starting Emacs. If the value is nil and `inhibit-startup-screen' is nil, show the startup screen. If the value is string, visit the specified file or directory using `find-file'. If t, open the `*scratch*' buffer. (custom-declare-variable 'initial-buffer-choice 'nil '(#$ . 859) :type '(choice (const :tag "Startup screen" nil) (directory :tag "Directory" :value "~/") (file :tag "File" :value "~/.emacs") (const :tag "Lisp scratch buffer" t)) :version "23.1" :group 'initialization) #@170 Non-nil inhibits the startup screen. This is for use in your personal init file (but NOT site-start.el), once you are familiar with the contents of the startup screen. (custom-declare-variable 'inhibit-startup-screen 'nil '(#$ . 1373) :type 'boolean :group 'initialization) (byte-code "\301\302\303\"\210\301\304\303\"\210\305B\306\305!\204 \307\305\310\"\210\310\207" [current-load-list defvaralias inhibit-splash-screen inhibit-startup-screen inhibit-startup-message startup-screen-inhibit-startup-screen default-boundp set-default nil] 3) #@517 Non-nil inhibits the initial startup echo area message. Setting this variable takes effect only if you do it with the customization buffer or if your `.emacs' file contains a line of this form: (setq inhibit-startup-echo-area-message "YOUR-USER-NAME") If your `.emacs' file is byte-compiled, use the following form instead: (eval '(setq inhibit-startup-echo-area-message "YOUR-USER-NAME")) Thus, someone else using a copy of your `.emacs' file will see the startup message unless he personally acts to inhibit it. (custom-declare-variable 'inhibit-startup-echo-area-message 'nil '(#$ . 1926) :type '(choice (const :tag "Don't inhibit") (string :tag "Enter your user name, to inhibit")) :group 'initialization) #@49 Non-nil inhibits loading the `default' library. (custom-declare-variable 'inhibit-default-init 'nil '(#$ . 2644) :type 'boolean :group 'initialization) #@76 Non-nil inhibits display of buffer list when more than 2 files are loaded. (custom-declare-variable 'inhibit-startup-buffer-menu 'nil '(#$ . 2802) :type 'boolean :group 'initialization) #@232 Alist of command-line switches. Elements look like (SWITCH-STRING . HANDLER-FUNCTION). HANDLER-FUNCTION receives the switch string as its sole argument; the remaining command-line args are in the variable `command-line-args-left'. (defvar command-switch-alist nil (#$ . 2995)) #@46 List of command-line args not yet processed. (defvar command-line-args-left nil (#$ . 3278)) (defvaralias 'argv 'command-line-args-left "List of command-line args not yet processed.\nThis is a convenience alias, so that one can write (pop argv)\ninside of --eval command line arguments in order to access\nfollowing arguments.") #@398 List of functions to process unrecognized command-line arguments. Each function should access the dynamically bound variables `argi' (the current argument) and `command-line-args-left' (the remaining arguments). The function should return non-nil only if it recognizes and processes `argi'. If it does so, it may consume successive arguments by altering `command-line-args-left' to remove them. (defvar command-line-functions nil (#$ . 3614)) #@122 Default directory to use for command line arguments. This is normally copied from `default-directory' when Emacs starts. (defvar command-line-default-directory nil (#$ . 4066)) #@446 Alist of X Windows options. Each element has the form (NAME NUMARGS HANDLER FRAME-PARAM VALUE) where NAME is the option name string, NUMARGS is the number of arguments that the option accepts, HANDLER is a function to call to handle the option. FRAME-PARAM (optional) is the frame parameter this option specifies, and VALUE is the value which is given to that frame parameter (most options use the argument for this, so VALUE is not present). (defconst command-line-x-option-alist '(("-bw" 1 x-handle-numeric-switch border-width) ("-d" 1 x-handle-display) ("-display" 1 x-handle-display) ("-name" 1 x-handle-name-switch) ("-title" 1 x-handle-switch title) ("-T" 1 x-handle-switch title) ("-r" 0 x-handle-switch reverse t) ("-rv" 0 x-handle-switch reverse t) ("-reverse" 0 x-handle-switch reverse t) ("-reverse-video" 0 x-handle-switch reverse t) ("-fn" 1 x-handle-switch font) ("-font" 1 x-handle-switch font) ("-fs" 0 x-handle-initial-switch fullscreen fullboth) ("-fw" 0 x-handle-initial-switch fullscreen fullwidth) ("-fh" 0 x-handle-initial-switch fullscreen fullheight) ("-ib" 1 x-handle-numeric-switch internal-border-width) ("-g" 1 x-handle-geometry) ("-lsp" 1 x-handle-numeric-switch line-spacing) ("-geometry" 1 x-handle-geometry) ("-fg" 1 x-handle-switch foreground-color) ("-foreground" 1 x-handle-switch foreground-color) ("-bg" 1 x-handle-switch background-color) ("-background" 1 x-handle-switch background-color) ("-ms" 1 x-handle-switch mouse-color) ("-nbi" 0 x-handle-switch icon-type nil) ("-iconic" 0 x-handle-iconic) ("-xrm" 1 x-handle-xrm-switch) ("-cr" 1 x-handle-switch cursor-color) ("-vb" 0 x-handle-switch vertical-scroll-bars t) ("-hb" 0 x-handle-switch horizontal-scroll-bars t) ("-bd" 1 x-handle-switch) ("--border-width" 1 x-handle-numeric-switch border-width) ("--display" 1 x-handle-display) ("--name" 1 x-handle-name-switch) ("--title" 1 x-handle-switch title) ("--reverse-video" 0 x-handle-switch reverse t) ("--font" 1 x-handle-switch font) ("--fullscreen" 0 x-handle-initial-switch fullscreen fullboth) ("--fullwidth" 0 x-handle-initial-switch fullscreen fullwidth) ("--fullheight" 0 x-handle-initial-switch fullscreen fullheight) ("--internal-border" 1 x-handle-numeric-switch internal-border-width) ("--geometry" 1 x-handle-geometry) ("--foreground-color" 1 x-handle-switch foreground-color) ("--background-color" 1 x-handle-switch background-color) ("--mouse-color" 1 x-handle-switch mouse-color) ("--no-bitmap-icon" 0 x-handle-no-bitmap-icon) ("--iconic" 0 x-handle-iconic) ("--xrm" 1 x-handle-xrm-switch) ("--cursor-color" 1 x-handle-switch cursor-color) ("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t) ("--line-spacing" 1 x-handle-numeric-switch line-spacing) ("--border-color" 1 x-handle-switch border-color) ("--smid" 1 x-handle-smid) ("--parent-id" 1 x-handle-parent-id)) (#$ . 4250)) #@439 Alist of NS options. Each element has the form (NAME NUMARGS HANDLER FRAME-PARAM VALUE) where NAME is the option name string, NUMARGS is the number of arguments that the option accepts, HANDLER is a function to call to handle the option. FRAME-PARAM (optional) is the frame parameter this option specifies, and VALUE is the value which is given to that frame parameter (most options use the argument for this, so VALUE is not present). (defconst command-line-ns-option-alist '(("-NSAutoLaunch" 1 ns-ignore-1-arg) ("-NXAutoLaunch" 1 ns-ignore-1-arg) ("-macosx" 0 ignore) ("-NSHost" 1 ns-ignore-1-arg) ("-_NSMachLaunch" 1 ns-ignore-1-arg) ("-MachLaunch" 1 ns-ignore-1-arg) ("-NXOpen" 1 ns-ignore-1-arg) ("-NSOpen" 1 ns-handle-nxopen) ("-NXOpenTemp" 1 ns-ignore-1-arg) ("-NSOpenTemp" 1 ns-handle-nxopentemp) ("-GSFilePath" 1 ns-handle-nxopen) ("-name" 1 ns-handle-name-switch) ("-title" 1 ns-handle-switch title) ("-T" 1 ns-handle-switch title) ("-r" 0 ns-handle-switch reverse t) ("-rv" 0 ns-handle-switch reverse t) ("-reverse" 0 ns-handle-switch reverse t) ("-fn" 1 ns-handle-switch font) ("-font" 1 ns-handle-switch font) ("-ib" 1 ns-handle-numeric-switch internal-border-width) ("-fg" 1 ns-handle-switch foreground-color) ("-foreground" 1 ns-handle-switch foreground-color) ("-bg" 1 ns-handle-switch background-color) ("-background" 1 ns-handle-switch background-color) ("-itype" 0 ns-handle-switch icon-type t) ("-i" 0 ns-handle-switch icon-type t) ("-iconic" 0 ns-handle-iconic icon-type t) ("-cr" 1 ns-handle-switch cursor-color) ("-vb" 0 ns-handle-switch vertical-scroll-bars t) ("-hb" 0 ns-handle-switch horizontal-scroll-bars t) ("-bd" 1 ns-handle-switch) ("--name" 1 ns-handle-name-switch) ("--title" 1 ns-handle-switch title) ("--reverse-video" 0 ns-handle-switch reverse t) ("--font" 1 ns-handle-switch font) ("--internal-border" 1 ns-handle-numeric-switch internal-border-width) ("--foreground-color" 1 ns-handle-switch foreground-color) ("--background-color" 1 ns-handle-switch background-color) ("--mouse-color" 1 ns-handle-switch mouse-color) ("--icon-type" 0 ns-handle-switch icon-type t) ("--iconic" 0 ns-handle-iconic) ("--cursor-color" 1 ns-handle-switch cursor-color) ("--vertical-scroll-bars" 0 ns-handle-switch vertical-scroll-bars t) ("--border-color" 1 ns-handle-switch border-width)) (#$ . 7109)) #@78 Normal hook run after handling urgent options but before loading init files. (defvar before-init-hook nil (#$ . 9439)) #@265 Normal hook run after loading the init files, `~/.emacs' and `default.el'. There is no `condition-case' around the running of these functions; therefore, if you set `debug-on-error' non-nil in `.emacs', an error in one of these functions will invoke the debugger. (defvar after-init-hook nil (#$ . 9565)) #@73 Normal hook run after loading init files and handling the command line. (defvar emacs-startup-hook nil (#$ . 9876)) #@243 Normal hook run after loading terminal-specific Lisp code. It also follows `emacs-startup-hook'. This hook exists for users to set, so as to override the definitions made by the terminal-specific file. Emacs never sets this variable itself. (defvar term-setup-hook nil (#$ . 9999)) #@104 Non-nil means don't run `term-setup-hook' and `emacs-startup-hook'. This is because we already did so. (defvar inhibit-startup-hooks nil (#$ . 10289)) #@192 The brand of keyboard you are using. This variable is used to define the proper function and keypad keys for use under X. It is used in a fashion analogous to the environment variable TERM. (defvar keyboard-type nil (#$ . 10447)) #@153 Normal hook run to initialize window system display. Emacs runs this hook after processing the command line arguments and loading the user's init file. (defvar window-setup-hook nil (#$ . 10685)) #@70 Major mode command symbol to use for the initial `*scratch*' buffer. (custom-declare-variable 'initial-major-mode ''lisp-interaction-mode '(#$ . 10887) :type 'function :group 'initialization) #@621 Identity of user whose `.emacs' file is or was read. The value is nil if `-q' or `--no-init-file' was specified, meaning do not load any init file. Otherwise, the value may be an empty string, meaning use the init file for the user who originally logged in, or it may be a string containing a user's name meaning use that person's init file. In either of the latter cases, `(concat "~" init-file-user "/")' evaluates to the name of the directory where the `.emacs' file was looked for. Setting `init-file-user' does not prevent Emacs from loading `site-start.el'. The only way to do that is to use `--no-site-file'. (defvar init-file-user nil (#$ . 11086)) #@1013 File containing site-wide run-time initializations. This file is loaded at run-time before `~/.emacs'. It contains inits that need to be in place for the entire site, but which, due to their higher incidence of change, don't make sense to load into Emacs's dumped image. Thus, the run-time load order is: 1. file described in this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'. Don't use the `site-start.el' file for things some users may not like. Put them in `default.el' instead, so that users can more easily override them. Users can prevent loading `default.el' with the `-q' option or by setting `inhibit-default-init' in their own init files, but inhibiting `site-start.el' requires `--no-site-file', which is less convenient. This variable is defined for customization so as to make it visible in the relevant context. However, actually customizing it is not allowed, since it would not work anyway. The only way to set this variable usefully is to set it while building and dumping Emacs. (custom-declare-variable 'site-run-file '"site-start" '(#$ . 11755) :type '(choice (const :tag "none" nil) string) :group 'initialization :initialize 'custom-initialize-default :set '(lambda (variable value) (error "Customizing `site-run-file' does not work"))) #@53 Name of this machine, for purposes of naming users. (custom-declare-variable 'mail-host-address 'nil '(#$ . 13035) :type '(choice (const nil) string) :group 'mail) #@217 Full mailing address of this user. This is initialized with environment variable `EMAIL' or, as a fallback, using `mail-host-address'. This is done after your init file is read, in case it sets `mail-host-address'. (custom-declare-variable 'user-mail-address '(if command-line-processed (or (getenv "EMAIL") (concat (user-login-name) "@" (or mail-host-address (system-name)))) "") '(#$ . 13206) :type 'string :group 'mail) #@396 Prefix for generating `auto-save-list-file-name'. This is used after reading your `.emacs' file to initialize `auto-save-list-file-name', by appending Emacs's pid and the system name, if you have not already set `auto-save-list-file-name' yourself. Directories in the prefix will be created if necessary. Set this to nil if you want to prevent `auto-save-list-file-name' from being initialized. (custom-declare-variable 'auto-save-list-file-prefix '(cond ((eq system-type 'ms-dos) (concat user-emacs-directory "auto-save.list/_s")) (t (concat user-emacs-directory "auto-save-list/.saves-"))) '(#$ . 13637) :type '(choice (const :tag "Don't record a session's auto save list" nil) string) :group 'auto-save) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\304\207" [current-load-list emacs-quick-startup default-boundp set-default nil emacs-basic-display init-file-debug] 3) #@61 Non-nil if there was an error loading the user's init file. (defvar init-file-had-error nil (#$ . 14602)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list normal-top-level-add-subdirs-inode-list default-boundp set-default nil no-blinking-cursor] 3) #@50 Non-nil if building Emacs overflowed pure space. (defvar pure-space-overflow nil (#$ . 14929)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list pure-space-overflow-message default-boundp set-default "Warning Warning!!! Pure space overflow !!!Warning Warning\n(See the node Pure Storage in the Lisp manual for details.)\n"] 3) #@48 Directory containing the Emacs TUTORIAL files. (defvar tutorial-directory nil (#$ . 15297)) (byte-code "\203 \303\304\305 \"!\202 \306\307\310\311#\210\303\207" [command-line-processed data-directory tutorial-directory file-name-as-directory expand-file-name #1="tutorials" add-hook before-init-hook (lambda nil "From no file" (setq tutorial-directory (file-name-as-directory (expand-file-name #1# data-directory)))) t] 4) #@265 Add all subdirectories of current directory to `load-path'. More precisely, this uses only the subdirectories whose names start with letters or digits; it excludes any subdirectory named `RCS' or `CVS', and any subdirectory that contains a file named `.nosearch'. (defalias 'normal-top-level-add-subdirs-to-load-path #[nil "\306\211C \203\217 \211A@ B\211@ \307\f! \f\310\311!\205% \311\f!\211 \2060 \312\313\f!\233\211\235\204\213 \nB \306 \211 \203\212 @\211\314\235\204\201 \315\316\"\203\201 \315\317\"\204\201 \320!\203\201 \321! \322\321\323\"!\204\200 C\244)A\211\204H *,\202 \324 \237A!+\207" [default-directory pending attrs dirs this-dir contents nil directory-files fboundp untranslated-canonical-name 10 file-attributes ("." ".." "RCS" "CVS" "rcs" "cvs") string-match "\\`[[:alnum:]]" "\\.elc?\\'" file-directory-p expand-file-name file-exists-p ".nosearch" normal-top-level-add-to-load-path canonicalized normal-top-level-add-subdirs-inode-list file #1=#:--cl-dolist-temp-- expanded] 6 (#$ . 15731)]) (defalias 'normal-top-level-add-to-load-path #[(dirs) "\306 !\211\203, A\203, \n @\232\204, \f\307>\203% \n\227 @\227\232\204, A\211\204\n \205: \310\311\312 \" A\"\241*\207" [load-path default-directory thisdir tail system-type dirs directory-file-name (ms-dos windows-nt) append mapcar expand-file-name] 6]) (defalias 'normal-top-level #[nil "\203 \306\307!\207\310 r\311q\210\312\303!\210\310\n*\313\314\315\316\314!C#\210\317 \320\232\203+ \310 \321\211 (\203Y (@\211\322\323\324!\310\211\211$\210)\n\322\323\325!\310\211\211$\210)(A\211(\2044 *\326\327!\211 );\203\201 \330\331)!\332P!\330\331 !\332P!\232\204\201 \333\334)P*\"*)\335 !\321+ , -\336\216\337 \210+\340\341\342\"\210\343\321\344\"\211 $;\203\254 \345$P$\202\322 .\321 /\211 0\203\321 0@/\346\347/\"\203\310 /$0A\2110\204\267 *$\205\335 \333$*\")\207" [command-line-processed default-directory dir window-point-insertion-type backup-by-copying-when-mismatch load-path message "Back to top level." t "*Messages*" make-local-variable put user-full-name standard-value default-value user-uid 0 nil load expand-file-name "subdirs.el" "leim-list.el" getenv "PWD" file-attributes file-name-as-directory "." delete "PWD=" abbreviate-file-name ((byte-code "\306! \204. \n\203. \307=\203# \310\311\n!\312\"\210\313\314\n!!\315P\202- \314\316\317\n\320 \321 $!\f\204> \322\323!\210 \203> \322\305!\210\"\204T #\203T $\204T #\324=\203x %&=\204d \325\326\327\330\331 $\210\332\333!\203m \333 \210\332\334!\203x \334\335 !\210\332\336!\203\201 \336 \210 \203\212 \322\337!\210'\204\227 \340 \203\227 \341 \210\327\207" [default-directory auto-save-list-file-name auto-save-list-file-prefix system-type inhibit-startup-hooks term-setup-hook abbreviate-file-name ms-dos make-directory file-name-directory t make-temp-name expand-file-name "~" format "%s%d-%s~" emacs-pid system-name run-hooks emacs-startup-hook pc set-face-attribute default nil :font font-spec fboundp frame-notice-user-settings frame-set-background-mode selected-frame font-menu-add-default window-setup-hook display-popup-menus-p precompute-menubar-bindings frame-initial-frame initial-window-system noninteractive face-font-rescale-alist old-face-font-rescale-alist menubar-bindings-done] 6)) command-line setenv "TERM" "dumb" frame-parameter display "DISPLAY=" string-match "\\`DISPLAY=" tail pwd process-environment face-font-rescale-alist old-face-font-rescale-alist menubar-bindings-done initial-environment varval #1=#:--cl-dolist-temp--] 6]) (defalias 'precompute-menubar-bindings #[nil "\304\305\"\211\203= @:\2036 @@9\2036 @A\242;\2036 \306 @AA!\2036 \307\310 @AA\"\210\n\2036 \311 \210 A\211\204 )\312\211\207" [global-map submap purify-flag define-key-rebound-commands lookup-key [menu-bar] keymapp x-popup-menu nil garbage-collect t] 4]) (byte-code "\301B\302\303!\207" [current-load-list tty-long-option-alist (lambda (#1=#:defconst-tmp-var) (defconst tty-long-option-alist #1#)) (("--name" . "-name") ("--title" . "-T") ("--reverse-video" . "-reverse") ("--foreground-color" . "-fg") ("--background-color" . "-bg") ("--color" . "-color"))] 2) #@45 Height in pixels of images in the tool-bar. (defconst tool-bar-images-pixel-height 24 (#$ . 19936)) #@76 Non-nil if tool-bars are present before user and site init files are read. (defvar tool-bar-originally-present nil (#$ . 20042)) #@297 Functions for processing window-system dependent command-line arguments. Window system startup files should add their own function to this alist, which should parse the command line arguments. Those pertaining to the window system should be processed and removed from the returned command line. (defvar handle-args-function-alist '((nil . tty-handle-args)) (#$ . 20178)) #@302 Alist of window-system initialization functions. Window-system startup files should add their own initialization function to this list. The function should take no arguments, and initialize the window system environment to prepare for opening the first frame (e.g. open a connection to an X server). (defvar window-system-initialization-alist '((nil . ignore)) (#$ . 20557)) (defalias 'tty-handle-args #[(args) "\306\307\310 \"\210 \203' @\311\232\204' \211A@\211\306\211 \312\313\n\"\2030 \n\314\225\306O\315\316\n\"\312\317\n\"\203n \320\n&\"\211\321=\203M \322\n&\"A\202n ;\203j \322 &\"\211 '\204b \323\324\n\"\210'A)\202n \306 \n\325\235\203\207 \326\f\206~ \211A@B(B(\202#\n\327\235\203\240 \330\f\206\227 \211A@B(B(\202#\n\331\235\203\341 \f\204\260 \211A@\332\f;\203\272 \f\202\330 \321\306 ) *\333 \312\334\f\"\211)\203\326 \f)\335I\210\202\303 \f*B(B(\202#\n\336\235\203\360 \337(B(\202#\n\340\232\203 \f\204\374 \341\342\f\247\203\f\202\312\343\f\"\203\344\f!\202\345\f!B(B(\202#\nB,\202 \237)\207" [rest args argi orig-argi argval completion nil message "%S" "--" string-match "^\\(--[^=]*\\)=" 0 match-string 1 "^--" try-completion t assoc error "Option `%s' is ambiguous" ("-fg" "-foreground") foreground-color ("-bg" "-background") background-color ("-T" "-name") title invocation-name "[.*]" 45 ("-r" "-rv" "-reverse") (reverse . t) "-color" 8 tty-color-mode "-?[0-9]+" string-to-number intern tty-long-option-alist elt default-frame-alist i case-fold-search] 5]) (defalias 'command-line #[nil "\306 \307\n\310\311!\210\310\312!\210\310\313!\210\314\315!\211 \307=\204; \f\316\235\203( \317\202; \f\320\235\2033 \307\202; \f\321\235\203; \322)@\323>\203L \324A\325B\202_ @\326=\203Y \327C\202_ \327C\325B\330\331\332\217\210\333\307!\210\334\335D\336 #\307 E\211 F\204\204 \337\340\341\"\210\342\341!\210\202\223 \343\344F!!E\345\346G\"G*HA II\203\265 I\347I@J\317#\240\210I\211AI@\210\202\231 )\307HA I KL?\205\306 \350 \211M\203\327 M\351 \232\203\327 \352MK\204 I\203 \353 NI\211AI@\211 O P\307 Q\354\355O\"\203\nO\356\225\307OQ\357\360O\"O\354\361P\"\203V\362ON\"\211 R\317=\203*O\360\307OO\202UR;\203N\363RN\"\211 S\204B\330\364O\"\210S@\360\307OO)\202U\307QPO)O\365\235\203i\307\211MT\317U\202\372O\366\235\203\317\211VW\367XBX\202\372O\370\235\203\214\307M\202\372O\371\235\203\247Q\206\237I\211AI@M\307Q\202\372O\372\232\203\264\307T\202\372O\373\232\203\301\317Y\202\372O\374\232\203\321\375XBX\202\372O\376\235\203\341\377ZBZ\202\372O\201\207 \235\203\360\317V\202\372OIBI\317KQ\203\330\201\210 O\"\210,\202\327 H\203HI\241\210*\201\211 \201\212 !\210\201\213 \204+\201\214 \210L\204RW\204R[\201\215 >\203O\201\216 \201\217 \201\220 \"\201\221 \235\203R\317VL\204xW\204x\\\201\222 >\203r\201\223 \307\201\224 \"\356X\204x\201\225 \360!\210L\204\263\201\226 \201\227 !\203\263W\204\245\201\223 \307\201] \"\247\203\255\201\223 \307\201] \"\356X\203\255\201\230 \210\202\263\201\227 \360!\210\310\201\231 !\210\310\201\232 !\210\310\201\233 !\210\310\201\234 !\210\310\201\235 !\210\310\201\236 !\210\310\201\237 !\210\310\201\240 !\210\310\201\241 !\210\310\201n !\210\310\201\242 !\210\201\243 \210\\\201\244 =\204\201\245 \210\201\226 \201\246 !\2036\201] X\236\206!\201] Z\236\211 ]\2053]A\2053]A\356=?^)_`a b c dT\203P\201\247 T\317\211#\210\307eM\203\255\354\201\250 M\"\203y\201\251 \201\252 \201\253 \201\254 M\"\201\255 #\210\202\255\201\256 \201\257 @\201\260 >\203\216\201\261 \202\224\201\261 MP!!\204\255\201\251 \201\252 \201\253 \201\262 M\"\201\255 #\210\307\211Y\317=\203\274\201\263 \202\276Yf g h i jh\201\264 k lY\203\335k \210\202\346\330\201\265 \201\266 \217\210m\2036n\2036r\201\267 q\210n\2035n\201\270 =\204n\242\201\271 =\203nA\204\307n\2025n\242\201\271 =\203*nAn\307o\201\211 \201\272 !\210)L\204T\201\273 p!\203T\201\274 p!\203T\201\275 p!\210\307qlh=\204f\317ilj*i\203pjlf\204\220gf=\204\220\201\276 \201\277 \201\300 \"\210\201\301 r!\210,s\352\232\203\261\314\201\302 !\206\257\350 \201\303 t\206\256\201\304 Qs\201\305 \201u !\203eu vv\203dv\211Av@\211 w@\211 x\201\306 N\204`wA@\201\307 w8\201\310 w8\201\311 w8\201\312 w8\307 y z { | }\211 ~\203\201\313 ~yBBy}\203!\201\314 }yBBy|\2031\201\315 \201\316 y\"y{\203A\201\315 \201\317 y\"yz\203Q\201\315 \201\320 y\"y\201\321 x\317yDC\307#\210.*\202\277)_d=\203}`c=\203}ab=\204\202\201\322 \210+\306 \201\211 \201\323 !\210f\203\313J\203\313\212\201\300 \307 S\211 \203\302@\211Sq\210\n\203\271\347\nJ\317#A\211\204\246*\347 J\317#)\201\324 \201\325 !\203\351r\201\325 q\210\200\201\326 =\203\350\201 \210)L\204\374\\\204\374\201\327 \201\330 !\210\330\201\331 \201\332 !D\202\201\333 HA!\210L\203\201\334 \317!\210\201\213 \211 \203\203a\203;\203.\203\204\201\335 \210\205\203@\201\336 \210\202a\203;\203S\201\337 \201\340 \204\"\210\202[\201\337 \201\341 !\210\201\334 \360!\210)\201\305 \201\206 !\205x\206;\205x\201\342 \206!\207" [before-init-time after-init-time default-directory command-line-default-directory vc version-control current-time nil custom-reevaluate-setting temporary-file-directory small-temporary-file-directory auto-save-file-name-transforms getenv "VERSION_CONTROL" ("t" "numbered") t ("nil" "existing") ("never" "simple") never (ms-dos windows-nt emx) "(Unix)" "(Mac)" macos "(DOS)" error (byte-code "\2044 \203 \305\306\307 !\310P!!\204 \311\312 \"\210 \n\236A\206$ \311\312 \" ! \f\236A\2062 \311\312 \" \210\305\207" [noninteractive initial-window-system handle-args-function-alist command-line-args window-system-initialization-alist featurep intern symbol-name "-win" error "Unsupported window system `%s'"] 4) ((error (byte-code "\302@\300=\203 \303\304A\"\2026 \305@\306N>\203) \307\310A@\311\312AA\313##\2026 \307\310@\314N\311\315A\313##\316\"\210\317\316!\210\320\321 \207" [error initial-window-system princ apply concat file-error error-conditions format "%s: %s" mapconcat #[(obj) "\301\302\"\207" [obj prin1-to-string t] 3] ", " error-message #[(obj) "\301\302\"\207" [obj prin1-to-string t] 3] external-debugging-output terpri nil kill-emacs] 8))) set-locale-environment locate-file "simple" get-load-suffixes princ "Warning: Could not find simple.el nor simple.elc" external-debugging-output terpri file-truename file-name-directory mapcar #[(elt) "@;\203 \302@!\204 @PAB\207\207" [elt lisp-dir file-name-absolute-p] 2] decode-coding-string user-login-name user-real-login-name #1="" (("--no-init-file") ("--no-site-file") ("--debug-init") ("--user") ("--iconic") ("--icon-type") ("--quick") ("--no-blinking-cursor") ("--basic-display")) string-match "\\`\\(--[^=]*\\)=" 0 match-string 1 "\\`--." try-completion assoc "Option `%s' is ambiguous" ("-Q" "-quick") ("-D" "-basic-display") (vertical-scroll-bars) ("-q" "-no-init-file") ("-u" "-user") "-no-site-file" "-debug-init" "-iconic" (visibility . icon) ("-icon-type" "-i" "-itype") (icon-type . t) system-type eol-mnemonic-unix eol-mnemonic-mac eol-mnemonic-dos load-path lisp-dir simple-file-name load-history command-line-args args locale-coding-system done noninteractive init-file-user longopts argi orig-argi argval completion elt site-run-file emacs-quick-startup no-blinking-cursor emacs-basic-display initial-frame-alist init-file-debug default-frame-alist window-system initial-window-system tool-bar-lines tool-bar-originally-present scalable-fonts-allowed font-list-limit face-ignored-fonts old-face-ignored-fonts old-font-list-limit old-scalable-fonts-allowed inhibit-startup-screen default-enable-multibyte-characters orig-enable-multibyte debug-on-error-initial debug-on-error-should-be-set debug-on-error-from-init-file inner debug-on-error deactivate-mark transient-mark-mode mark-active abbrev-file-name abbrevs-changed current-language-environment user-mail-address mail-host-address font-lock-face-attributes face-attributes face-attribute face face-spec underline-p italic-p bold-p background foreground #2=#:--cl-dolist-temp-- major-mode initial-major-mode memory-signal-data dn server-name server-process x-session-previous-id ("-nbc" "-no-blinking-cursor") "Option `%s' doesn't allow an argument" run-hooks before-init-hook daemonp frame-initialize (x w32 ns) x-get-resource "cursorBlink" "CursorBlink" ("off" "false") (x w32) frame-parameter menu-bar-lines menu-bar-mode fboundp tool-bar-mode tool-bar-setup blink-cursor-mode tooltip-mode global-font-lock-mode mouse-wheel-down-event mouse-wheel-up-event file-name-shadow-mode send-mail-function focus-follows-mouse global-auto-composition-mode auto-encryption-mode normal-erase-is-backspace-setup-frame pc tty-register-default-colors frame-notice-user-settings load "[~/:\n]" display-warning initialization format "Invalid user name %s" :error file-directory-p expand-file-name (windows-nt ms-dos) "~" "User %s has no home directory" startup #[nil "\205\264 \306=\203 \307\310Q\2027 \311=\2033 \312\307\313\314#\203# \315\2027 \312\307\313\316#\203/ \317\2027 \315\2027 \307\320Q\321\322\n\321\211#\210 \321=\203_ \323\324\325\307\326Q!\" \322\f\321\211#\210 \321=\203^ \n) \203\244 \327 !\330\232\203\244 \331 !\211 \332P \"\333\"!\203\200 \"\202\213 \333 !\203\212 \202\213 \313\211\203\243 \334 \"\203\241 \335\336 #\210\337\340!\210 *#?\205\263 \313 $\322\341\321\211#))\207" [init-file-user system-type user-init-file-1 user-init-file otherfile source ms-dos "~" "/_emacs" windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" "/.emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default" alt inhibit-default-init inhibit-startup-screen] 7] (byte-code " \210\302\211\207" [inner init-file-had-error nil] 2) ((error (byte-code "\303\304\305\306 @\307N A\203 \310\202 \311\312\313 A\314#%\315#\210\316\303\207" [user-init-file error init-file-had-error display-warning initialization format "An error occurred while loading `%s':\n\n%s%s%s\n\nTo ensure normal operation, you should investigate and remove the\ncause of the error in your initialization file. Start Emacs with\nthe `--debug-init' option to view a complete error backtrace." error-message ": " #1# mapconcat #[(s) "\301\302\"\207" [s prin1-to-string t] 3] ", " :warning t] 11))) window-buffer lambda only deactivate-mark-hook file-exists-p file-readable-p quietly-read-abbrev-file mapc #[(buffer) "rq\210 \205 \302\303!)\207" [buffer enable-multibyte-characters set-buffer-multibyte nil] 2] buffer-list set-language-environment "EMAIL" "@" system-name boundp saved-face 2 3 4 5 :foreground :background append (:weight bold) (:slant italic) (:underline t) face-spec-set clear-face-cache after-init-hook get-buffer "*scratch*" fundamental-mode tty-run-terminal-initialization selected-frame substitute-command-keys "Memory exhausted--use \\[save-some-buffers] then exit and restart Emacs" command-line-1 kill-emacs server-start daemon-initialized message "Unable to start daemon: Emacs server named %S already running" "Unable to start the daemon.\nAnother instance of Emacs is running the server, either as daemon or interactively.\nYou can use emacsclient to connect to that Emacs process." emacs-session-restore] 7]) #@105 Initial message displayed in *scratch* buffer at startup. If this is nil, no message will be displayed. (custom-declare-variable 'initial-scratch-message '(purecopy ";; This buffer is for notes you don't want to save, and for Lisp evaluation.\n;; If you want to create a file, visit that file with C-x C-f,\n;; then enter the text in that file's own buffer.\n\n") '(#$ . 32207) :type '(choice (text :tag "Message") (const :tag "none" nil)) :group 'initialization) #@180 A list of texts to show in the middle part of splash screens. Each element in the list should be a list of strings or pairs `:face FACE', like `fancy-splash-insert' accepts them. (defvar fancy-startup-text '((:face (variable-pitch (:foreground "red")) "Welcome to " :link ("GNU Emacs" (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")) "Browse http://www.gnu.org/software/emacs/") ", one component of the " :link (lambda nil (if (eq system-type 'gnu/linux) '("GNU/Linux" (lambda (button) (browse-url "http://www.gnu.org/gnu/linux-and-gnu.html")) "Browse http://www.gnu.org/gnu/linux-and-gnu.html") '("GNU" (lambda (button) (describe-gnu-project)) "Display info on the GNU project"))) " operating system.\n\n" :face variable-pitch :link ("Emacs Tutorial" (lambda (button) (help-with-tutorial))) " Learn basic keystroke commands" (lambda nil (let* ((en "TUTORIAL") (tut (or (get-language-info current-language-environment 'tutorial) en)) (title (with-temp-buffer (insert-file-contents (expand-file-name tut tutorial-directory) nil 0 256) (search-forward ".") (buffer-substring (point-min) (1- (point)))))) (if (string= en tut) "" (concat " (" title ")")))) "\n" :link ("Emacs Guided Tour" (lambda (button) (browse-url "http://www.gnu.org/software/emacs/tour/")) "Browse http://www.gnu.org/software/emacs/tour/") " Overview of Emacs features at gnu.org\n" :link ("View Emacs Manual" (lambda (button) (info-emacs-manual))) " View the Emacs manual using Info\n" :link ("Absence of Warranty" (lambda (button) (describe-no-warranty))) " GNU Emacs comes with " :face (variable-pitch (:slant oblique)) "ABSOLUTELY NO WARRANTY\n" :face variable-pitch :link ("Copying Conditions" (lambda (button) (describe-copying))) " Conditions for redistributing and changing Emacs\n" :link ("Ordering Manuals" (lambda (button) (view-order-manuals))) " Purchasing printed copies of manuals\n" "\n")) (#$ . 32678)) #@182 A list of texts to show in the middle part of the About screen. Each element in the list should be a list of strings or pairs `:face FACE', like `fancy-splash-insert' accepts them. (defvar fancy-about-text '((:face (variable-pitch (:foreground "red")) "This is " :link ("GNU Emacs" (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")) "Browse http://www.gnu.org/software/emacs/") ", one component of the " :link (lambda nil (if (eq system-type 'gnu/linux) '("GNU/Linux" (lambda (button) (browse-url "http://www.gnu.org/gnu/linux-and-gnu.html")) "Browse http://www.gnu.org/gnu/linux-and-gnu.html") '("GNU" (lambda (button) (describe-gnu-project)) "Display info on the GNU project."))) " operating system.\n" :face (lambda nil (list 'variable-pitch (list :foreground (if (eq (frame-parameter nil 'background-mode) 'dark) "cyan" "darkblue")))) "\n" (lambda nil (emacs-version)) "\n" :face (variable-pitch (:height 0.8)) (lambda nil emacs-copyright) "\n\n" :face variable-pitch :link ("Authors" (lambda (button) (view-file (expand-file-name "AUTHORS" data-directory)) (goto-char (point-min)))) " Many people have contributed code included in GNU Emacs\n" :link ("Contributing" (lambda (button) (view-file (expand-file-name "CONTRIBUTE" data-directory)) (goto-char (point-min)))) " How to contribute improvements to Emacs\n" "\n" :link ("GNU and Freedom" (lambda (button) (describe-gnu-project))) " Why we developed GNU Emacs, and the GNU operating system\n" :link ("Absence of Warranty" (lambda (button) (describe-no-warranty))) " GNU Emacs comes with " :face (variable-pitch (:slant oblique)) "ABSOLUTELY NO WARRANTY\n" :face variable-pitch :link ("Copying Conditions" (lambda (button) (describe-copying))) " Conditions for redistributing and changing Emacs\n" :link ("Getting New Versions" (lambda (button) (describe-distribution))) " How to obtain the latest version of Emacs\n" :link ("Ordering Manuals" (lambda (button) (view-order-manuals))) " Buying printed manuals from the FSF\n" "\n" :link ("Emacs Tutorial" (lambda (button) (help-with-tutorial))) " Learn basic Emacs keystroke commands" (lambda nil (let* ((en "TUTORIAL") (tut (or (get-language-info current-language-environment 'tutorial) en)) (title (with-temp-buffer (insert-file-contents (expand-file-name tut tutorial-directory) nil 0 256) (search-forward ".") (buffer-substring (point-min) (1- (point)))))) (if (string= en tut) "" (concat " (" title ")")))) "\n" :link ("Emacs Guided Tour" (lambda (button) (browse-url "http://www.gnu.org/software/emacs/tour/")) "Browse http://www.gnu.org/software/emacs/tour/") " See an overview of the many facilities of GNU Emacs")) (#$ . 34592)) (custom-declare-group 'fancy-splash-screen nil "Fancy splash screen when Emacs starts." :version "21.1" :group 'initialization) #@63 The image to show in the splash screens, or nil for defaults. (custom-declare-variable 'fancy-splash-image 'nil '(#$ . 37388) :group 'fancy-splash-screen :type '(choice (const :tag "Default" nil) (file :tag "File"))) #@34 Keymap for splash screen buffer. (defvar splash-screen-keymap (byte-code "\302 \303!\210\304 \"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210)\207" [map button-buffer-map make-sparse-keymap suppress-keymap set-keymap-parent define-key "" scroll-down " " scroll-up "q" exit-splash-screen] 4) (#$ . 37611)) #@535 Insert text into the current buffer, with faces. Arguments from ARGS should be either strings; functions called with no args that return a string; pairs `:face FACE', where FACE is a face specification usable with `put-text-property'; or pairs `:link LINK' where LINK is a list of arguments to pass to `insert-button', of the form (LABEL ACTION [HELP-ECHO]), which specifies the button's label, `action' property and help-echo string. FACE and LINK can also be functions, which are evaluated to obtain a face or button specification. (defalias 'fancy-splash-insert #[(&rest args) "\305 \205w @\306=\203 A\211@\307!\203o \202o @\310=\203V A\211@\307\n!\2035 \n \311\n@\312\313D\314\n\211A@)\315\316\317\n8\206L \320P\321\322& \210)\202o \323 @ \307\f!\203e \f \202f \f)\312\315\324 %c\210 A\211\204 \305)\207" [current-face args spec x it nil :face functionp :link insert-button face link action help-echo "mouse-2, RET: " 2 "Follow this link" follow-link t propertize startup-echo-area-message] 11 (#$ . 37940)]) #@68 Insert the head part of the splash screen into the current buffer. (defalias 'fancy-splash-head #[nil ";\203 \202F \305 \203E \306 \307X\203# \310\311!\203 \312\202F \313\202F \310\314!\203- \315\202F \310\316!\2037 \317\202F \310\311!\203A \312\202F \313\202F \313\320 !\211\205S \321\n!@\304\322 ! \n\205\232 \f V\205\232 \323\324\325\326\327\330\331\332\nBEE#c\210\311\n>\203\206 \333\334\335\"\336=\203\206 \337\n\340\"\341`\342\n!\210`\343\344\345\346\347\350\351\352&\n\210\353c,\207" [fancy-splash-image image-file img image-width window-width display-color-p display-planes 8 image-type-available-p xpm "splash.xpm" "splash.pbm" svg "splash.svg" png "splash.png" create-image image-size selected-window propertize " " display space :align-to + center -0.5 frame-parameter nil background-mode dark append (:color-symbols (("#000000" . "gray30"))) make-button insert-image face default help-echo "mouse-2, RET: Browse http://www.gnu.org/" action #[(button) "\300\301!\207" [browse-url "http://www.gnu.org/"] 2] follow-link t "\n\n"] 12 (#$ . 38979)]) #@68 Insert the tail part of the splash screen into the current buffer. (defalias 'fancy-startup-tail #[(&optional concise) "\306\307\310\"\311=\203 \312\202 \313 \204# \314\315\316\317\320\321\322\320\323\322\320\324\325&\f\210\314\315\316\326\315\327\330\315\316\331& \210\314\315\316\332DD\333\334 \325\315\335\n\325& \210 \203n \336\337 !!\203n \340\337 !\307\341\342\343 !!P\344$\203n \314\315\345\346\347\315\350\351\315\352\353\354& \210 \205\333 \314\315\316\325\320\355\356&\210\f\204\204 \205\333 \357\360\361\344\362\363\364\363\365\366\332\367\370\371\372\373&\357\374\363\375\"\361\344\362\363\364\363\365\366\332\367\370\371\372\373& @ A\376\377\201B A\201C @\201A \307\201D @\201E \344\201F \201G & \210*\314\315\201H \201I #)\207" [fg concise emacs-copyright auto-save-list-file-prefix user-init-file custom-file frame-parameter nil background-mode dark "cyan" "darkblue" fancy-splash-insert :face variable-pitch "\nTo start... " :link ("Open a File" (lambda (button) (call-interactively 'find-file)) "Specify a new file's name, to edit the file") " " ("Open Home Directory" (lambda (button) (dired "~")) "Open your home directory, to operate on its files") ("Customize Startup" (lambda (button) (customize-group 'initialization)) "Change initialization settings including this screen") "\n" "To quit a partially entered command, type " default "Control-g" ".\n" :foreground "\nThis is " emacs-version (variable-pitch (:height 0.8)) file-directory-p file-name-directory directory-files "\\`" regexp-quote file-name-nondirectory t (variable-pitch (:foreground "red")) "\nIf an Emacs session crashed recently, " "type " (fixed-pitch :foreground "red") "Meta-x recover-session RET" (variable-pitch (:foreground "red")) "\nto recover" " the files you were editing." ("Dismiss this startup screen" (lambda (button) (when startup-screen-inhibit-startup-screen (customize-set-variable 'inhibit-startup-screen t) (customize-mark-to-save 'inhibit-startup-screen) (custom-save-all)) (let ((w (get-buffer-window "*GNU Emacs*"))) (and w (not (one-window-p)) (delete-window w))) (kill-buffer "*GNU Emacs*"))) " " create-image "\300\300ac7> " xbm :width 8 :height :background "grey75" "black" :relief -2 :ascent center make-string 0 insert-button " " unchecked checked :on-glyph :off-glyph display follow-link action #[(button) "\302\303\"\203 \304\303\305#\210\304\306\302\307\"#\210\305\211\207\304\303\310#\210\304\306\302\311\"#\210\310\211\207" [button startup-screen-inhibit-startup-screen overlay-get checked overlay-put nil display :off-glyph t :on-glyph] 6] (variable-pitch (:height 0.9)) " Never show it again."] 17 (#$ . 40050)]) #@43 Stop displaying the splash screen buffer. (defalias 'exit-splash-screen #[nil "\300\301!\207" [quit-window t] 2 (#$ . 42725) nil]) #@120 Display fancy startup screen. If CONCISE is non-nil, display a concise version of the splash screen in another window. (defalias 'fancy-startup-screen #[(&optional concise) "\306\307!rq\210\310\311 \210\n\312\313!\210\f\203 c\210 \204\" \314 \210 \315 !\211 \"\203D \"@!\316\317!\"\210\320c\210\"A\211\"\204- *\320\315x\210`d|\210\320c\210\321 !\210)\322#!\210\323$\310%\324\315!\210&\203t '\204t \325\315\326\"\210eb\210 \203\200 \327\202\201 \330y\210) \203\262 \331!\210\332\310\"\211 (?\206\256 (\333 =\206\256 (\334(!=\206\256 \335(!)\202\265 \336!)\207" [splash-buffer inhibit-read-only command-line-default-directory default-directory pure-space-overflow pure-space-overflow-message get-buffer-create "*GNU Emacs*" t erase-buffer make-local-variable startup-screen-inhibit-startup-screen fancy-splash-head nil apply fancy-splash-insert "\n" fancy-startup-tail use-local-map 22 set-buffer-modified-p view-mode-enter kill-buffer 2 4 display-buffer get-buffer-window selected-window next-window fit-window-to-buffer switch-to-buffer concise fancy-startup-text text #1=#:--cl-dolist-temp-- splash-screen-keymap tab-width buffer-read-only view-read-only view-mode window] 5 (#$ . 42863)]) #@29 Display fancy About screen. (defalias 'fancy-about-screen #[nil "\306 \307 \310\311\312 \"r\313\216\314!\210\315\316!\210\317\320\321\322\323#\317 \324 \210\"\203- #c\210\325 \210$\326 %\211 &\203R &@%\327\330%\"\210\331c\210&A\211&\204; *\332\326!\210eb\210\333 \210)\334'!\210\335(\336\337\340 \"\210\317)eb\210\341y-\207" [frame save-selected-window-alist save-selected-window-window buffer-undo-list mode-line-format inhibit-read-only fancy-splash-frame selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-frame switch-to-buffer "*About GNU Emacs*" t propertize "---- %b %-" face mode-line-buffer-id erase-buffer fancy-splash-head nil apply fancy-splash-insert "\n" set-buffer-modified-p force-mode-line-update use-local-map 22 message "%s" startup-echo-area-message 3 pure-space-overflow pure-space-overflow-message fancy-about-text text #2=#:--cl-dolist-temp-- splash-screen-keymap tab-width buffer-read-only] 4 (#$ . 44088)]) #@183 Return the frame to use for the fancy splash screen. Returning non-nil does not mean we should necessarily use the fancy splash screen, but if we do use it, we put it on this frame. (defalias 'fancy-splash-frame #[nil "\303\304\305 \306 C\"\303\211\203* \n@\307 !\203# \310\311 !!\204# \nA\211\204 *)\207" [chosen-frame frame #1=#:--cl-dolist-temp-- nil append frame-list selected-frame frame-visible-p window-minibuffer-p frame-selected-window] 4 (#$ . 45390)]) #@50 Return t if fancy splash screens should be used. (defalias 'use-fancy-splash-screens-p #[nil "\305 \205K \306 \203 \307\310!\204 \307\311!\205K \312 \211\205J \313 \2062 \306 \2031 \307\310!\2031 \314\2022 \315!\211\205> \316\n\317#A\304!S\211 \320\\V+)\207" [frame fancy-splash-image img image-height frame-height display-graphic-p display-color-p image-type-available-p xpm pbm fancy-splash-frame create-image "splash.xpm" "splash.pbm" image-size nil 19] 5 (#$ . 45868)]) #@259 Display non-graphic splash screen. If optional argument STARTUP is non-nil, display the startup screen after Emacs starts. If STARTUP is nil, display the About screen. If CONCISE is non-nil, display a concise version of the splash screen in another window. (defalias 'normal-splash-screen #[(&optional startup concise) "\306\307!rq\210\310\311 \210\n\312\304!\210\313 \204$ \312\314!\210\315\316\317\320#\f,\203- -c\210 \2035 \321\2026 \322c\210.\323=\203C \324\202D \325c\210 \203[ \326 \203U \327 \210\202^ \330 \210\202^ \331 \210 \203\211 /\203\211 \332\333/!!\203\211 \334\333/!\310\335\336\337/!!P\340$\203\211 \341\342\343\261\210\3440!\210\345\310!\210\3401\203\243 2\204\243 \346\310\347\"\210 \203\254 \350\351\340\"\210eb\210)3\203\273 \352!\202\276 \353!)\207" [splash-buffer buffer-read-only command-line-default-directory default-directory tab-width startup get-buffer-create "*About GNU Emacs*" nil erase-buffer make-local-variable 8 mode-line-format propertize "---- %b %-" face mode-line-buffer-id "Welcome to GNU Emacs" "This is GNU Emacs" gnu/linux ", one component of the GNU/Linux operating system.\n" ", a part of the GNU operating system.\n" display-mouse-p normal-mouse-startup-screen normal-no-mouse-startup-screen normal-about-screen file-directory-p file-name-directory directory-files "\\`" regexp-quote file-name-nondirectory t "\n\nIf an Emacs session crashed recently, " "type Meta-x recover-session RET\nto recover" " the files you were editing.\n" use-local-map set-buffer-modified-p view-mode-enter kill-buffer rename-buffer "*GNU Emacs*" display-buffer switch-to-buffer pure-space-overflow pure-space-overflow-message system-type auto-save-list-file-prefix splash-screen-keymap view-read-only view-mode concise] 7 (#$ . 46357)]) (defalias 'normal-mouse-startup-screen #[nil "\301c\210\302c\210\303\304\305\306\307\310%\210\311c\210\303\312\305\313\307\310%\210\314c\210\303\315\305\316\307\310%\210\317c\210\303\320\305\321\307\310%\210\322c\210\303\323\305\324\307\310%\210\325c\210\326c\210\303\327\305\330\307\310%\210\331c\210\303\332\305\333\307\310%\210\334c\210\303\335\305\336\307\310%\210\337c\210\340\341 \340\261\207" [emacs-copyright "To follow a link, click Mouse-1 on it, or move to it and type RET.\nTo quit a partially entered command, type Control-g.\n" "\nImportant Help menu items:\n" insert-button "Emacs Tutorial" action #[(button) "\300 \207" [help-with-tutorial] 1] follow-link t " Learn basic Emacs keystroke commands\n" "Read the Emacs Manual" #[(button) "\300 \207" [info-emacs-manual] 1] " View the Emacs manual using Info\n" "(Non)Warranty" #[(button) "\300 \207" [describe-no-warranty] 1] " GNU Emacs comes with ABSOLUTELY NO WARRANTY\n" "Copying Conditions" #[(button) "\300 \207" [describe-copying] 1] " Conditions for redistributing and changing Emacs\n" "More Manuals / Ordering Manuals" #[(button) "\300 \207" [view-order-manuals] 1] " How to order printed manuals from the FSF\n" "\nUseful tasks:\n" "Visit New File" #[(button) "\300\301!\207" [call-interactively find-file] 2] " Specify a new file's name, to edit the file\n" "Open Home Directory" #[(button) "\300\301!\207" [dired "~"] 2] " Open your home directory, to operate on its files\n" "Customize Startup" #[(button) "\300\301!\207" [customize-group initialization] 2] " Change initialization settings including this screen\n" "\n" emacs-version] 6]) (defalias 'normal-no-mouse-startup-screen #[nil "\305!?\206\f \306H\306=\307\310!\311=\203\221 \307\312!\313=\203\221 \307\314!\315=\203\221 \307\316!\317=\203\221 \307\320!\321=\203\221 \307\322!\323=\203\221 \307\324!\325=\203\221 \203M \326\202N \327\330\n\331\261\210\332\333\334\335\336\337%\210\340\n\341\261\210\332\342\334\343\336\337%\210\340\n\344\261\210\332\345\334\346\336\337%\210\340\n\347\261\210\332\350\334\351\336\337%\210\340\n\352\261\210)\202\334 \353\354\355\311\356\337#\211\203\243 \357 !\202\244 \360)\"c\210\332\333\334\361\336\337%\210\362\363!c\210\332\342\334\364\336\337%\210\362\365!c\210\332\345\334\366\336\337%\210\362\367!c\210\332\350\334\370\336\337%\210\362\371!c\210)\372c\210\332\373\334\374\336\337%\210\307\375!\376=\203 \307\377!\376=\203 \201@ c\210\202\362\201A !c\210\201B c\210\201C c\210\332\201D \334\201E \336\337%\210\201F c\210\332\201G \334\201H \336\337%\210\372c\210\332\201I \334\201J \336\337%\210\201K c\210\332\201L \334\201M \336\337%\210\372c\210\372\201N \372\f\372\261\210\307\201O !\201P =\203\270\307\201Q !\201R =\203\270\307\201S !\201T =\203\270\201U c\210\332\201V \334\201W \336\337%\210\201X c\210\332\201Y \334\201Z \336\337%\210\201[ c\210\332\201\\ \334\201] \336\337%\210\201^ c\207\362\201_ !c\210\332\201V \334\201` \336\337%\210\362\201a !c\210\332\201Y \334\201b \336\337%\210\362\201c !c\210\332\201\\ \334\201d \336\337%\210\201^ c\207" [keyboard-translate-table c-h-accessible help where emacs-copyright char-table-p 8 key-binding "" help-command "u" advertised-undo "" save-buffers-kill-terminal "t" help-with-tutorial "i" info "r" info-emacs-manual "" view-emacs-news "C-h" "<f1>" "\nGet help " " (Hold down CTRL and press h)\n" insert-button "Emacs manual" action #[(button) "\300 \207" [info-emacs-manual] 1] follow-link t " " " r " "Browse manuals" #[(button) "\300 \207" [Info-directory] 1] " i\n" "Emacs tutorial" #[(button) "\300 \207" [help-with-tutorial] 1] " t Undo changes C-x u\n" "Buy manuals" #[(button) "\300 \207" [view-order-manuals] 1] " C-m Exit Emacs C-x C-c" format "\nGet help %s\n" where-is-internal nil key-description "M-x help" #[(button) "\300 \207" [info-emacs-manual] 1] substitute-command-keys " \\[info-emacs-manual] " #[(button) "\300 \207" [Info-directory] 1] " \\[info]\n" #[(button) "\300 \207" [help-with-tutorial] 1] " \\[help-with-tutorial] Undo changes \\[advertised-undo]\n" #[(button) "\300 \207" [view-order-manuals] 1] " \\[view-order-manuals] Exit Emacs \\[save-buffers-kill-terminal]" "\n" "Activate menubar" #[(button) "\300 \207" [tmm-menubar] 1] "\340" tmm-menubar [f10] " F10 or ESC ` or M-`" " \\[tmm-menubar]" "\n(`C-' means use the CTRL key. `M-' means use the Meta (or Alt) key.\nIf you have no Meta key, you may instead type ESC followed by the character.)" "\nUseful tasks:\n" "Visit New File" #[(button) "\300\301!\207" [call-interactively find-file] 2] " " "Open Home Directory" #[(button) "\300\301!\207" [dired "~"] 2] "Customize Startup" #[(button) "\300\301!\207" [customize-group initialization] 2] " " "Open *scratch* buffer" #[(button) "\300\301\302!!\207" [switch-to-buffer get-buffer-create "*scratch*"] 3] emacs-version "" describe-copying "" describe-distribution "" describe-no-warranty "\nGNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for " "full details" #[(button) "\300 \207" [describe-no-warranty] 1] ".\nEmacs is Free Software--Free as in Freedom--so you can redistribute copies\nof Emacs and modify it; type C-h C-c to see " "the conditions" #[(button) "\300 \207" [describe-copying] 1] ".\nType C-h C-d for information on " "getting the latest version" #[(button) "\300 \207" [describe-distribution] 1] "." "\nGNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for " #[(button) "\300 \207" [describe-no-warranty] 1] ".\nEmacs is Free Software--Free as in Freedom--so you can redistribute copies\nof Emacs and modify it; type \\[describe-copying] to see " #[(button) "\300 \207" [describe-copying] 1] ".\nType \\[describe-distribution] for information on " #[(button) "\300 \207" [describe-distribution] 1]] 7]) (defalias 'normal-about-screen #[nil "\301\302 \301\303\261\210\304c\210\305\306\307\310\311\312%\210\313c\210\305\314\307\315\311\312%\210\316c\210\305\317\307\320\311\312%\210\321c\210\305\322\307\323\311\312%\210\324c\210\305\325\307\326\311\312%\210\327c\210\305\330\307\331\311\312%\210\332c\210\305\333\307\334\311\312%\210\335c\207" [emacs-copyright "\n" emacs-version "\n\n" "To follow a link, click Mouse-1 on it, or move to it and type RET.\n\n" insert-button "Authors" action #[(button) "\301\302\303\"!\210eb\207" [data-directory view-file expand-file-name "AUTHORS"] 4] follow-link t " Many people have contributed code included in GNU Emacs\n" "Contributing" #[(button) "\301\302\303\"!\210eb\207" [data-directory view-file expand-file-name "CONTRIBUTE"] 4] " How to contribute improvements to Emacs\n\n" "GNU and Freedom" #[(button) "\300 \207" [describe-gnu-project] 1] " Why we developed GNU Emacs and the GNU system\n" "Absence of Warranty" #[(button) "\300 \207" [describe-no-warranty] 1] " GNU Emacs comes with ABSOLUTELY NO WARRANTY\n" "Copying Conditions" #[(button) "\300 \207" [describe-copying] 1] " Conditions for redistributing and changing Emacs\n" "Getting New Versions" #[(button) "\300 \207" [describe-distribution] 1] " How to get the latest version of GNU Emacs\n" "More Manuals / Ordering Manuals" #[(button) "\300 \207" [view-order-manuals] 1] " Buying printed manuals from the FSF\n"] 6]) (defalias 'startup-echo-area-message #[nil "\300 \203 \301\207\302\303!\304=\203 \305\207\306\307!\207" [daemonp "Starting Emacs daemon." key-binding "" about-emacs "For information about GNU Emacs and the GNU system, type C-h C-a." substitute-command-keys "For information about GNU Emacs and the GNU system, type \\[about-emacs]."] 2]) (defalias 'display-startup-echo-area-message #[nil "\306 \206: \n\2035 \2035 \302\307N\203% \n\f\310\232\203 \311 \202! \f\232\206: \312\313! \314\315\316\217\317 !\210)\206: \320\321\322 \")\207" [resize-mini-windows noninteractive inhibit-startup-echo-area-message user-init-file init-file-user buffer t saved-value #1="" user-login-name get-buffer-create " *temp*" nil (byte-code "\212q\210\303 !\210\304\305\306\307\310\n\311\232\203 \312 \202 \n!!\313R\314\315#)\207" [buffer user-init-file init-file-user insert-file-contents re-search-forward "([ \n]*setq[ \n]+" "inhibit-startup-echo-area-message[ \n]+" regexp-quote prin1-to-string #1# user-login-name "[ \n]*)" nil t] 7) ((error)) kill-buffer message "%s" startup-echo-area-message] 3]) #@182 Display startup screen according to display. A fancy display is used on graphic displays, normal otherwise. If CONCISE is non-nil, display a concise version of the startup screen. (defalias 'display-startup-screen #[(&optional concise) "\301\302!?\205 \303 \203 \304!\207\305\306\"\207" [concise get-buffer "*GNU Emacs*" use-fancy-splash-screens-p fancy-startup-screen normal-splash-screen t] 3 (#$ . 56493)]) #@102 Display the *About GNU Emacs* buffer. A fancy display is used on graphic displays, normal otherwise. (defalias 'display-about-screen #[nil "\300 \203 \301 \207\302\303!\207" [use-fancy-splash-screens-p fancy-about-screen normal-splash-screen nil] 2 (#$ . 56915) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias about-emacs display-about-screen display-splash-screen display-startup-screen] 3) (defalias 'command-line-1 #[(command-line-args-left) "\306 \210\203 \204 \307\310\311\312#\210\313\314\f\203\323 \314\211\211\315\316\317\320@\"\"\313\211 A B C D E F GH\314 F\211 I\203` I@F\321\322F@\"\203W F@CCBCIA\211I\204@ *J\314 F\211 K\203\214 K@F\321\322F@\"\203\203 F@CCBCKA\211K\204l *\f\203\321\f@\211 L M\314\211 N O\fAD\203\254 \323L\202\321\324L\"\203\303 L\313\225\314ON\325\326L\"L\321\327M\"\203\330LC\"\211O\331=\203\343 L\326\314OL\202O;\203\332OC\"\211 P\204\373 \333\334L\"\210P@\326\314OL)\202\314NML\332L@\"\211F\2039N\203/N\fB FAL!\210)\202\276FAL!\210\202\276L\335\232\203F\331Q\202\276L\336\235\203t\331Q\337N\206[\f\211A@!F\340F!\203m\341F!\210\202\276F \210\202\276L\342\235\203\220\331Q\343\344N\206\212\f\211A@!!\210\202\276L\345\235\203\313\346\347N\206\243\f\211A@!!FE\203\276EFEAB\241\210EAE\202\276FRB\211RE\202\276L\350\235\203\374\347N\206\335\f\211A@! S\346S! T\351T!\203\361TS\352S\314\331#\210*\202\276L\353\235\203#\347N\206\f\211A@! S\346S! T\352T\314\331\211$\210*\202\276L\354\232\203L\331QN\2067\f\211A@\211F;\204B\333\355!\210\356\347F!!\210\202\276L\357\232\203Z\360\331!\210\202\276L\361\232\203h\362\363!\210\202\276\321\364L\"\203y\365L!B\202\276\321\366L\"\203\226\365\325\326L\"!B\365\325\367L\"!A\202\276\332LH\"\211F\203\254FA@\f\233\202\276\332LJ\"\211F\203\302FA@\f\233\202\276L\370\235\203&\331QN\206\326\f\211A@\211F;\204\343\333\371L\"\210 T\346\347F!G\" S \326U\203\376\372S!\202\373S!\210)\374B!\204\375B!\210\313BA\326W\204 \376AS!\210\313A\202\276L\377\232\2033\331D\202\276U\314 V\211 W\203QW@ \211V\204QWA\211W\204>V\204\275\321\201` L\"\203h\333\201a L\"\210X\204p\331Q T\346\347M!G\" S \326U\203\213\372S!\202\235Q\203\230\373S!\210\202\235\372S!\210)\374B!\204\252\375B!\210\313BA\326W\204\272\376AS!\210\313A*\201b \201c !\204\315\360\314!\210,\202\215 .Y\203\371Y\331=\203\356\201d \201e \201f !!\210\202\371Y;\203\371\372Y!\210Z\203\"\201g \201f !\203\"r\201f q\210\374\201h !\203!Zc\210\201i \314!\210)Q\2045Y\2045 \2045[\203U \367V\205\237 ?\205\237\\?\205\237\201j \n!\206\237\201k \202\237\201l \201m !\210]\203j\201l \201] !\210\331^\201n \201o !\203|\201o \210_\203\214\201l \201_ !\210\314_ \313V\203\232\201p \331!\202\237\201p \314!*\207" [pure-space-overflow noninteractive first-file-buffer file-count command-line-args-left command-line-default-directory display-startup-echo-area-message display-warning initialization "Building Emacs overflowed pure space. (See the node Pure Storage in the Lisp manual for details.)" :warning 0 nil append (("--funcall") ("--load") ("--insert") ("--kill") ("--directory") ("--eval") ("--execute") ("--no-splash") ("--find-file") ("--visit") ("--file") ("--no-desktop")) mapcar #[(elt) "\301@PC\207" [elt "-"] 2] string-match "^--" "" "\\`\\(--[^=]*\\)=" match-string 1 "\\`--." try-completion t assoc error "Option `%s' is ambiguous" "-no-splash" ("-f" "-funcall" "-e") intern commandp command-execute ("-eval" "-execute") eval read ("-L" "-directory") expand-file-name command-line-normalize-file-name ("-l" "-load") file-exists-p load ("-scriptload") "-insert" "File name omitted from `-insert' option" insert-file-contents "-kill" kill-emacs "-no-desktop" message "\"--no-desktop\" ignored because the Desktop package is not loaded" "^\\+[0-9]+\\'" string-to-number "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" 2 ("-find-file" "-file" "-visit") "File name omitted from `%s' option" find-file find-file-other-window zerop goto-line move-to-column "--" command-switch-alist column line longopts just-files splice tem dir command-line-x-option-alist #1=#:--cl-dolist-temp-- command-line-ns-option-alist #2=#:--cl-dolist-temp-- argi orig-argi argval completion elt inhibit-startup-screen load-path file file-ex command-line-functions did-hook hooks initial-window-system initial-buffer-choice initial-scratch-message emacs-quick-startup inhibit-startup-buffer-menu term-setup-hook inhibit-startup-hooks window-setup-hook "\\`-" "Unknown option `%s'" frame-live-p selected-frame switch-to-buffer get-buffer-create "*scratch*" get-buffer buffer-size set-buffer-modified-p get-buffer-window list-buffers run-hooks emacs-startup-hook fboundp frame-notice-user-settings display-startup-screen] 10]) #@67 Collapse multiple slashes to one, to handle non-Emacs file names. (defalias 'command-line-normalize-file-name #[(file) "\302 \303\216\304\305 \"\203 \306\307\310\211 $\304\311 \312#\203% \306\307\310\211 $\202 *\207" [save-match-data-internal file match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^///+" replace-match "/" t "//+" 1] 5 (#$ . 61822)])
Close
