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 : menu-bar.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:17 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/menu-bar.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 "`menu-bar.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\307\"\204 \310\311\312\313!#\210\303 B\314\303!\204 \315\303\312\316!\"\210\317\310\320\316 B#\210\304 B\314\304!\204; \315\304\312\321!\"\210\310\322\321\fB#\210\305 B\314\305!\204T \315\305\312\323!\"\210\310\324\323 B#\210\325 B\314\325!\204m \315\325\312\326!\"\210\310\327\326B#\210\330 B\314\330!\204\207 \315\330\312\331!\"\210\310\332\331B#\210\333 B\314\333!\204\241 \315\333\312\334!\"\210\310\335\334B#\210\336 B\314\336!\204\272 \315\336\"\210\310\337\340#\210\310\341\342#\210\310\343\344#\210\310\345\346#\210\310\347\350#\210\310\351\352#\210\310\353\354#\210\310\355\356#\210\310\357\360#\210\310\361\362#\210\310\363\364#\210\310\365\366#\210\310\367\370#\210\310\371\372#\210\310\373\374#\210\310\375\376#\210\310\377\201@ #\210\310\201A \201B #\210\310\201C \201D #\210\310\201E \201F #\207" [global-map current-load-list menu-bar-final-items menu-bar-help-menu menu-bar-tools-menu global-buffers-menu-map lookup-key [menu-bar] define-key [menu-bar] make-sparse-keymap "menu-bar" default-boundp set-default "Help" (help-menu) [menu-bar help-menu] "Tools" [menu-bar tools] "Buffers" [menu-bar buffer] menu-bar-options-menu "Options" [menu-bar options] menu-bar-edit-menu "Edit" [menu-bar edit] menu-bar-file-menu "File" [menu-bar file] menu-bar-files-menu [exit-emacs] (menu-item "Quit" save-buffers-kill-terminal :help "Save unsaved buffers, then exit") [separator-exit] ("--") [delete-this-frame] (menu-item "Delete Frame" delete-frame :visible (fboundp 'delete-frame) :enable (delete-frame-enabled-p) :help "Delete currently selected frame") [make-frame-on-display] (menu-item "New Frame on Display..." make-frame-on-display :visible (fboundp 'make-frame-on-display) :help "Open a new frame on another display") [make-frame] (menu-item "New Frame" make-frame-command :visible (fboundp 'make-frame-command) :help "Open a new frame") [one-window] (menu-item "Remove Splits" delete-other-windows :enable (not (one-window-p t nil)) :help "Selected window grows to fill the whole frame") [split-window] (menu-item "Split Window" split-window-vertically :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-non-minibuffer-window-p)) :help "Split selected window in two windows") [separator-window] (menu-item "--") [ps-print-region] (menu-item "Postscript Print Region (B+W)" ps-print-region :enable mark-active :help "Pretty-print marked region in black and white to PostScript printer") [ps-print-buffer] (menu-item "Postscript Print Buffer (B+W)" ps-print-buffer :enable (menu-bar-menu-frame-live-and-visible-p) :help "Pretty-print current buffer in black and white to PostScript printer") [ps-print-region-faces] (menu-item "Postscript Print Region" ps-print-region-with-faces :enable mark-active :help "Pretty-print marked region to PostScript printer") [ps-print-buffer-faces] (menu-item "Postscript Print Buffer" ps-print-buffer-with-faces :enable (menu-bar-menu-frame-live-and-visible-p) :help "Pretty-print current buffer to PostScript printer") [print-region] (menu-item "Print Region" print-region :enable mark-active :help "Print region between mark and current position") [print-buffer] (menu-item "Print Buffer" print-buffer :enable (menu-bar-menu-frame-live-and-visible-p) :help "Print current buffer with page headings") [separator-print] (menu-item "--") [recover-session] (menu-item "Recover Crashed Session" recover-session :enable (and auto-save-list-file-prefix (file-directory-p (file-name-directory auto-save-list-file-prefix)) (directory-files (file-name-directory auto-save-list-file-prefix) nil (concat "\\`" (regexp-quote (file-name-nondirectory auto-save-list-file-prefix))) t)) :help "Recover edits from a crashed session") [revert-buffer] (menu-item "Revert Buffer" revert-buffer :enable (or revert-buffer-function revert-buffer-insert-file-contents-function (and buffer-file-number (or (buffer-modified-p) (not (verify-visited-file-modtime (current-buffer)))))) :help "Re-read current buffer from its file") [write-file] (menu-item "Save As..." write-file :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-non-minibuffer-window-p)) :help "Write current buffer to another file") [save-buffer] (menu-item "Save" save-buffer :enable (and (buffer-modified-p) (buffer-file-name) (menu-bar-non-minibuffer-window-p)) :help "Save current buffer to its file") [separator-save] (menu-item "--")] 5) #@34 Edit the existing file FILENAME. (defalias 'menu-find-file-existing #[nil "\302\303!\205 \303 ?\304\305\"@\203 \306 !\202 \307 !*\207" [mustmatch filename fboundp x-uses-old-gtk-dialog find-file-read-args "Find file: " find-file-existing find-file] 3 (#$ . 5048) nil]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\207" [menu-bar-file-menu define-key [kill-buffer] (menu-item "Close" kill-this-buffer :enable (kill-this-buffer-enabled-p) :help "Discard (kill) current buffer") [insert-file] (menu-item "Insert File..." insert-file :enable (menu-bar-non-minibuffer-window-p) :help "Insert another file into current buffer") [dired] (menu-item "Open Directory..." dired :enable (menu-bar-non-minibuffer-window-p) :help "Read a directory, to operate on its files") [open-file] (menu-item "Open File..." menu-find-file-existing :enable (menu-bar-non-minibuffer-window-p) :help "Read an existing file into an Emacs buffer") [new-file] (menu-item "Visit New File..." find-file :enable (menu-bar-non-minibuffer-window-p) :help "Specify a new file's name, to edit the file")] 4) #@67 Type of last non-incremental search command called from the menu. (defvar menu-bar-last-search-type nil (#$ . 6185)) #@58 Search forward for the previous search string or regexp. (defalias 'nonincremental-repeat-search-forward #[nil "\303=\203 \203 \304 @!\207\305=\203 \n\203 \306\n@!\207\307\310!\207" [menu-bar-last-search-type search-ring regexp-search-ring string search-forward regexp re-search-forward error "No previous search"] 2 (#$ . 6308) nil]) #@59 Search backward for the previous search string or regexp. (defalias 'nonincremental-repeat-search-backward #[nil "\303=\203 \203 \304 @!\207\305=\203 \n\203 \306\n@!\207\307\310!\207" [menu-bar-last-search-type search-ring regexp-search-ring string search-backward regexp re-search-backward error "No previous search"] 2 (#$ . 6656) nil]) #@51 Read a string and search for it nonincrementally. (defalias 'nonincremental-search-forward #[(string) "\301 \303\232\203 \304\n@!\207\305 \306\"\210\304 !\207" [menu-bar-last-search-type string search-ring "" search-forward isearch-update-ring nil] 3 (#$ . 7008) "sSearch for string: "]) #@60 Read a string and search backward for it nonincrementally. (defalias 'nonincremental-search-backward #[(string) "\301 \303\232\203 \304\n@!\207\305 \306\"\210\304 !\207" [menu-bar-last-search-type string search-ring "" search-backward isearch-update-ring nil] 3 (#$ . 7304) "sSearch for string: "]) #@63 Read a regular expression and search for it nonincrementally. (defalias 'nonincremental-re-search-forward #[(string) "\303 \304\232\203 \305\n@!\207\306 \307\"\210\305 !\207" [menu-bar-last-search-type string regexp-search-ring regexp "" re-search-forward isearch-update-ring t] 3 (#$ . 7611) "sSearch for regexp: "]) #@72 Read a regular expression and search backward for it nonincrementally. (defalias 'nonincremental-re-search-backward #[(string) "\303 \304\232\203 \305\n@!\207\306 \307\"\210\305 !\207" [menu-bar-last-search-type string regexp-search-ring regexp "" re-search-backward isearch-update-ring t] 3 (#$ . 7937) "sSearch for regexp: "]) (byte-code "\302B\306\302!\204 \307\302\310\311!\"\210\301B\306\301!\204\" \307\301\310\312!\"\210\313 \314\315#\210\313 \316\317#\210\313 \320\321#\210\313 \322\323#\210\313\n\324\325\312 E#\210\313\n\326\327#\210\313\n\330\331#\210\313\n\332\333#\210\313\n\334\335#\210\313\n\336\337#\210\313\n\340\341#\210\313\n\342\343#\210\313\n\344\345#\210\313\n\346\347#\210\313\n\350\351#\210\313\n\352\353#\210\303B\306\303!\204\226 \307\303\310\354!\"\210\313 \355\356#\210\313 \357\360#\210\313 \361\362#\210\313 \363\364#\210\313 \365\366#\210\313\f\367\370#\210\313\f\371\372#\210\313\f\373\374#\210\313\f\375\376#\210\305B\306\305!\204\335 \307\305\310\377!\"\210\313 \201@ \201A #\210\313 \201B \201C #\210\313 \201D \201E #\210\313 \201F \201G #\207" [current-load-list menu-bar-i-search-menu menu-bar-search-menu menu-bar-replace-menu menu-bar-edit-menu menu-bar-goto-menu default-boundp set-default make-sparse-keymap "Search" "Incremental Search" define-key [isearch-backward-regexp] (menu-item "Backward Regexp..." isearch-backward-regexp :help "Search backwards for a regular expression as you type it") [isearch-forward-regexp] (menu-item "Forward Regexp..." isearch-forward-regexp :help "Search forward for a regular expression as you type it") [isearch-backward] (menu-item "Backward String..." isearch-backward :help "Search backwards for a string as you type it") [isearch-forward] (menu-item "Forward String..." isearch-forward :help "Search forward for a string as you type it") [i-search] menu-item [separator-tag-isearch] (menu-item "--") [tags-continue] (menu-item "Continue Tags Search" tags-loop-continue :help "Continue last tags search operation") [tags-srch] (menu-item "Search Tagged Files..." tags-search :help "Search for a regexp in all tagged files") [separator-tag-search] (menu-item "--") [repeat-search-back] (menu-item "Repeat Backwards" nonincremental-repeat-search-backward :enable (or (and (eq menu-bar-last-search-type 'string) search-ring) (and (eq menu-bar-last-search-type 'regexp) regexp-search-ring)) :help "Repeat last search backwards") [repeat-search-fwd] (menu-item "Repeat Forward" nonincremental-repeat-search-forward :enable (or (and (eq menu-bar-last-search-type 'string) search-ring) (and (eq menu-bar-last-search-type 'regexp) regexp-search-ring)) :help "Repeat last search forward") [separator-repeat-search] (menu-item "--") [re-search-backward] (menu-item "Regexp Backwards..." nonincremental-re-search-backward :help "Search backwards for a regular expression") [re-search-forward] (menu-item "Regexp Forward..." nonincremental-re-search-forward :help "Search forward for a regular expression") [search-backward] (menu-item "String Backwards..." nonincremental-search-backward :help "Search backwards for a string") [search-forward] (menu-item "String Forward..." nonincremental-search-forward :help "Search forward for a string") "Replace" [tags-repl-continue] (menu-item "Continue Replace" tags-loop-continue :help "Continue last tags replace operation") [tags-repl] (menu-item "Replace in Tagged Files..." tags-query-replace :help "Interactively replace a regexp in all tagged files") [separator-replace-tags] (menu-item "--") [query-replace-regexp] (menu-item "Replace Regexp..." query-replace-regexp :enable (not buffer-read-only) :help "Replace regular expression interactively, ask about each occurrence") [query-replace] (menu-item "Replace String..." query-replace :enable (not buffer-read-only) :help "Replace string interactively, ask about each occurrence") [props] (menu-item "Text Properties" facemenu-menu) [fill] (menu-item "Fill" fill-region :enable (and mark-active (not buffer-read-only)) :help "Fill text in region to fit between left and right margin") [separator-bookmark] (menu-item "--") [bookmark] (menu-item "Bookmarks" menu-bar-bookmark-map) "Go To" [set-tags-name] (menu-item "Set Tags File Name..." visit-tags-table :help "Tell Tags commands which tag table file to use") [separator-tag-file] (menu-item "--") [apropos-tags] (menu-item "Tags Apropos..." tags-apropos :help "Find function/variables whose names match regexp") [next-tag-otherw] (menu-item "Next Tag in Other Window" menu-bar-next-tag-other-window :enable (and (boundp 'tags-location-ring) (not (ring-empty-p tags-location-ring))) :help "Find next function/variable matching last tag name in another window")] 6) #@56 Find the next definition of the tag already specified. (defalias 'menu-bar-next-tag-other-window #[nil "\300\301\302\"\207" [find-tag-other-window nil t] 3 (#$ . 12642) nil]) #@56 Find the next definition of the tag already specified. (defalias 'menu-bar-next-tag #[nil "\300\301\302\"\207" [find-tag nil t] 3 (#$ . 12823) nil]) (byte-code "\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210\306\321\322#\210\306\323\324#\210\306\325\326#\210\306 \327\330\331E#\210\306 \332\330\333\nE#\210\306 \334\330\335 E#\210\306 \336\337#\210\306 \340\341#\210\306 \342\343#\210\305\fB\344\305!\204n \345\305\346\347B\"\210\305\350 BM\210\306 \351\352#\210\306 \353\354#\210\306 \355\356#\210\306 \357\360#\210\306 \361\362#\207" [menu-bar-goto-menu menu-bar-edit-menu menu-bar-replace-menu menu-bar-search-menu current-load-list yank-menu define-key [next-tag] (menu-item "Find Next Tag" menu-bar-next-tag :enable (and (boundp 'tags-location-ring) (not (ring-empty-p tags-location-ring))) :help "Find next function/variable matching last tag name") [find-tag-otherw] (menu-item "Find Tag in Other Window..." find-tag-other-window :help "Find function/variable definition in another window") [find-tag] (menu-item "Find Tag..." find-tag :help "Find definition of function or variable") [separator-tags] (menu-item "--") [end-of-buf] (menu-item "Goto End of Buffer" end-of-buffer) [beg-of-buf] (menu-item "Goto Beginning of Buffer" beginning-of-buffer) [go-to-pos] (menu-item "Goto Buffer Position..." goto-char :help "Read a number N and go to buffer position N") [go-to-line] (menu-item "Goto Line..." goto-line :help "Read a line number and go to that line") [goto] menu-item "Go To" [replace] "Replace" [search] "Search" [separator-search] (menu-item "--") [mark-whole-buffer] (menu-item "Select All" mark-whole-buffer :help "Mark the whole buffer for a subsequent cut/copy") [clear] (menu-item "Clear" delete-region :enable (and mark-active (not buffer-read-only) (not (mouse-region-match))) :help "Delete the text in region between mark and current position") default-boundp set-default "Select Yank" nil keymap [paste-from-menu] (menu-item "Paste from Kill Menu" yank-menu :enable (and (cdr yank-menu) (not buffer-read-only)) :help "Choose a string from the kill ring and paste it") [paste] (menu-item "Paste" yank :enable (and (or (and (fboundp 'x-selection-exists-p) (x-selection-exists-p)) kill-ring) (not buffer-read-only)) :help "Paste (yank) text most recently cut/copied") [copy] (menu-item "Copy" menu-bar-kill-ring-save :enable mark-active :help "Copy text in region between mark and current position" :keys "\\[kill-ring-save]") [cut] (menu-item "Cut" kill-region :enable (and mark-active (not buffer-read-only)) :help "Cut (kill) text in region between mark and current position") [undo] (menu-item "Undo" undo :enable (and (not buffer-read-only) (not (eq t buffer-undo-list)) (if (eq last-command 'undo) (listp pending-undo-list) (consp buffer-undo-list))) :help "Undo last operation")] 6) (defalias 'menu-bar-kill-ring-save #[(beg end) "\302 \203 \303\304!\207\305 \"\207" [beg end mouse-region-match message "Selecting a region with the mouse does `copy' automatically" kill-ring-save] 3 nil "r"]) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\207" [put clipboard-kill-region menu-enable (and mark-active (not buffer-read-only)) clipboard-kill-ring-save mark-active clipboard-yank (and (or (not (fboundp 'x-selection-exists-p)) (x-selection-exists-p) (x-selection-exists-p 'CLIPBOARD)) (not buffer-read-only))] 4) #@68 Insert the clipboard contents, or the last stretch of killed text. (defalias 'clipboard-yank #[nil "\301\302 )\207" [x-select-enable-clipboard t yank] 1 (#$ . 16246) "*"]) #@56 Copy region to kill ring, and save in the X clipboard. (defalias 'clipboard-kill-ring-save #[(beg end) "\303\304 \n\")\207" [x-select-enable-clipboard beg end t kill-ring-save] 3 (#$ . 16425) "r"]) #@50 Kill the region, and save it in the X clipboard. (defalias 'clipboard-kill-region #[(beg end) "\303\304 \n\")\207" [x-select-enable-clipboard beg end t kill-region] 3 (#$ . 16630) "r"]) #@114 Make CUT, PASTE and COPY (keys and menu bar items) use the clipboard. Do the same for the keys of the same name. (defalias 'menu-bar-enable-clipboard #[nil "\302\303\304\305\306BB#\210\302\307\310\311\312BB#\210\302\313\314\315\316BB#\210\302 \317\316#\210\302 \320\312#\210\302 \321\306#\210\302 \322\316#\210\302 \323\312#\210\302 \324\306#\207" [menu-bar-edit-menu global-map define-key [paste] "Paste" "Paste text from clipboard" clipboard-yank [copy] "Copy" "Copy text in region to the clipboard" clipboard-kill-ring-save [cut] "Cut" "Delete text in region and copy it to the clipboard" clipboard-kill-region [f20] [f16] [f18] [cut] [copy] [paste]] 6 (#$ . 16824) nil]) (byte-code "\301B\302\301!\204 \303\301\304\305!\"\210\306 \307\310#\210\306 \311\312#\210\306 \313\314#\210\306 \315\316#\210\306 \317\320#\210\306 \321\322#\210\306 \323\324#\210\306 \325\326#\210\306 \327\330#\210\306 \331\332#\210\306 \333\334#\210\306 \335\336#\210\306 \337\340#\210\306 \341\342#\207" [current-load-list menu-bar-custom-menu default-boundp set-default make-sparse-keymap "Customize" define-key [customize-apropos-groups] (menu-item "Groups Matching Regexp..." customize-apropos-groups :help "Browse groups whose names match regexp") [customize-apropos-faces] (menu-item "Faces Matching Regexp..." customize-apropos-faces :help "Browse faces whose names match regexp") [customize-apropos-options] (menu-item "Options Matching Regexp..." customize-apropos-options :help "Browse options whose names match regexp") [customize-apropos] (menu-item "Settings Matching Regexp..." customize-apropos :help "Browse customizable settings whose names match regexp") [separator-1] ("--") [customize-group] (menu-item "Specific Group..." customize-group :help "Customize settings of specific group") [customize-face] (menu-item "Specific Face..." customize-face :help "Customize attributes of specific face") [customize-option] (menu-item "Specific Option..." customize-option :help "Customize value of specific option") [separator-2] ("--") [customize-changed-options] (menu-item "New Options..." customize-changed-options :help "Options added or changed in recent Emacs versions") [customize-saved] (menu-item "Saved Options" customize-saved :help "Customize previously saved options") [separator-3] ("--") [customize-browse] (menu-item "Browse Customization Groups" customize-browse :help "Browse all customization groups") [customize] (menu-item "Top-level Customization Group" customize :help "The master group called `Emacs'")] 4) #@223 Make a menu-item for a global minor mode toggle. FNAME is the minor mode's name (variable and function). DOC is the text to use for the menu entry. HELP is the text to use for the tooltip. PROPS are additional properties. (defalias 'menu-bar-make-mm-toggle '(macro . #[(fname doc help &optional props) "\304\305 \306\n\307 \310\311\312\313\304 DD\314\304 DDFF\"BBBD\207" [doc fname props help quote menu-item append :help :button :toggle and default-boundp default-value] 15 (#$ . 19357)])) (defalias 'menu-bar-make-toggle '(macro . #[(name variable doc message help &rest body) "\306\307\310\311 \312\313O\227 \313\314O\315R\316\317\n\203 \306\nB\202N \306\320\321 DD\322\323\324\325\321 D\326BB\327BBD\325\324\325\321 D\330BB\331BBDD\332\323\321 D\333\332\325\321 DEDFEE\304\f\334BB\304\f\335BBF\317\336\337\321 DDE\257\321\340 \341 \342\343\344\345\321 DD\346\321 DDF\257DE\207" [name help body variable message doc progn defun (&optional interactively) "Toggle whether to " 0 1 nil ".\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers." (interactive "p") if custom-load-symbol quote let set or get ('custom-set) ('set-default) ('custom-get) ('default-value) funcall not ("enabled globally") ("disabled globally") interactively customize-mark-as-set menu-item :help :button :toggle and default-boundp default-value] 19])) #@54 Interactively select a font and make it the default. (defalias 'menu-set-font #[nil "\305\306!\203 \306 \202 \307 \310\211\205r \311\312\313 \314\315\316\315\317\315\320 &\n\210\321\312\320\"\322 \310\211 \203O \f@\211\313 =\204H \323 !\203H \311\312 \320\n$\210\fA\211\2041 *\311\312\324\320\n$\210)\324\325\312!DC\326\312\327#\210\330\331\312\332\333%\210\326\312\334\310#*\207" [spec font font-object f #1=#:--cl-dolist-temp-- fboundp x-select-font mouse-select-font nil set-face-attribute default selected-frame :width normal :weight :slant :font face-attribute frame-list display-graphic-p t face-attr-construct put customized-face custom-push-theme theme-face user set face-modified] 12 (#$ . 20753) nil]) (byte-code "\302\303\304\305 E#\207" [menu-bar-options-menu menu-bar-custom-menu define-key [customize] menu-item "Customize Emacs"] 6) #@57 Save current values of Options menu items using Custom. (defalias 'menu-bar-options-save #[nil "\304\305\304\211\203 \n@\306 !\203 \307\nA\211\204\n *\310\304\211\203= @\211\311N\2036 \306 !\2036 \307 A\211\204% *\312\313N\203T \314\312\315\312\313N#\210\314\312\313\304#\210\307\205Z \316 )\207" [need-save elt #1=#:--cl-dolist-temp-- #2=#:--cl-dolist-temp-- nil (line-number-mode column-number-mode size-indication-mode cua-mode show-paren-mode transient-mark-mode blink-cursor-mode display-time-mode display-battery-mode) customize-mark-to-save t (scroll-bar-mode debug-on-quit debug-on-error tooltip-mode menu-bar-mode tool-bar-mode save-place uniquify-buffer-name-style fringe-mode indicate-empty-lines indicate-buffer-boundaries case-fold-search current-language-environment default-input-method text-mode-hook) customized-value default customized-face put saved-face custom-save-all] 5 (#$ . 21619) nil]) (byte-code "\303\304\305#\210\303\306\307#\210\303\310\311#\210\302 B\312\302!\204# \313\302\314\315!\"\210\303\n\316\317#\210\303\n\320\321#\210\303\n\322\323#\210\303\n\324\325#\210\303\n\326\327#\210\303\n\330\331#\210\303\n\332\333#\210\303\n\334\335#\210\336 B\312\336!\204d \313\336\314\337!\"\210\340 B\312\340!\204u \313\340\314\341!\"\210\303\207" [menu-bar-options-menu current-load-list menu-bar-showhide-menu define-key [save] (menu-item "Save Options" menu-bar-options-save :help "Save options set from the menu above") [custom-separator] ("--") [menu-set-font] (menu-item "Set Default Font..." menu-set-font :visible (display-multi-font-p) :help "Select a default font") default-boundp set-default make-sparse-keymap "Show/Hide" [column-number-mode] (menu-item "Column Numbers" column-number-mode :help "Show the current column number in the mode line" :button (:toggle and (default-boundp 'column-number-mode) (default-value 'column-number-mode))) [line-number-mode] (menu-item "Line Numbers" line-number-mode :help "Show the current line number in the mode line" :button (:toggle and (default-boundp 'line-number-mode) (default-value 'line-number-mode))) [size-indication-mode] (menu-item "Size Indication" size-indication-mode :help "Show the size of the buffer in the mode line" :button (:toggle and (default-boundp 'size-indication-mode) (default-value 'size-indication-mode))) [linecolumn-separator] ("--") [showhide-battery] (menu-item "Battery Status" display-battery-mode :help "Display battery status information in mode line" :button (:toggle and (default-boundp 'display-battery-mode) (default-value 'display-battery-mode))) [showhide-date-time] (menu-item "Time, Load and Mail" display-time-mode :help "Display time, system load averages and mail status in mode line" :button (:toggle and (default-boundp 'display-time-mode) (default-value 'display-time-mode))) [datetime-separator] ("--") [showhide-speedbar] (menu-item "Speedbar" speedbar-frame-mode :help "Display a Speedbar quick-navigation frame" :button (:toggle and (boundp 'speedbar-frame) (frame-live-p (symbol-value 'speedbar-frame)) (frame-visible-p (symbol-value 'speedbar-frame)))) menu-bar-showhide-fringe-menu "Fringe" menu-bar-showhide-fringe-ind-menu "Buffer boundaries"] 4) #@61 Show customization buffer for `indicate-buffer-boundaries'. (defalias 'menu-bar-showhide-fringe-ind-customize #[nil "\300\301!\207" [customize-variable indicate-buffer-boundaries] 2 (#$ . 24828) nil]) (define-key menu-bar-showhide-fringe-ind-menu [customize] '(menu-item "Other (Customize)" menu-bar-showhide-fringe-ind-customize :help "Additional choices available through Custom buffer" :visible (display-graphic-p) :button (:radio not (member indicate-buffer-boundaries '(nil left right ((top . left) (bottom . right)) ((t . right) (top . left))))))) #@73 Display top and bottom indicators in opposite fringes, arrows in right. (defalias 'menu-bar-showhide-fringe-ind-mixed #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries ((t . right) (top . left))] 3 (#$ . 25388) nil]) (define-key menu-bar-showhide-fringe-ind-menu [mixed] '(menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed :help "Show top/bottom indicators in opposite fringes, arrows in right" :visible (display-graphic-p) :button (:radio equal indicate-buffer-boundaries '((t . right) (top . left))))) #@56 Display top and bottom indicators in opposite fringes. (defalias 'menu-bar-showhide-fringe-ind-box #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries ((top . left) (bottom . right))] 3 (#$ . 25946) nil]) (define-key menu-bar-showhide-fringe-ind-menu [box] '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box :help "Show top/bottom indicators in opposite fringes, no arrows" :visible (display-graphic-p) :button (:radio equal indicate-buffer-boundaries '((top . left) (bottom . right))))) #@59 Display buffer boundaries and arrows in the right fringe. (defalias 'menu-bar-showhide-fringe-ind-right #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries right] 3 (#$ . 26482) nil]) (define-key menu-bar-showhide-fringe-ind-menu [right] '(menu-item "In Right Fringe" menu-bar-showhide-fringe-ind-right :help "Show buffer boundaries and arrows in right fringe" :visible (display-graphic-p) :button (:radio eq indicate-buffer-boundaries 'right))) #@58 Display buffer boundaries and arrows in the left fringe. (defalias 'menu-bar-showhide-fringe-ind-left #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries left] 3 (#$ . 26960) nil]) (define-key menu-bar-showhide-fringe-ind-menu [left] '(menu-item "In Left Fringe" menu-bar-showhide-fringe-ind-left :help "Show buffer boundaries and arrows in left fringe" :visible (display-graphic-p) :button (:radio eq indicate-buffer-boundaries 'left))) #@48 Do not display any buffer boundary indicators. (defalias 'menu-bar-showhide-fringe-ind-none #[nil "\300\301\302\"\207" [customize-set-variable indicate-buffer-boundaries nil] 3 (#$ . 27430) nil]) (byte-code "\302\303\304#\210\302 \305\306\307\310\311\312\313\257#\210\302 \314\315\316\317\"\210\320#\207" [menu-bar-showhide-fringe-ind-menu menu-bar-showhide-fringe-menu define-key [none] (menu-item "No Indicators" menu-bar-showhide-fringe-ind-none :help "Hide all buffer boundary indicators and arrows" :visible (display-graphic-p) :button (:radio eq indicate-buffer-boundaries nil)) [showhide-fringe-ind] menu-item "Buffer Boundaries" :visible (display-graphic-p) :help "Indicate buffer boundaries in fringe" [indicate-empty-lines] defalias toggle-indicate-empty-lines #[(&optional interactively) "\303\304!\210\304\305N\206 \306\304\307N\206 \310\211\304\304!?\"*\203' \311\312\313\"\210\202, \311\312\314\"\210\n\2053 \315\304!\207" [get set interactively custom-load-symbol indicate-empty-lines custom-set set-default custom-get default-value message "Indicating of empty lines %s" "enabled globally" "disabled globally" customize-mark-as-set] 5 "Toggle whether to indicate trailing empty lines in fringe, globally.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers." "p"] (menu-item "Empty Line Indicators" toggle-indicate-empty-lines :help "Indicate trailing empty lines in fringe, globally" :button (:toggle and (default-boundp 'indicate-empty-lines) (default-value 'indicate-empty-lines)))] 10) #@46 Show customization buffer for `fringe-mode'. (defalias 'menu-bar-showhide-fringe-menu-customize #[nil "\300\301!\207" [customize-variable fringe-mode] 2 (#$ . 29007) nil]) (define-key menu-bar-showhide-fringe-menu [customize] '(menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize :help "Detailed customization of fringe" :visible (display-graphic-p))) #@67 Reset the fringe mode: display fringes on both sides of a window. (defalias 'menu-bar-showhide-fringe-menu-customize-reset #[nil "\300\301\302\"\207" [customize-set-variable fringe-mode nil] 3 (#$ . 29382) nil]) (define-key menu-bar-showhide-fringe-menu [default] '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset :help "Default width fringe on both left and right side" :visible (display-graphic-p) :button (:radio eq fringe-mode nil))) #@51 Display fringes only on the right of each window. (defalias 'menu-bar-showhide-fringe-menu-customize-right #[nil "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode (0)] 3 (#$ . 29844) nil]) (define-key menu-bar-showhide-fringe-menu [right] '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right :help "Fringe only on the right side" :visible (display-graphic-p) :button (:radio equal fringe-mode '(0)))) #@50 Display fringes only on the left of each window. (defalias 'menu-bar-showhide-fringe-menu-customize-left #[nil "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode (nil . 0)] 3 (#$ . 30306) nil]) (define-key menu-bar-showhide-fringe-menu [left] '(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left :help "Fringe only on the left side" :visible (display-graphic-p) :button (:radio equal fringe-mode '(nil . 0)))) #@32 Do not display window fringes. (defalias 'menu-bar-showhide-fringe-menu-customize-disable #[nil "\300\301!\210\302\303\304\"\207" [require fringe customize-set-variable fringe-mode 0] 3 (#$ . 30774) nil]) (byte-code "\304\305\306#\210\304 \307\310\311\312\313\257#\210\303\nB\314\303!\204# \315\303\316\317!\"\210\304 \320\321#\207" [menu-bar-showhide-fringe-menu menu-bar-showhide-menu current-load-list menu-bar-showhide-scroll-bar-menu define-key [none] (menu-item "None" menu-bar-showhide-fringe-menu-customize-disable :help "Turn off fringe" :visible (display-graphic-p) :button (:radio eq fringe-mode 0)) [showhide-fringe] menu-item "Fringe" :visible (display-graphic-p) default-boundp set-default make-sparse-keymap "Scroll-bar" [right] (menu-item "On the Right" menu-bar-right-scroll-bar :help "Scroll-bar on the right side" :visible (display-graphic-p) :button (:radio eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) 'right))] 8) #@50 Display scroll bars on the right of each window. (defalias 'menu-bar-right-scroll-bar #[nil "\300\301\302\"\207" [customize-set-variable scroll-bar-mode right] 3 (#$ . 31732) nil]) (define-key menu-bar-showhide-scroll-bar-menu [left] '(menu-item "On the Left" menu-bar-left-scroll-bar :help "Scroll-bar on the left side" :visible (display-graphic-p) :button (:radio eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) 'left))) #@49 Display scroll bars on the left of each window. (defalias 'menu-bar-left-scroll-bar #[nil "\300\301\302\"\207" [customize-set-variable scroll-bar-mode left] 3 (#$ . 32170) nil]) (define-key menu-bar-showhide-scroll-bar-menu [none] '(menu-item "None" menu-bar-no-scroll-bar :help "Turn off scroll-bar" :visible (display-graphic-p) :button (:radio eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) nil))) #@23 Turn off scroll bars. (defalias 'menu-bar-no-scroll-bar #[nil "\300\301\302\"\207" [customize-set-variable scroll-bar-mode nil] 3 (#$ . 32586) nil]) (byte-code "\304\305\306\307 \310\311\257#\210\304\312\306\313\314\315\316\310\317\320\321\257 #\210\304\322\323#\210\304\324\306\325\326\315\327\310\330\320\331\257 #\210\304\n\332\306\333E#\210\304\n\334\335#\210\304\n\336\306\337 E#\210\304\n\340\341#\210\304\n\342\343\344\345\"\210\346#\210\304\n\347\343\350\351\"\210\352#\210\304\n\353\354#\210\304\n\355\356#\210\304\n\357\360#\210\304\n\361\343\362\363\"\210\364#\210\304\n\365\343\366\367\"\210\370#\210\304\n\371\372#\210\304\n\373\374#\210\304\n\375\376#\210\304\n\377\343\201@ \201A \"\210\201B #\207" [menu-bar-showhide-menu menu-bar-showhide-scroll-bar-menu menu-bar-options-menu mule-menu-keymap define-key [showhide-scroll-bar] menu-item "Scroll-bar" :visible (display-graphic-p) [showhide-tooltip-mode] "Tooltips" tooltip-mode :help "Turn tooltips on/off" (and (display-graphic-p) (fboundp 'x-show-tip)) :button (:toggle . tooltip-mode) [menu-bar-mode] (menu-item "Menu-bar" toggle-menu-bar-mode-from-frame :help "Turn menu-bar on/off" :button (:toggle > (frame-parameter nil 'menu-bar-lines) 0)) [showhide-tool-bar] "Tool-bar" toggle-tool-bar-mode-from-frame "Turn tool-bar on/off" (display-graphic-p) (:toggle > (frame-parameter nil 'tool-bar-lines) 0) [showhide] "Show/Hide" [showhide-separator] ("--") [mule] "Mule (Multilingual Environment)" [mule-separator] ("--") [debug-on-quit] defalias toggle-debug-on-quit #[#1=(&optional interactively) "\303\304!\210\304\305N\206 \306\304\307N\206 \310\211\304\304!?\"*\203' \311\312\313\"\210\202, \311\312\314\"\210\n\2053 \315\304!\207" [get set interactively custom-load-symbol debug-on-quit custom-set set-default custom-get default-value message "Debug on Quit %s" #2="enabled globally" #3="disabled globally" customize-mark-as-set] 5 "Toggle whether to enter Lisp debugger when C-g is pressed.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers." #4="p"] (menu-item "Enter Debugger on Quit/C-g" toggle-debug-on-quit :help "Enter Lisp debugger when C-g is pressed" :button (:toggle and (default-boundp 'debug-on-quit) (default-value 'debug-on-quit))) [debug-on-error] toggle-debug-on-error #[#1# "\303\304!\210\304\305N\206 \306\304\307N\206 \310\211\304\304!?\"*\203' \311\312\313\"\210\202, \311\312\314\"\210\n\2053 \315\304!\207" [get set interactively custom-load-symbol debug-on-error custom-set set-default custom-get default-value message "Debug on Error %s" #2# #3# customize-mark-as-set] 5 "Toggle whether to enter Lisp debugger when an error is signaled.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers." #4#] (menu-item "Enter Debugger on Error" toggle-debug-on-error :help "Enter Lisp debugger when an error is signaled" :button (:toggle and (default-boundp 'debug-on-error) (default-value 'debug-on-error))) [debugger-separator] ("--") [blink-cursor-mode] (menu-item "Blinking Cursor" blink-cursor-mode :help "Whether the cursor blinks (Blink Cursor mode)" :button (:toggle and (default-boundp 'blink-cursor-mode) (default-value 'blink-cursor-mode))) [cursor-separator] ("--") [save-place] toggle-save-place-globally #[#1# "\301\302!\210\303\304\211J?\"\203 \305\306\307\"\210\202 \305\306\310\"\210\205! \311\304!\207" [interactively require saveplace set-default save-place message "Saving place in files %s" #2# #3# customize-mark-as-set] 3 "Toggle whether to visit files of previous session when restarting Emacs.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers." #4#] (menu-item "Save Place in Files between Sessions" toggle-save-place-globally :help "Visit files of previous session when restarting Emacs" :button (:toggle and (default-boundp 'save-place) (default-value 'save-place))) [uniquify] toggle-uniquify-buffer-names #[#1# "\302\303!\210?\205\n \304\211\203 \305\306\307\"\210\202 \305\306\310\"\210 \205# \311\300!\207" [uniquify-buffer-name-style interactively require uniquify forward message "Directory name in buffer names (uniquify) %s" #2# #3# customize-mark-as-set] 3 "Toggle whether to uniquify buffer names by adding parent directory names.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers." #4#] (menu-item "Use Directory Names in Buffer Names" toggle-uniquify-buffer-names :help "Uniquify buffer names by adding parent directory names" :button (:toggle and (default-boundp 'uniquify-buffer-name-style) (default-value 'uniquify-buffer-name-style))) [edit-options-separator] ("--") [cua-mode] (menu-item "C-x/C-c/C-v Cut and Paste (CUA)" cua-mode :visible (or (not (boundp 'cua-enable-cua-keys)) cua-enable-cua-keys) :help "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste" :button (:toggle and (default-boundp 'cua-mode) (default-value 'cua-mode))) [cua-emulation-mode] (menu-item "Shift movement mark region (CUA)" cua-mode :visible (and (boundp 'cua-enable-cua-keys) (not cua-enable-cua-keys)) :help "Use shifted movement keys to set and extend the region." :button (:toggle and (default-boundp 'cua-mode) (default-value 'cua-mode))) [case-fold-search] toggle-case-fold-search #[#1# "\303\304!\210\304\305N\206 \306\304\307N\206 \310\211\304\304!?\"*\203' \311\312\313\"\210\202, \311\312\314\"\210\n\2053 \315\304!\207" [get set interactively custom-load-symbol case-fold-search custom-set set-default custom-get default-value message "Case-Insensitive Search %s" #2# #3# customize-mark-as-set] 5 "Toggle whether to ignore letter-case in search commands.\nIn an interactive call, record this option as a candidate for saving\nby \"Save Options\" in Custom buffers." #4#] (menu-item "Case-Insensitive Search" toggle-case-fold-search :help "Ignore letter-case in search commands" :button (:toggle and (default-boundp 'case-fold-search) (default-value 'case-fold-search)))] 12) (defalias 'menu-bar-text-mode-auto-fill #[nil "\300 \210\301\302!\207" [toggle-text-mode-auto-fill customize-mark-as-set text-mode-hook] 2 nil nil]) (byte-code "\303\304\305#\210\302 B\306\302!\204 \307\302\310\311!\"\210\303\n\312\313#\210\303\n\314\315#\210\303\n\316\317#\210\303\320\321\322\nE#\210\303\323\324#\210\303\325\326#\210\303\327\330#\207" [menu-bar-options-menu current-load-list menu-bar-line-wrapping-menu define-key [auto-fill-mode] (menu-item "Auto Fill in Text Modes" menu-bar-text-mode-auto-fill :help "Automatically fill text while typing (Auto Fill mode)" :button (:toggle if (listp text-mode-hook) (member 'turn-on-auto-fill text-mode-hook) (eq 'turn-on-auto-fill text-mode-hook))) default-boundp set-default make-sparse-keymap "Line Wrapping" [word-wrap] (menu-item "Word Wrap (Visual Line mode)" (lambda nil (interactive) (unless visual-line-mode (visual-line-mode 1)) (message "Visual-Line mode enabled")) :help "Wrap long lines at word boundaries" :button (:radio and (null truncate-lines) (not (truncated-partial-width-window-p)) word-wrap) :visible (menu-bar-menu-frame-live-and-visible-p)) [truncate] (menu-item "Truncate Long Lines" (lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (setq word-wrap nil) (toggle-truncate-lines 1)) :help "Truncate long lines at window edge" :button (:radio or truncate-lines (truncated-partial-width-window-p)) :visible (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncated-partial-width-window-p))) [window-wrap] (menu-item "Wrap at Window Edge" (lambda nil (interactive) (if visual-line-mode (visual-line-mode 0)) (setq word-wrap nil) (if truncate-lines (toggle-truncate-lines -1))) :help "Wrap long lines at window edge" :button (:radio and (null truncate-lines) (not (truncated-partial-width-window-p)) (not word-wrap)) :visible (menu-bar-menu-frame-live-and-visible-p) :enable (not (truncated-partial-width-window-p))) [line-wrapping] menu-item "Line Wrapping in this Buffer" [highlight-separator] ("--") [highlight-paren-mode] (menu-item "Paren Match Highlighting" show-paren-mode :help "Highlight matching/mismatched parentheses at cursor (Show Paren mode)" :button (:toggle and (default-boundp 'show-paren-mode) (default-value 'show-paren-mode))) [transient-mark-mode] (menu-item "Active Region Highlighting" transient-mark-mode :enable (not cua-mode) :help "Make text in active region stand out in color (Transient Mark mode)" :button (:toggle and (default-boundp 'transient-mark-mode) (default-value 'transient-mark-mode)))] 6) (defalias 'send-mail-item-name #[nil "\303 \236\211\203 \nA\202 \304 !\305\306\n\"\203 \307\310\n\"\n*\207" [known-send-mail-commands mail-user-agent name ((sendmail-user-agent . "sendmail") (mh-e-user-agent . "MH") (message-user-agent . "Gnus Message") (gnus-user-agent . "Gnus")) symbol-name string-match "\\(.+\\)-user-agent" match-string 1] 4]) (defalias 'read-mail-item-name #[nil "\303 \236\211\203 \nA\202 \304 !*\207" [known-rmail-commands read-mail-command known ((rmail . "RMAIL") (mh-rmail . "MH") (gnus . "Gnus")) symbol-name] 3]) (byte-code "\302B\304\302!\204 \305\302\306\307!\"\210\310 \311\312\307\nE#\210\310 \313\314#\210\310\n\315\316#\210\310\n\317\320#\210\310\n\321\322#\210\310\n\323\324#\210\310\n\325\326#\210\310\n\327\330#\210\310\n\331\332#\210\310\n\333\334#\210\310\n\335\336#\210\310\n\337\340#\210\310\n\341\342#\210\310\n\343\344#\210\310\n\345\346#\210\303B\304\303!\204 \305\303\306\347!\"\210\310 \350\312\347 E#\210\310 \351\352#\210\310 \353\354#\210\310 \355\356#\210\310 \357\360#\210\310 \361\362#\210\310 \363\364#\210\310 \365\366#\210\310 \367\370#\210\310 \371\372#\210\310 \373\374#\210\310 \375\376#\210\310 \377\201@ #\210\310 \201A \201B #\210\310 \201C \201D #\210\310 \201E \201F #\210\310 \201G \201H #\210\310 \201I \201J #\210\310 \201K \201L #\210\310 \201M \201N #\210\310 \201O \201P #\210\310 \201Q \201R #\210\310 \201S \312\201T \201U \201V \201W \201X \201Y \257#\210\310 \201Z \312\201[ \201\\ \201V \201] \201X \201^ \257#\207" [current-load-list menu-bar-tools-menu menu-bar-games-menu menu-bar-encryption-decryption-menu default-boundp set-default make-sparse-keymap "Games" define-key [games] menu-item [separator-games] ("--") [zone] (menu-item "Zone Out" zone :help "Play tricks with Emacs display when Emacs is idle") [tetris] (menu-item "Tetris" tetris :help "Falling blocks game") [solitaire] (menu-item "Solitaire" solitaire :help "Get rid of all the stones") [snake] (menu-item "Snake" snake :help "Move snake around avoiding collisions") [pong] (menu-item "Pong" pong :help "Bounce the ball to your opponent") [mult] (menu-item "Multiplication Puzzle" mpuz :help "Exercise brain with multiplication") [life] (menu-item "Life" life :help "Watch how John Conway's cellular automaton evolves") [hanoi] (menu-item "Towers of Hanoi" hanoi :help "Watch Towers-of-Hanoi puzzle solved by Emacs") [gomoku] (menu-item "Gomoku" gomoku :help "Mark 5 contiguous squares (like tic-tac-toe)") [bubbles] (menu-item "Bubbles" bubbles :help "Remove all bubbles using the fewest moves") [black-box] (menu-item "Blackbox" blackbox :help "Find balls in a black box by shooting rays") [adventure] (menu-item "Adventure" dunnet :help "Dunnet, a text Adventure game for Emacs") [5x5] (menu-item "5x5" 5x5 :help "Fill in all the squares on a 5x5 board") "Encryption/Decryption" [encryption-decryption] [separator-encryption-decryption] ("--") [insert-keys] (menu-item "Insert Keys" epa-insert-keys :help "Insert public keys after the current point") [export-keys] (menu-item "Export Keys" epa-export-keys :help "Export public keys to a file") [import-keys-region] (menu-item "Import Keys from Region" epa-import-keys-region :help "Import public keys from the current region") [import-keys] (menu-item "Import Keys from File..." epa-import-keys :help "Import public keys from a file") [list-keys] (menu-item "List Keys" epa-list-keys :help "Browse your public keyring") [separator-keys] ("--") [sign-region] (menu-item "Sign Region" epa-sign-region :help "Create digital signature of the current region") [verify-region] (menu-item "Verify Region" epa-verify-region :help "Verify digital signature of the current region") [encrypt-region] (menu-item "Encrypt Region" epa-encrypt-region :help "Encrypt the current region") [decrypt-region] (menu-item "Decrypt Region" epa-decrypt-region :help "Decrypt the current region") [separator-file] ("--") [sign-file] (menu-item "Sign File..." epa-sign-file :help "Create digital signature of a file") [verify-file] (menu-item "Verify File..." epa-verify-file :help "Verify digital signature of a file") [encrypt-file] (menu-item "Encrypt File..." epa-encrypt-file :help "Encrypt a file") [decrypt-file] (menu-item "Decrypt File..." epa-decrypt-file :help "Decrypt a file") [simple-calculator] (menu-item "Simple Calculator" calculator :help "Invoke the Emacs built-in quick calculator") [calc] (menu-item "Programmable Calculator" calc :help "Invoke the Emacs built-in full scientific calculator") [calendar] (menu-item "Calendar" calendar :help "Invoke the Emacs built-in calendar") [separator-net] ("--") [directory-search] (menu-item "Directory Search" eudc-tools-menu) [compose-mail] (format "Send Mail (with %s)" (send-mail-item-name)) compose-mail :visible (and mail-user-agent (not (eq mail-user-agent 'ignore))) :help "Send a mail message" [rmail] (format "Read Mail (with %s)" (read-mail-item-name)) menu-bar-read-mail (and read-mail-command (not (eq read-mail-command 'ignore))) "Read your mail and reply to it"] 10) #@38 Read mail using `read-mail-command'. (defalias 'menu-bar-read-mail #[nil "\301!\207" [read-mail-command call-interactively] 2 (#$ . 46227) nil]) (byte-code "\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\337\340#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\302 B\347\302!\204w \350\302\351\352!\"\210\304\n\353\354#\210\304\n\355\356#\210\304\n\357\360#\210\304\n\361\362#\210\304\n\363\364\365 E#\210\304\n\366\367#\210\304\n\370\371#\210\304\n\372\373#\210\304\n\374\375#\210\304\n\376\377#\210\304\n\201@ \201A #\210\304\n\201B \201C #\210\304\n\201D \201E #\210\201F B\347\201F !\204\355 \350\201F \351\201G !\"\210\314\207" [menu-bar-tools-menu current-load-list menu-bar-describe-menu describe-language-environment-map define-key [gnus] (menu-item "Read Net News (Gnus)" gnus :help "Read network news groups") [separator-vc] ("--") [pcl-cvs] (menu-item "PCL-CVS" cvs-global-menu) [vc] nil [separator-compare] ("--") [ediff-misc] (menu-item "Ediff Miscellanea" menu-bar-ediff-misc-menu) [epatch] (menu-item "Apply Patch" menu-bar-epatch-menu) [ediff-merge] (menu-item "Merge" menu-bar-ediff-merge-menu) [compare] (menu-item "Compare (Ediff)" menu-bar-ediff-menu) [separator-spell] ("--") [spell] (menu-item "Spell Checking" ispell-menu-map) [separator-prog] ("--") [gdb] (menu-item "Debugger (GDB)..." gdb :help "Debug a program from within Emacs with GDB") [shell-on-region] (menu-item "Shell Command on Region..." shell-command-on-region :enable mark-active :help "Pass marked region to a shell command") [shell] (menu-item "Shell Command..." shell-command :help "Invoke a shell command and catch its output") [compile] (menu-item "Compile..." compile :help "Invoke compiler or Make, view compilation errors") [grep] (menu-item "Search Files (Grep)..." grep :help "Search files for strings or regexps (with Grep)") default-boundp set-default make-sparse-keymap "Describe" [mule-diag] (menu-item "Show All of Mule Status" mule-diag :visible default-enable-multibyte-characters :help "Display multilingual environment settings") [describe-coding-system-briefly] (menu-item "Describe Coding System (Briefly)" describe-current-coding-system-briefly :visible default-enable-multibyte-characters) [describe-coding-system] (menu-item "Describe Coding System..." describe-coding-system :visible default-enable-multibyte-characters) [describe-input-method] (menu-item "Describe Input Method..." describe-input-method :visible default-enable-multibyte-characters :help "Keyboard layout for specific input method") [describe-language-environment] menu-item "Describe Language Environment" [separator-desc-mule] ("--") [list-keybindings] (menu-item "List Key Bindings" describe-bindings :help "Display all current key bindings (keyboard shortcuts)") [describe-current-display-table] (menu-item "Describe Display Table" describe-current-display-table :help "Describe the current display table") [describe-face] (menu-item "Describe Face..." describe-face :help "Display the properties of a face") [describe-variable] (menu-item "Describe Variable..." describe-variable :help "Display documentation of variable/option") [describe-function] (menu-item "Describe Function..." describe-function :help "Display documentation of function/command") [describe-key-1] (menu-item "Describe Key or Mouse Operation..." describe-key :help "Display documentation of command bound to a key, a click, or a menu-item") [describe-mode] (menu-item "Describe Buffer Modes" describe-mode :help "Describe this buffer's major and minor mode") menu-bar-search-documentation-menu "Search Documentation"] 6) #@55 Display the Emacs Lisp Reference manual in Info mode. (defalias 'menu-bar-read-lispref #[nil "\300\301!\207" [info "elisp"] 2 (#$ . 50020) nil]) #@66 Display the Introduction to Emacs Lisp Programming in Info mode. (defalias 'menu-bar-read-lispintro #[nil "\300\301!\207" [info "eintr"] 2 (#$ . 50171) nil]) #@61 Display the Glossary node of the Emacs manual in Info mode. (defalias 'search-emacs-glossary #[nil "\300\301!\207" [info "(emacs)Glossary"] 2 (#$ . 50335) nil]) #@56 Look up TOPIC in the indices of the Emacs User Manual. (defalias 'emacs-index-search #[(topic) "\301\302!\210\303!\207" [topic info "emacs" Info-index] 2 (#$ . 50502) "sSubject to look up: "]) #@66 Look up TOPIC in the indices of the Emacs Lisp Reference Manual. (defalias 'elisp-index-search #[(topic) "\301\302!\210\303!\207" [topic info "elisp" Info-index] 2 (#$ . 50702) "sSubject to look up: "]) (byte-code "\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332#\210\302 B\333\302!\204S \334\302\335\336!\"\210\304\n\337\340#\210\304\n\341\342#\210\304\n\343\344#\210\304\n\345\346#\210\304\n\347\350#\210\304\n\351\352#\210\304\n\353\354#\210\304 \355\356#\210\304 \357\360#\210\304 \361\362#\210\304 \363\364#\210\304 \365\366#\210\304 \367\370#\207" [menu-bar-search-documentation-menu current-load-list menu-bar-manuals-menu menu-bar-help-menu define-key [search-documentation-strings] (menu-item "Search Documentation Strings..." apropos-documentation :help "Find functions and variables whose doc strings match a regexp") [find-any-object-by-name] (menu-item "Find Any Object by Name..." apropos :help "Find symbols of any kind whose names match a regexp") [find-option-by-value] (menu-item "Find Options by Value..." apropos-value :help "Find variables whose values match a regexp") [find-options-by-name] (menu-item "Find Options by Name..." apropos-variable :help "Find variables whose names match a regexp") [find-commands-by-name] (menu-item "Find Commands by Name..." apropos-command :help "Find commands whose names match a regexp") [sep1] ("--") [lookup-command-in-manual] (menu-item "Look Up Command in User Manual..." Info-goto-emacs-command-node :help "Display manual section that describes a command") [lookup-key-in-manual] (menu-item "Look Up Key in User Manual..." Info-goto-emacs-key-command-node :help "Display manual section that describes a key") [lookup-subject-in-elisp-manual] (menu-item "Look Up Subject in ELisp Manual..." elisp-index-search :help "Find description of a subject in Emacs Lisp manual") [lookup-subject-in-emacs-manual] (menu-item "Look Up Subject in User Manual..." emacs-index-search :help "Find description of a subject in Emacs User manual") [emacs-terminology] (menu-item "Emacs Terminology" search-emacs-glossary :help "Display the Glossary section of the Emacs manual") default-boundp set-default make-sparse-keymap "More Manuals" [man] (menu-item "Read Man Page..." manual-entry :help "Man-page docs for external commands and libraries") [sep2] ("--") [order-emacs-manuals] (menu-item "Ordering Manuals" view-order-manuals :help "How to order manuals from the Free Software Foundation") [lookup-subject-in-all-manuals] (menu-item "Lookup Subject in all Manuals..." info-apropos :help "Find description of a subject in all installed manuals") [other-manuals] (menu-item "All Other Manuals (Info)" Info-directory :help "Read any of the installed manuals") [emacs-lisp-reference] (menu-item "Emacs Lisp Reference" menu-bar-read-lispref :help "Read the Emacs Lisp Reference manual") [emac-lisp-intro] (menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro :help "Read the Introduction to Emacs Lisp Programming") [about-gnu-project] (menu-item "About GNU" describe-gnu-project :help "About the GNU System, GNU Project, and GNU/Linux") [about-emacs] (menu-item "About Emacs" about-emacs :help "Display version number, copyright info, and basic help") [sep4] ("--") [describe-no-warranty] (menu-item "(Non)Warranty" describe-no-warranty :help "Explain that Emacs has NO WARRANTY") [describe-copying] (menu-item "Copying Conditions" describe-copying :help "Show the Emacs license (GPL)") [getting-new-versions] (menu-item "Getting New Versions" describe-distribution :help "How to get the latest version of Emacs")] 4) #@66 Display help about some additional packages available for Emacs. (defalias 'menu-bar-help-extra-packages #[nil "\302\303\304\305 \"!\210\306\307!)\207" [enable-local-variables data-directory nil view-file expand-file-name "MORE.STUFF" goto-address-mode 1] 4 (#$ . 54431) nil]) (byte-code "\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314\315 E#\210\304\316\317#\210\304\320\314\321\nE#\210\304\322\314\323 E#\210\304\324\325#\210\304\326\327#\210\304\330\331#\210\304\332\333#\210\304\334\335#\210\304\336\337#\207" [menu-bar-help-menu menu-bar-manuals-menu menu-bar-describe-menu menu-bar-search-documentation-menu define-key [sep2] ("--") [external-packages] (menu-item "External Packages" menu-bar-help-extra-packages :help "Lisp packages distributed separately for use in Emacs") [find-emacs-packages] (menu-item "Find Emacs Packages" finder-by-keyword :help "Find packages and features by keyword") [more-manuals] menu-item "More Manuals" [emacs-manual] (menu-item "Read the Emacs Manual" info-emacs-manual :help "Full documentation of Emacs features") [describe] "Describe" [search-documentation] "Search Documentation" [sep1] ("--") [emacs-psychotherapist] (menu-item "Emacs Psychotherapist" doctor :help "Our doctor will help you feel better") [send-emacs-bug-report] (menu-item "Send Bug Report..." report-emacs-bug :help "Send e-mail to Emacs maintainers") [emacs-known-problems] (menu-item "Emacs Known Problems" view-emacs-problems :help "Read about known problems with Emacs") [emacs-news] (menu-item "Emacs News" view-emacs-news :help "New features of this version") [emacs-faq] (menu-item "Emacs FAQ" view-emacs-FAQ :help "Frequently asked (and answered) questions about Emacs")] 6) #@61 Use the Emacs tutorial, specifying which language you want. (defalias 'help-with-tutorial-spec-language #[nil "\300\301!\207" [help-with-tutorial t] 2 (#$ . 56164) nil]) (byte-code "\301\302\303#\210\301\304\305#\207" [menu-bar-help-menu define-key [emacs-tutorial-language-specific] (menu-item "Emacs Tutorial (choose language)..." help-with-tutorial-spec-language :help "Learn how to use Emacs (choose a language)") [emacs-tutorial] (menu-item "Emacs Tutorial" help-with-tutorial :help "Learn how to use Emacs")] 4) #@120 Return non-nil if the menu frame is alive and visible. The menu frame is the frame for which we are updating the menu. (defalias 'menu-bar-menu-frame-live-and-visible-p #[nil "\206 \302 \303 !\205 \304 !)\207" [menu-updating-frame menu-frame selected-frame frame-live-p frame-visible-p] 2 (#$ . 56691)]) #@183 Return non-nil if selected window of the menu frame is not a minibuf window. See the documentation of `menu-bar-menu-frame-live-and-visible-p' for the definition of the menu frame. (defalias 'menu-bar-non-minibuffer-window-p #[nil "\206 \302 \303\304 !!)?\207" [menu-updating-frame menu-frame selected-frame window-minibuffer-p frame-selected-window] 3 (#$ . 57006)]) #@113 Kill the current buffer. When called in the minibuffer, get out of the minibuffer using `abort-recursive-edit'. (defalias 'kill-this-buffer #[nil "\300 \203 \301p!\207\302 \207" [menu-bar-non-minibuffer-window-p kill-buffer abort-recursive-edit] 2 (#$ . 57385) nil]) (defalias 'kill-this-buffer-enabled-p #[nil "\302\303 \203 \304\305\306@!\"\204 TA\211\204 \307 ?\206& \310V*\207" [buffers count 0 buffer-list string-match "^ " buffer-name menu-bar-non-minibuffer-window-p 1] 5]) (put 'dired 'menu-enable '(menu-bar-non-minibuffer-window-p)) #@69 Return non-nil if `delete-frame' should be enabled in the menu bar. (defalias 'delete-frame-enabled-p #[nil "\302 \303\211\203 \304 @!\203 T A\211\204 \305V*\207" [count frames frame-list 0 frame-visible-p 1] 3 (#$ . 57947)]) #@45 Maximum length to display in the yank-menu. (custom-declare-variable 'yank-menu-length '20 '(#$ . 58188) :type 'integer :group 'menu) (defalias 'menu-bar-update-yank-menu #[(string old) "A@ G\nX\203 \202 \306\n\307\245O\310 \n\307\245[\311OQ \312\313 \"\203* \314P \203H \f@=\204< \f@\230\203H \f \240\210\fA \240\210\202S \315BBAB\241\210*AGV\205c \233\311\241\207" [yank-menu string yank-menu-length menu-string front old 0 2 "..." nil string-match "\\`-+\\'" " " menu-bar-select-yank kill-ring-max] 6]) (put 'menu-bar-select-yank 'apropos-inhibit t) #@134 Insert the stretch of previously-killed text selected from menu. The menu shows all the killed text sequences stored in `kill-ring'. (defalias 'menu-bar-select-yank #[nil "\301`!\210c\207" [last-command-event push-mark] 2 (#$ . 58768) "*"]) #@238 Maximum number of entries which may appear on the Buffers menu. If this is 10, then only the ten most-recently-selected buffers are shown. If this is nil, then all buffers are shown. A large number or nil slows down menu responsiveness. (custom-declare-variable 'buffers-menu-max-size '10 '(#$ . 59017) :type '(choice integer (const :tag "All" nil)) :group 'menu) #@225 Maximum length of the buffer name on the Buffers menu. If this is a number, then buffer names are truncated to this length. If this is nil, then buffer names are shown in full. A large number or nil makes the menu too wide. (custom-declare-variable 'buffers-menu-buffer-name-length '30 '(#$ . 59388) :type '(choice integer (const :tag "Full length" nil)) :group 'menu) #@414 If non-nil, show directories in the Buffers menu for buffers that have them. The special value `unless-uniquify' means that directories will be shown unless `uniquify-buffer-name-style' is non-nil (in which case, buffer names should include enough of a buffer's directory to distinguish it from other buffers). Setting this variable directly does not take effect until next time the Buffers menu is regenerated. (custom-declare-variable 'buffers-menu-show-directories ''unless-uniquify '(#$ . 59764) :set #[(symbol value) " L\210\302\303!\207" [symbol value menu-bar-update-buffers t] 2] :initialize 'custom-initialize-default :type '(choice (const :tag "Never" nil) (const :tag "Unless uniquify is enabled" unless-uniquify) (const :tag "Always" t)) :group 'menu) #@177 If non-nil, show modified/read-only status of buffers in the Buffers menu. Setting this variable directly does not take effect until next time the Buffers menu is regenerated. (custom-declare-variable 'buffers-menu-show-status 't '(#$ . 60537) :set #[(symbol value) " L\210\302\303!\207" [symbol value menu-bar-update-buffers t] 2] :initialize 'custom-initialize-default :type 'boolean :group 'menu) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list list-buffers-directory default-boundp set-default nil] 3) (defalias 'menu-bar-select-buffer #[nil "\301!\207" [last-command-event switch-to-buffer] 2 nil nil]) (defalias 'menu-bar-select-frame #[(frame) "\301!\210\302!\210\303!\207" [frame make-frame-visible raise-frame select-frame] 2]) (defalias 'menu-bar-update-buffers-1 #[(elt) "@\n\306=\203 \307\303!\203 ?\202 \n\205\" \310 !\206\" \311\312 \"\211 \203+ \313\f!\f\203= \fG\314V\203= \315\f\316\317OP \203z \320 !\203K \321\202L \322\311\323 \"\203W \324\202X \322 \f\203m \325\326A\f%\202v \325\327A$*\202\211 \f\203\207 \325\330A\f#\202\211 A *B\207" [elt buf buffers-menu-show-directories uniquify-buffer-name-style file buffers-menu-show-status unless-uniquify boundp buffer-file-name buffer-local-value list-buffers-directory file-name-directory 20 "..." -17 nil buffer-modified-p "*" "" buffer-read-only "%" format "%s %s%s -- %s" "%s %s%s" "%s -- %s" ro mod] 7]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list menu-bar-buffers-menu-command-entries default-boundp set-default nil] 3) (defalias 'menu-bar-update-buffers #[(&optional force) "\306\307 \310\"\205^\204 \311 \205^\312 \313 \314\f\250\2031 \f\315V\2031 G\fV\2031 \f \233\314\241\210\314 \314 1\211 2\203\211 2@1\3161!\211 \317H\320=\204 \32113\250\203x G3V\203x \3173\322\245O\3233\322\245[\314OQ\202z B! B)2A\2112\204= *\324 G\314\" G 4 5 \314 6\211 7\203\311 7@64S4546@\314\211BD\325\314\326\3276ADF\244I\2107A\2117\204\237 *5+C\nA\203(\324\nG\314\" 8\330\3318DB 9\317 4\n\314 :\211 ;\203;@:84\332:\333\"\314\211BD\325\314\334\335:DF\244I\2104T4;A\211;\204\360 * \336\302\337\3409FD\244+<\204R\341\342\337\343\342\344\345\257\346\337\347\346\344\350\257\351\337\352\327\344\353\257\354\337\355\356\344\357\257\257< <\244=\360 B\241+\207" [force buffers-menu frames buffers buffers-menu-max-size alist lookup-key current-global-map [menu-bar buffer] frame-or-buffer-changed-p buffer-list frame-list nil 1 buffer-name 0 32 menu-bar-update-buffers-1 2 "..." make-vector lambda (interactive) switch-to-buffer keymap "Select Frame" frame-parameter name (interactive) menu-bar-select-frame (frames-separator "--") menu-item "Frames" (command-separator "--") next-buffer "Next Buffer" :help "Switch to the \"next\" buffer in a cyclic order" previous-buffer "Previous Buffer" "Switch to the \"previous\" buffer in a cyclic order" select-named-buffer "Select Named Buffer..." "Prompt for a buffer name, and select that buffer in the current window" list-all-buffers "List All Buffers" list-buffers "Pop up a window listing all Emacs buffers" "Select Buffer" buf #1=#:--cl-dolist-temp-- buffers-menu-buffer-name-length i buffers-vec pair #2=#:--cl-dolist-temp-- frames-vec frames-menu frame #3=#:--cl-dolist-temp-- menu-bar-buffers-menu-command-entries global-buffers-menu-map] 10]) (byte-code "\304\305\306\"\210\306 \210 D\307\211\203& @\310\n\311\312\313\312!B#\210 A\211\204 * \310\n\314\315\316\317\320\321\257#\210\310\n\322\315\323\324\320\325\257#\210\310\n\326\315\327\330\320\331\257#\210)\310\n\332\315\333\334\320\335\257#\210\310\n\336\315\337\340\341\342\320\343\257#\210\310\n\344\315\345\346\320\347\257#\210\310\n\350\315\351\352\320\353\257#\210\310\n\354\315\355\356\320\357\257#\210\310\n\360\315\361\362\320\363\257#\210)\364\365\366\367#\207" [minibuffer-local-map minibuffer-local-completion-map map #:--cl-dolist-temp-- add-hook menu-bar-update-hook menu-bar-update-buffers nil define-key [menu-bar minibuf] "Minibuf" make-sparse-keymap [menu-bar minibuf 63] menu-item "List Completions" minibuffer-completion-help :help "Display all possible completions" [menu-bar minibuf space] "Complete Word" minibuffer-complete-word "Complete at most one word" [menu-bar minibuf tab] "Complete" minibuffer-complete "Complete as far as possible" [menu-bar minibuf quit] "Quit" abort-recursive-edit "Abort input and exit minibuffer" [menu-bar minibuf return] "Enter" exit-minibuffer :key-sequence " " "Terminate input and exit minibuffer" [menu-bar minibuf isearch-forward] "Isearch History Forward" isearch-forward "Incrementally search minibuffer history forward" [menu-bar minibuf isearch-backward] "Isearch History Backward" isearch-backward "Incrementally search minibuffer history backward" [menu-bar minibuf next] "Next History Item" next-history-element "Put next minibuffer history element in the minibuffer" [menu-bar minibuf previous] "Previous History Item" previous-history-element "Put previous minibuffer history element in the minibuffer" put menu-bar-mode standard-value (t)] 10) #@260 Non-nil if Menu-Bar mode is enabled. See the command `menu-bar-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `menu-bar-mode'. (custom-declare-variable 'menu-bar-mode 'nil '(#$ . 65705) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'frames :type 'boolean) #@235 Toggle display of a menu bar on each frame. This command applies to all frames that exist and frames to be created in the future. With a numeric argument, if the argument is positive, turn on menu bars; otherwise, turn off menu bars. (defalias 'menu-bar-mode #[(&optional arg) "\303 \304=\203 \n?\202( \203 \305 !\306V\202( \n\204\" \307\202( \310\311\302\"\210\312\313\314\n\2033 \315\2024 \306BC!\210t\203G \n\204G \316\306\312\310\317$\210\n\210\320\321\n\203S \322\202T \323\"\210\324 \203x \325\302!\210\303 \203k \303 \232\203x \310\326\n\203u \327\202v \330\"\210)\331 \210\n\207" [#1=#:last-message arg menu-bar-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil modify-all-frames-parameters menu-bar-lines 1 run-with-idle-timer "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear." run-hooks menu-bar-mode-hook menu-bar-mode-on-hook menu-bar-mode-off-hook called-interactively-p customize-mark-as-set "Menu-Bar mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 66128) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode menu-bar-mode nil boundp menu-bar-mode-map] 5) #@112 Toggle menu bar on or off, based on the status of the current frame. See `menu-bar-mode' for more information. (defalias 'toggle-menu-bar-mode-from-frame #[(&optional arg) "\301=\203 \302\303\304\305\"\306V\203 \306\202 \307!\207\302!\207" [arg toggle menu-bar-mode frame-parameter nil menu-bar-lines 0 1] 4 (#$ . 67372) (list (or current-prefix-arg 'toggle))]) #@313 Start key navigation of the menu bar in FRAME. This function decides which method to use to access the menu depending on FRAME's terminal device. On X displays, it calls `x-menu-bar-open'; on Windows, `w32-menu-bar-open' otherwise it calls `tmm-menubar'. If FRAME is nil or not given, use the selected frame. (defalias 'menu-bar-open #[(&optional frame) "\304\206 \305 !\211\306=\203 \307!\2025 \310=\203! \311!\2025 \305 p\312\216\313\206/ \305 \314\"\210\315 +)\207" [frame type #1=#:old-buffer #2=#:old-frame framep selected-frame x x-menu-bar-open w32 w32-menu-bar-open ((byte-code "\302!\203 \303\304\"\210\305 !\203 q\210\302\207" [#2# #1# frame-live-p select-frame norecord buffer-live-p] 3)) select-frame norecord tmm-menubar] 4 (#$ . 67746) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [global-set-key [f10] menu-bar-open provide menu-bar] 3)
Close
