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 : mouse.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:15 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mouse.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 "`mouse.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (put 'track-mouse 'lisp-indent-function 0) #@68 If non-nil, mouse yank commands yank at point instead of at click. (custom-declare-variable 'mouse-yank-at-point 'nil '(#$ . 642) :type 'boolean :group 'mouse) #@52 If non-nil, mouse drag copies region to kill-ring. (custom-declare-variable 'mouse-drag-copy-region 't '(#$ . 808) :type 'boolean :version "22.1" :group 'mouse) #@1150 Non-nil means that clicking Mouse-1 on a link follows the link. With the default setting, an ordinary Mouse-1 click on a link performs the same action as Mouse-2 on that link, while a longer Mouse-1 click (hold down the Mouse-1 button for more than 450 milliseconds) performs the original Mouse-1 binding (which typically sets point where you click the mouse). If value is an integer, the time elapsed between pressing and releasing the mouse button determines whether to follow the link or perform the normal Mouse-1 action (typically set point). The absolute numeric value specifices the maximum duration of a "short click" in milliseconds. A positive value means that a short click follows the link, and a longer click performs the normal action. A negative value gives the opposite behavior. If value is `double', a double click follows the link. Otherwise, a single Mouse-1 click unconditionally follows the link. Note that dragging the mouse never follows the link. This feature only works in modes that specifically identify clickable text as links, so it may not work with some external packages. See `mouse-on-link-p' for details. (custom-declare-variable 'mouse-1-click-follows-link '450 '(#$ . 977) :version "22.1" :type '(choice (const :tag "Disabled" nil) (const :tag "Double click" double) (number :tag "Single click time limit" :value 450) (other :tag "Single click" t)) :group 'mouse) #@237 If non-nil, a Mouse-1 click also follows links in non-selected windows. If nil, a Mouse-1 click on a link in a non-selected window performs the normal mouse-1 binding, typically selects the window and sets point at the click position. (custom-declare-variable 'mouse-1-click-in-non-selected-windows 't '(#$ . 2394) :type 'boolean :version "22.1" :group 'mouse) #@310 Popup the given menu and call the selected option. MENU can be a keymap, an easymenu-style menu or a list of keymaps as for `x-popup-menu'. POSITION can be a click event or ((XOFFSET YOFFSET) WINDOW) and defaults to the current mouse position. PREFIX is the prefix argument (if any) to pass to the command. (defalias 'popup-menu #[(menu &optional position prefix) "\306!\203\n \202: <\203 \306@!\203 \202: \307@A\"\2119\205, \310 \311N\312\"\211\2038 \n K!\2029 *\313\211 \204] \314 \211 \211 A@)\211 AA)D@D) \203\276 \315 \316 !\"\211\203\276 \306 !\204\246 <\203\246 \317\320 \"\313 \203\240 \204\240 \321 @\"\211\247\203\231 \313 A\211\204\204 *\202\255 \321 \317\320 \"\"\322\323!\210\306\f!\205\271 \f\211\204a ?\205\326 \324\f!\205\326 \325 !@ \326\f!+\207" [menu map filter event cmd position keymapp easy-menu-create-menu plist-get menu-prop :filter nil mouse-pixel-position x-popup-menu indirect-function apply vector lookup-key message "" commandp last call-interactively mp x binding mouse-click prefix prefix-arg last-command-event] 6 (#$ . 2763)]) #@199 Show menu for minor mode specified by INDICATOR. Interactively, INDICATOR is read using completion. If there is no menu defined for the minor mode, then create one with items `Turn Off' and `Help'. (defalias 'minor-mode-menu-from-indicator #[(indicator) "\305!\211\204 \306\307\"\210 \n\236\243\310 !\205 \311 \312\"\211 \203' \313\f!\202< \314\315\316\317 F\320\316\321\322\323\324\325\326 DDFFF\327\f!+\207" [indicator minor-mode minor-mode-map-alist map menu lookup-minor-mode-from-indicator error "Cannot find minor mode for `%s'" keymapp lookup-key [menu-bar] mouse-menu-non-singleton keymap turn-off menu-item "Turn Off minor mode" help "Help for minor mode" lambda nil (interactive) describe-function quote popup-menu] 13 (#$ . 3881) (list (completing-read "Minor mode indicator: " (describe-minor-mode-completion-table-for-indicator)))]) #@70 Show minor-mode menu for EVENT on minor modes area of the mode line. (defalias 'mouse-minor-mode-menu #[(event) "\302A@8@\303 !)\207" [event indicator 4 minor-mode-menu-from-indicator] 2 (#$ . 4741) "@e"]) (defalias 'mouse-menu-major-mode-map #[nil "\305\306 \205 \307\310!!\211\203 \311\312 !\313P!\202 \n\314 \203& \315 \"\210 +\207" [ancestor mode-name menu-bar-edit-menu newmap uniq mouse-menu-non-singleton current-local-map local-key-binding [menu-bar] make-sparse-keymap format-mode-line " Mode" nil set-keymap-parent] 4]) #@114 Given menu keymap, if it defines exactly one submenu, return just that submenu. Otherwise return the whole menu. (defalias 'mouse-menu-non-singleton #[(menubar) "\205 \302\303\304\305!\"\210 \306=\203 \202 \307\310 @!\")\207" [menubar submap nil map-keymap #[(k v) "\203 \303\202 \nB\211\207" [submap k v t] 2] keymap-canonicalize t lookup-key vector] 4 (#$ . 5287)]) #@143 Return a keymap equivalent to the menu bar. The contents are the items that would be in the menu bar whether or not it is actually displayed. (defalias 'mouse-menu-bar-map #[nil "\306 \205\n \307\306 \310\"\307 \311\"\312\313\314\315!\"\205! \211 A@) \n\211 A@) \203? ;\204? \316\317!\320PABB;\204L \316\321\nABB\322\323\n $-\207" [local-menu global-map global-menu minor-mode-menus x local-title-or-map current-local-map lookup-key [menu-bar] [menu-bar] mapcar #[(menu) "@A\211\211A@)\211;\204# \304\305\306\307\310\311 !#!\312PABB+\207" [menu minor-mode x title-or-map keymap capitalize subst-char-in-string 45 32 symbol-name " Menu"] 8] minor-mode-key-binding [menu-bar] keymap format-mode-line " Mode Menu" "Global Menu" apply append global-title-or-map mode-name] 6 (#$ . 5675)]) #@114 Pop up a mode-specific menu of mouse commands. Default to the Edit menu if the major mode doesn't define a menu. (defalias 'mouse-major-mode-menu #[(event &optional prefix) "\302\303\304\"\210\305\306 #\207" [event prefix run-hooks activate-menubar-hook menu-bar-update-hook popup-menu mouse-menu-major-mode-map] 4 (#$ . 6492) "@e\nP"]) (make-obsolete 'mouse-major-mode-menu 'mouse-menu-major-mode-map "23.1") #@172 Pop up a menu equivalent to the menu bar for keyboard EVENT with PREFIX. The contents are the items that would be in the menu bar whether or not it is actually displayed. (defalias 'mouse-popup-menubar #[(event prefix) "\302\303\304\"\210\305\306 #\207" [event prefix run-hooks activate-menubar-hook menu-bar-update-hook popup-menu mouse-menu-bar-map] 4 (#$ . 6911) "@e \nP"]) (make-obsolete 'mouse-popup-menubar 'mouse-menu-bar-map "23.1") #@141 Popup a menu like either `mouse-major-mode-menu' or `mouse-popup-menubar'. Use the former if the menu bar is showing, otherwise the latter. (defalias 'mouse-popup-menubar-stuff #[(event prefix) "\302\303\304\"\210\305\306\307\310\311\"\206 \312!\203 \313 \202 \314 #\207" [event prefix run-hooks activate-menubar-hook menu-bar-update-hook popup-menu zerop frame-parameter nil menu-bar-lines 0 mouse-menu-bar-map mouse-menu-major-mode-map] 5 (#$ . 7361) "@e\nP"]) (make-obsolete 'mouse-popup-menubar-stuff nil "23.1") (defalias 'mouse-minibuffer-check #[(event) "\211:\203 A@\202 \303 `\304\305F)\211@)\306\n!\203) \307\n!\204) \310\311!\210)\312\313!\207" [event position w selected-window (0 . 0) 0 window-minibuffer-p minibuffer-window-active-p error "Minibuffer window is not active" run-hooks mouse-leave-buffer-hook] 5]) #@123 Delete the window you click on. Do nothing if the frame has just one window. This command must be bound to a mouse click. (defalias 'mouse-delete-window #[(click) "\303\304!?\205% \305!\210\306\211:\203 A@\202 \307 `\310\311F)\211@)!\207" [click event position one-window-p t mouse-minibuffer-check delete-window selected-window (0 . 0) 0] 6 (#$ . 8206) "e"]) #@49 Select the window clicked on; don't move point. (defalias 'mouse-select-window #[(click) "\305!\210\306 \307\211:\203 A@\202 \310 `\311\312F)\211@)! \313\211:\2030 A@\2026 \310 `\311\312F)\211@)!\210\314 !\210\315 !\210 \f=\206S \316\306 \317 S\312#*\207" [click event position frame oframe mouse-minibuffer-check selected-frame window-frame selected-window (0 . 0) 0 select-window raise-frame select-frame set-mouse-position frame-width] 7 (#$ . 8579) "e"]) #@77 Delete the window clicked on, and create a new frame displaying its buffer. (defalias 'mouse-tear-off-window #[(click) "\306!\210\211:\203 A@\202 \307 `\310\311F)\211@)\312 ! \313 \314 !\210\315\f!\210\316 !+\207" [click event position window buf frame mouse-minibuffer-check selected-window (0 . 0) 0 window-buffer make-frame select-frame switch-to-buffer delete-window] 5 (#$ . 9056) "e"]) #@49 Delete all windows except the one you click on. (defalias 'mouse-delete-other-windows #[nil "\300 \207" [delete-other-windows] 1 (#$ . 9463) "@"]) #@157 Select Emacs window mouse is on, then split it vertically in half. The window is split at the line clicked on. This command must be bound to a mouse click. (defalias 'mouse-split-window-vertically #[(click) "\306!\210\211:\203 A@\202 \307 `\310\311F)\312\n\211@)!\210\313\211:\203: \314 8:\2034 \314\2025 \315 8\202@ \307 `\316\311F)!AT\f\317 \fZ W\203[ \320\321!\202d \322] ^!,\207" [click event start position window-min-height last-line mouse-minibuffer-check selected-window (0 . 0) 0 select-window posn-col-row 2 1 (0 . 0) window-height error "Window too short to split" split-window-vertically first-line new-height] 6 (#$ . 9617) "@e"]) #@161 Select Emacs window mouse is on, then split it horizontally in half. The window is split at the column clicked on. This command must be bound to a mouse click. (defalias 'mouse-split-window-horizontally #[(click) "\306!\210\211:\203 A@\202 \307 `\310\311F)\312\n\211@)!\210\313\211:\203: \314 8:\2034 \314\2025 \315 8\202@ \307 `\316\311F)!@T\f\317 \fZ W\203[ \320\321!\202d \322] ^!,\207" [click event start position window-min-width last-col mouse-minibuffer-check selected-window (0 . 0) 0 select-window posn-col-row 2 1 (0 . 0) window-width error "Window too narrow to split" split-window-horizontally first-col new-width] 6 (#$ . 10289) "@e"]) #@126 Return the (or a) window directly above WINDOW. That means one whose bottom edge is at the same height as WINDOW's top edge. (defalias 'mouse-drag-window-above #[(window) "\306!A@\306!@\307\306!8\310 \311\312\" \204s \n=\204s \306!@\307\306!8 \f \313!\306!A@\\ U\203k \fX\203M \fX\204i \f X\203[ X\204i \f\fX\203k \f X\203k *\311!\202 -\207" [window above-window start-window start-right start-left start-top window-edges 2 nil previous-window 0 window-height right left] 5 (#$ . 10966)]) #@209 Move the bottom of WINDOW up or down by GROWTH lines. Move it down if GROWTH is positive, or up if GROWTH is negative. If this would make WINDOW too short, shrink the window or windows above it to make room. (defalias 'mouse-drag-move-window-bottom #[(window growth) "\300\301\302\217\207" [nil (adjust-window-trailing-edge window growth nil) ((error))] 3 (#$ . 11494)]) #@206 Move the top of WINDOW up or down by GROWTH lines. Move it down if GROWTH is positive, or up if GROWTH is negative. If this would make WINDOW too short, shrink the window or windows above it to make room. (defalias 'mouse-drag-move-window-top #[(window growth) "\303!\211\205 \304 \n[\")\207" [window window-above growth mouse-drag-window-above mouse-drag-move-window-bottom] 4 (#$ . 11872)]) (put 'mouse-drag-move-window-top 'byte-optimizer 'byte-compile-inline-expand) #@204 Change the height of a window by dragging on the mode or header line. START-EVENT is the starting mouse-event of the drag action. MODE-LINE-P non-nil means dragging a mode line; nil means a header line. (defalias 'mouse-drag-mode-line-1 #[(start-event mode-line-p) "\306\307!\210\310\311\n\211:\203 A@\202 \312 `\313\311F)\211 \211 @) \314! \315\316! \205G \204D \f\211 @)\312 =\205G \317\f! \320\310\321\" \310\211 \310\211 \310\211 \310\211 \310 \322 .\207" [done echo-keystrokes start-event event start position run-hooks mouse-leave-buffer-hook nil 0 selected-window (0 . 0) window-frame count-windows t mouse-on-link-p frame-parameter minibuffer (lambda nil (track-mouse (byte-code "\205 \205 \306\307!?\205 \310!A@\311\310\n!8U\f\204.\312 \313 :\2041 \307\211\202 @\314>\204 @\315>\204W :\203Q @\316=\204Q B \307\211\202 @ =\203 A@\203 AA \310\n!\211 A@!\311 8\" \203\215 \317 \"\320##\202\246 \" Z$W\203\237 \"$Z ! Z#\321 %#\322U\204\277 \204\277 \306\307!\203\277 \323\324!\210#\322U\204\311 \325& \203\333 '\204\326\n#\"\210\202 \203\350 \326\n#\"\210\202\n# # (\327(!\211 )\205 \326)#[\")\210**\330\307!U\203& \204 #\322V\203 \203 !\310\n!A@U\204 \331%!\210\202 &\205D \242\332=\205D\333 AB B\211 \207" [minibuffer mode-line-p start-event-window should-enlarge-minibuffer done event one-window-p t window-edges 3 read-event mouse-position (switch-frame select-window) (mouse-movement scroll-bar-movement) drag-mouse-1 - -1 current-window-configuration 0 error "Attempt to resize sole window" nil mouse-drag-move-window-bottom mouse-drag-window-above count-windows set-window-configuration mouse-1 mouse-2 mouse unread-command-events start-event-frame y edges top bot growth window-min-height wconfig on-link resize-mini-windows window window-above start-nwindows] 5))) start-event-window start-event-frame start-nwindows mouse-1-click-follows-link mouse-1-click-in-non-selected-windows on-link should-enlarge-minibuffer mouse y top bot edges wconfig growth] 5 (#$ . 12353)]) #@61 Change the height of a window by dragging on the mode line. (defalias 'mouse-drag-mode-line #[(start-event) "\301\302\"\207" [start-event mouse-drag-mode-line-1 t] 3 (#$ . 14460) "e"]) #@167 Change the height of a window by dragging on the header line. Windows whose header-lines are at the top of the frame cannot be resized by dragging their header-line. (defalias 'mouse-drag-header-line #[(start-event) "\211:\203 A@\202 \306 `\307\310F)\211\211@) \311\f! \312 ! \f=\2067 \313\f!A@\313!A@U?\205? \314\315\",\207" [start-event event start position window frame selected-window (0 . 0) 0 window-frame frame-first-window window-edges mouse-drag-mode-line-1 nil first-window] 5 (#$ . 14653) "e"]) #@69 Return a window that is immediately to the right of WINDOW, or nil. (defalias 'mouse-drag-vertical-line-rightward-window #[(window) "\306\307!8\307!@\310\211\311! =\204[ \307 !A@\306\307 !8\312\307 !8 \f\211 W\203R \f Y\203R \fW\203R \n\203M \nV\203R +\311 !\211\202 -\207" [window try best-right best left bottom 3 window-inside-edges nil previous-window 2 try-right try-bottom try-top] 7 (#$ . 15178)]) #@64 Change the width of a window by dragging on the vertical line. (defalias 'mouse-drag-vertical-line #[(start-event) "\306\307!\210\310\311\312\nA@@!\nA@@ \310\211 \310\211 \310\211 \310 \313\314 !\236A\2062 \315 \316\317!\203A \320\321!\210\202o \315=\203[ \322\323\f!8\324 !Y\203[ \320\325!\210\202o \326=\203o \323\f!@\311U\203o \320\327!\210\330 .\f\207" [done echo-keystrokes start-event start-event-frame start-event-window event run-hooks mouse-leave-buffer-hook nil 0 window-frame vertical-scroll-bars frame-parameters right one-window-p t error "Attempt to resize sole ordinary window" 2 window-inside-edges frame-width "Attempt to drag rightmost scrollbar" left "Attempt to drag leftmost scrollbar" (lambda nil (track-mouse (byte-code "?\205\232 \306 \307 \250\203 \310\211\202 @\311>\204 @\312>\2043 :\203- B\310\211\202 \n@\f=\203 \nA@\203 \313=\203K \202O \314! \nA@ \313=\203^ \315\202_ \316Z\317!\211@\3168 \320\321#W\203\210 \322\321#\320 \321# \323\324\325\217\210)\202 \207" [done event mouse unread-command-events start-event-frame which-side read-event mouse-position t (switch-frame select-window) (mouse-movement scroll-bar-movement) right mouse-drag-vertical-line-rightward-window 0 2 window-edges - -1 + nil (adjust-window-trailing-edge window growth t) ((error)) start-event-window window x edges left window-min-width growth] 5))) mouse x edges growth which-side] 4 (#$ . 15615) "e"]) #@105 Move point to the position clicked on with the mouse. This should be bound to a mouse click event type. (defalias 'mouse-set-point #[(event) "\301!\210\302\211:\203 \3038:\203 \303\202 \3048\202# \305 `\306\307F)!\207" [event mouse-minibuffer-check posn-set-point 2 1 selected-window (0 . 0) 0] 6 (#$ . 17100) "e"]) (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 mouse-last-region-beg default-boundp set-default nil mouse-last-region-end mouse-last-region-tick] 3) #@73 Return non-nil if there's an active region that was set with the mouse. (defalias 'mouse-region-match #[nil "\304\305!\205 \205 \306 =\205 \n\307 =\205 \310 =\207" [mark-active mouse-last-region-beg mouse-last-region-end mouse-last-region-tick mark t region-beginning region-end buffer-modified-tick] 2 (#$ . 17693)]) #@109 Set the region to the text dragged over, and copy to kill ring. This should be bound to a mouse drag event. (defalias 'mouse-set-region #[(click) "\306!\210\211:\203 A@\202 \307 `\310\311F)\211:\2030 \312 8:\203* \312\202+ \313 8\2026 \307 `\314\311F)\315 \211 @)!\210 \316\f8\206Z \fA@:\203W \fA@@\202Z \fA@)\247\203{ \316\f8\206x \fA@:\203u \fA@@\202x \fA@)b\210 \204\214 \317\320 !\321>\204\214 \322\313!\210\323 \210\324`!\210\n \316\f8\206\254 \fA@:\203\251 \fA@@\202\254 \fA@)\247\203\315 \n \316\f8\206\312 \fA@:\203\307 \fA@@\202\312 \fA@)b\210\203\342 \325\211\211 \326\327 `\"\210+\330 *\207" [click event end posn position transient-mark-mode mouse-minibuffer-check selected-window (0 . 0) 0 2 1 (0 . 0) select-window 5 framep selected-frame (x pc w32 ns) sit-for push-mark set-mark nil copy-region-as-kill mark mouse-set-region-1 mouse-drag-copy-region deactivate-mark last-command this-command] 6 (#$ . 18025) "e"]) (defalias 'mouse-set-region-1 #[nil "\242\304=\204 \304\305=?\205 B\306 \307 \310 \211\207" [transient-mark-mode mouse-last-region-beg mouse-last-region-end mouse-last-region-tick only lambda region-beginning region-end buffer-modified-tick] 3]) #@437 The pause between scroll steps caused by mouse drags, in seconds. If you drag the mouse beyond the edge of a window, Emacs scrolls the window to bring the text beyond that edge into view, with a delay of this many seconds between scroll steps. Scrolling stops when you move the mouse back into the window, or release the button. This variable's value may be non-integral. Setting this to zero causes Emacs to scroll as fast as it can. (custom-declare-variable 'mouse-scroll-delay '0.25 '(#$ . 19236) :type 'number :group 'mouse) #@378 The minimum number of lines scrolled by dragging mouse out of window. Moving the mouse out the top or bottom edge of the window begins scrolling repeatedly. The number of lines scrolled per repetition is normally equal to the number of lines beyond the window edge that the mouse has moved. However, it always scrolls at least the number of lines specified by this variable. (custom-declare-variable 'mouse-scroll-min-lines '1 '(#$ . 19773) :type 'integer :group 'mouse) #@232 Scroll the window WINDOW, JUMP lines at a time, until new input arrives. If OVERLAY is an overlay, let it stretch from START to the far edge of the newly visible text. Upon exit, point is at the far edge of the newly visible text. (defalias 'mouse-scroll-subr #[(window jump &optional overlay start) "\306V\203 W\203 \202! \306W\203! [ W\203! [`\307 !b\210\310\311 \"!\204{ \312 `\"\210\313!\203[ \314 !\203P \314 !b\210\311S \"\210\202` \311\315 !\316Z!\210\202` \307 !b\210\f\203j \317\f `#\210 \320 =\204t \nb\210\321!\204# \320 =\206\204 \nb)\207" [jump mouse-scroll-min-lines opoint window overlay start 0 window-start zerop vertical-motion set-window-start natnump window-end window-height 2 move-overlay selected-window sit-for mouse-scroll-delay] 4 (#$ . 20253)]) (byte-code "\302B\303\304ee\"\305 !\210\306 \307\310#\210 )!\210\311B\312\311!\204' \313\311\314\"\210\315B\312\315!\2046 \313\315\316\"\210\316\207" [current-load-list ol mouse-drag-overlay (lambda (#1=#:defconst-tmp-var) (defconst mouse-drag-overlay #1#)) make-overlay delete-overlay overlay-put face region mouse-selection-click-count default-boundp set-default 0 mouse-selection-click-count-buffer nil] 5) #@360 Set the region to the text that the mouse is dragged over. Highlight the drag area as you move the mouse. This must be bound to a button-down mouse event. In Transient Mark mode, the highlighting remains as long as the mark remains active. Otherwise, it remains until the next input event. If the click is in the echo area, display the `*Messages*' buffer. (defalias 'mouse-drag-region #[(start-event) "\211:\203 A@\202 \304 `\305\306F)\211@)\307 !\2038 \310 !\2048 \212\311 \210\312\313!q\210db\210\314p!)\202@ \315\316!\210\317\320\")\207" [start-event event position w selected-window (0 . 0) 0 window-minibuffer-p minibuffer-window-active-p read-event get-buffer-create "*Messages*" display-buffer run-hooks mouse-leave-buffer-hook mouse-drag-track t] 5 (#$ . 21467) "e"]) #@402 Look for a property at click position. POS may be either a buffer position or a click position like those returned from `event-start'. If the click position is on a string, the text property PROPERTY is examined. If this is nil or the click is not on a string, then the corresponding buffer position is searched for PROPERTY. If PROPERTY is encountered in one of those places, its value is returned. (defalias 'mouse-posn-property #[(pos property) ":\203F \211@)\306 8\206# A@:\203 A@@\202# A@)\307 8) \n\203; \310\nA \n@#\206D \205D \311 \f#+\207\311 \"\207" [pos position str pt w property 5 4 get-text-property get-char-property] 5 (#$ . 22261)]) #@1545 Return non-nil if POS is on a link in the current buffer. POS must be a buffer position in the current buffer or a mouse event location in the selected window (see `event-start'). However, if `mouse-1-click-in-non-selected-windows' is non-nil, POS may be a mouse event location in any window. A clickable link is identified by one of the following methods: - If the character at POS has a non-nil `follow-link' text or overlay property, the value of that property determines what to do. - If there is a local key-binding or a keybinding at position POS for the `follow-link' event, the binding of that event determines what to do. The resulting value determine whether POS is inside a link: - If the value is `mouse-face', POS is inside a link if there is a non-nil `mouse-face' property at POS. Return t in this case. - If the value is a function, FUNC, POS is inside a link if the call (FUNC POS) returns non-nil. Return the return value from that call. Arg is (posn-point POS) if POS is a mouse event. - Otherwise, return the value itself. The return value is interpreted as follows: - If it is a string, the mouse-1 event is translated into the first character of the string, i.e. the action of the mouse-1 click is the local or global binding of that character. - If it is a vector, the mouse-1 event is translated into the first element of that vector, i.e. the action of the mouse-1 click is the local or global binding of that event. - Otherwise, the mouse-1 event is translated into a mouse-2 event at the same position. (defalias 'mouse-on-link-p #[(pos) ":\203 \204 \304 \211@)=\205! \305\306\"\206! \307\310\311\312$\211\313=\2033 \305\313\"\205o \312\202o \314 !\203n :\203h r\315\211@)!q\210 \316\n8\206b \nA@:\203_ \nA@@\202b \nA@)!)\202o !\202o )\207" [pos mouse-1-click-in-non-selected-windows position action selected-window mouse-posn-property follow-link key-binding [follow-link] nil t mouse-face functionp window-buffer 5] 6 (#$ . 22936)]) #@56 Fix help message MSG for `mouse-1-click-follows-link'. (defalias 'mouse-fixup-help-message #[(msg) "\306\211\n\203\212 ;\203\212 \307 \310\216\311\312 \"*\203\212 \313 \211\203\212 A\211:\203\212 @\203\212 @\314Y\203\212 A\203\212 A\314Y\203\212 \315@A @#\211\203\212 \316\211 @)!\203\212 r\317\211 @)!q\210\320!\203\211 \n\321=\203r \322\202\202 \n\250\203\201 \n\314W\203\201 \323\202\202 \324\325 \326\306OQ)* \207" [pos mp mouse-1-click-follows-link msg save-match-data-internal position nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^mouse-2" mouse-pixel-position 0 posn-at-x-y windowp window-buffer mouse-on-link-p double "double-" "Long " "" "mouse-1" 7] 6 (#$ . 24936)]) (defalias 'mouse-move-drag-overlay #[(ol start end mode) " U\204 b\210 b\210`\305 \n#\306\f @ A@#)\207" [start end mode range ol mouse-start-end move-overlay] 4]) #@237 Track mouse drags by highlighting area between point and cursor. The region will be defined with mark and point, and the overlay will be deleted after return. DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by mouse-drag-region. (defalias 'mouse-drag-track #[(start-event &optional do-mouse-drag-region-post-process) "\306!\210p\307 \310!\311 \211 :\203 A@\202\" \307 `\312\311F)\211 5 6\31368\206C 6A@:\203? 6A@@\202C 6A@) 75\211 6@) 8\3148! 9\3158! :\3168! ;\317 <;A@ =\3208!\203x \321;8\202} \321;8S >?\205\224 @\204\220 8\n=\205\224 \3225! A\211 :\203\252 \323 8\250\203\252 \323 8\202\253 \324)S BA\205\277 ?\325=\205\277 B\324U CD E\317 DBF`7W\203\327 7b\210`7C\203\342 \311B\326G7\211B$\210\327G\3308#\210H\203(H\331=\204H\242\332=\203HA\204\317H\202(H\242\332=\203!HAH\317I\333\334!\210\317\211\211\211 J K L \335 \210\336\337 \242!>\203\244 \211 :\203W\323 8:\203Q\323\202R\324 8\202]\307 `\340\311F)\211L 6\31368\206~6A@:\203z6A@@\202~6A@)\211K\203\244L\211 6@)8=\203\244\341K!\203\244\326G7KB$\210 :\203\370\342\343 @!! M \211 :\203\305\323 8\250\203\305\323 8\202\306\324)\311V\205\330\344M!\205\330M\345>? N\346G!\347G!U\204\343N\204\343 \211 :\203\323 8:\203\375\323\202\376\324 8\202 \307 `\340\311F) 6\31368\206'6A@:\203#6A@@\202'6A@)\247\203l \211 :\203D\323 8:\203>\323\202?\324 8\202J\307 `\340\311F) 6\31368\206h6A@:\203d6A@@\202h6A@)\202nJ\211 O\203\203O7W\203\203\346G!\202\207\347G! P\347G!\346G!\\PZ Q\317\211 R S\350Q\351\211#\210Pb\210T\204\264\352G!\202\337U\203\304\317 V\353`\354\351!\"\210)p W\355 \210\354\351!\205\336I\205\336Wp=\205\336\356 )-\202\364N\203\3547b\210\352G!\210\344M!\205\364:\3158!U\205\364K\204\3148!9U\205\364A\203\355K\203#K7U\203\355 :\203\355C\204\312?\325=\204\355B\311U\203\355 \211 :\203O\323 8\250\203O\323 8\202P\324)\324U\203\355?\250\203\312\211 :\203i A@\202o\307 `\312\311F) 6\32168) \211 :\203\217\323 8:\203\211\323\202\212\324 8\202\225\307 `\340\311F) 6\32168) X\211 Y\250\205\306X\250\205\306?\311V\203\276XYZ?X\202\306YXZ?W*\203\355\357A!\204\327A;\203\337A\311H\202\355\360\n!\210 \361\240\210\362\361\363\364#\210 ZB\211Z*\202\374\352G!.\207" [start-event mouse-selection-click-count-buffer original-window _ echo-keystrokes event mouse-minibuffer-check selected-window mouse-set-point 0 (0 . 0) 5 window-start window-hscroll window-edges nil window-minibuffer-p 3 mouse-on-link-p 2 1 double mouse-move-drag-overlay overlay-put window lambda only run-hooks deactivate-mark-hook (lambda nil (track-mouse (byte-code "\306 \211\211\242)\307=\204 \242\310>\205\304 \242\311>\204 \n\312 \210)\211:\2039 \3138:\2033 \313\2024 \3148\202? \315 `\316\317F)\211 \320 8\206Z A@:\203W A@@\202Z A@)\211\247\203f \f\211 @)=\203\206 \321!\203\206 \322$\210\202 \323 AA\211 \203\300 W\203\251 \324 Z$\210\202\300 Y\203\300 \324 ZT$\210)\202 \207" [event object automatic-hscrolling-saved automatic-hscrolling end position read-event mouse-movement (switch-frame select-window) (switch-frame select-window) redisplay 2 1 selected-window #1=(0 . 0) 0 5 integer-or-marker-p mouse-move-drag-overlay mouse-position mouse-scroll-subr end-point last-end-point start-window mouse-drag-overlay start-point click-count mouse-row top bottom] 6))) drag event-modifiers #1# integer-or-marker-p key-binding vector functionp (mouse-set-point mouse-set-region) overlay-start overlay-end push-mark t delete-overlay copy-region-as-kill mark mouse-show-mark mouse-set-region-1 vectorp select-window mouse-2 put event-kind mouse-click start-posn position start-point start-window start-window-start start-hscroll bounds make-cursor-line-fully-visible top bottom mouse-1-click-follows-link mouse-1-click-in-non-selected-windows on-link click-count remap-double-click automatic-hscrolling automatic-hscrolling-saved mouse-selection-click-count mouse-drag-overlay transient-mark-mode mark-active last-end-point end-point end fun do-multi-click stop-point region-termination region-commencement last-command this-command do-mouse-drag-region-post-process mouse-drag-copy-region deactivate-mark buffer t1 t0 unread-command-events] 6 (#$ . 25878)]) #@126 Skip over word, over whitespace, or over identical punctuation. If DIR is positive skip forward; if negative, skip backward. (defalias 'mouse-skip-word #[(dir) "g\303z!\211\304\230\2031 \n\305W\203 \306\307!?\205\211 \310v\202\211 \306\307!\204, \306\311!?\205\211 \312v\202\211 \313\230\203I \n\305W\203C \314 !\202\211 \315 !\202\211 \316\230\203a \n\305W\203[ \314\317!\202\211 \315\317!\202\211 \n\305W\203x o?\205\211 hU\205\211 \310u\210\202g m?\205\211 gU\205\211 \312u\210\202x *\207" [char syntax dir char-to-string "w" 0 looking-at "\\<" -1 "\\>" 1 " " skip-syntax-backward skip-syntax-forward "_" "w_"] 3 (#$ . 30247)]) #@293 Return a list of region bounds based on START and END according to MODE. If MODE is 0 then set point to (min START END), mark to (max START END). If MODE is 1 then set point to start of word at (min START END), mark to end of word at (max START END). If MODE is 2 then do the same for lines. (defalias 'mouse-start-end #[(start end mode) " V\203 \n)\305 \306\"\211\307U\203 D\207 \310U\203B U\203B f\203B fz\311U\203B \212b\210\312\310!\210`)D\207 \310U\203j U\203j f\203j fz\313U\203j \212Tb\210\314\310!\210`)TD\207 \310U\203\255 U\203\255 f\203\255 fz\315U\203\255 e=\206\222 \212Sb\210\316\317!)\211 \203\242 \212\320\321\322\217)D\202\253 \212\320\323\324\217)TD)\207 \310U\203\311 \212b\210\325\326!\210`)\212 b\210\325\310!\210`)D\207 \327U\205\343 \212b\210\330\310!\210`)\212 b\210\310y\210`)D\207" [start end temp mode open mod 3 0 1 40 forward-sexp 41 backward-sexp 34 looking-at "\\s(\\|\\s \\|\\s>" nil (byte-code "b\210\301\302!\210`\207" [start forward-sexp 1] 2) ((error end)) (byte-code "Tb\210\301\302!\210`\207" [start backward-sexp 1] 2) ((error end)) mouse-skip-word -1 2 beginning-of-line] 5 (#$ . 30893)]) (defalias 'mouse-set-mark-fast #[(click) "\304!\210\211:\203 A@\202 \305 `\306\307F)\310\n\211@)!\210\n\311 8\206: A@:\2037 A@@\202: A@)\247\205] \312\n\311 8\206Y A@:\203V A@@\202Y A@)\313\211#)\207" [click event posn position mouse-minibuffer-check selected-window (0 . 0) 0 select-window 5 push-mark t] 5]) (defalias 'mouse-undouble-last-event #[(events) "GS\211\233\211@\306 ! \307 ! \310\311\310\312\313 !\"\" :\2031 \314\315\fB!! AB\2022 \n\240\210 \232\204M \316\317\320\"!\203M \321\202R \n \240\210\322.\207" [events index last event basic old-modifiers event-basic-type event-modifiers delq double triple copy-sequence event-convert-list reverse key-binding apply vector t nil modifiers new] 7]) #@64 List of keys that should cause the mouse region to be deleted. (custom-declare-variable 'mouse-region-delete-keys ''([delete] [deletechar] [backspace]) '(#$ . 32803) :group 'mouse :type '(repeat key-sequence)) (defalias 'mouse-show-mark #[nil "\306\307\310\211\211\211\311\300!\205 \312! \313\300\314\"\210\203) \315!\210\2022 \316`\317\306!#\210\320\321\215\210 \204i \n\235\203c \322\323!\210 \324 \325 !\206U \322\326!\210\327 !\210\202i \244 \310 ?\205v \315!.\207" [x-lost-selection-functions ignore key events event echo-keystrokes t 0 nil boundp copy-sequence add-hook #[(seltype) "\302=\205\f \303\304\305\303\"\207" [seltype ignore PRIMARY t throw mouse-show-mark] 3] delete-overlay move-overlay mark mouse-show-mark (byte-code "\306 \307 C\"\310\311 \":\203 @\312=\204v :\203\\ \211:\2037 \3138:\2031 \313\2022 \3148\202= \315 `\316\317F)\320 8\206V A@:\203S A@@\202V A@)\321=\204v \322\323!>\203\330 \324\n!\204\330 \325 !\204\330 \n\f\235\204\330 :\203 @\312=\204\277 \211:\203\232 \3138:\203\224 \313\202\225 \3148\202\240 \315 `\316\317F)\320 8\206\271 A@:\203\266 A@@\202\271 A@)\321=\203 \311\321\" \324 !\203\324 \326\324 !\327 #\210\327)\202 \327\207" [event events key position mouse-region-delete-keys keys read-event append apply vector switch-frame 2 1 selected-window (0 . 0) 0 5 vertical-scroll-bar down event-modifiers key-binding mouse-undouble-last-event call-interactively nil] 5) run-hooks post-command-hook delete-region command-remapping pre-command-hook call-interactively inhibit-quit transient-mark-mode mouse-drag-overlay mouse-region-delete-keys this-command last-command this-original-command unread-command-events quit-flag] 8]) #@136 Set mark at the position clicked on with the mouse. Display cursor at that position for a second. This must be bound to a mouse click. (defalias 'mouse-set-mark #[(click) "\305!\210\306\211:\203 A@\202 \307 `\310\311F)\211@)!\210`\312\216\313!\210\314\315\316\211#\210\f\2064 \317\320!*\207" [click event position point-save transient-mark-mode mouse-minibuffer-check select-window selected-window (0 . 0) 0 ((goto-char point-save)) mouse-set-point push-mark nil t sit-for 1] 6 (#$ . 34548) "e"]) #@112 Kill the region between point and the mouse click. The text is saved in the kill ring, as with \[kill-region]. (defalias 'mouse-kill #[(click) "\305!\210\211:\203 A@\202 \306 `\307\310F)\211\311 8\2062 A@:\203/ A@@\2022 A@) \312\n\211@)!\210\f\247\205I \313`\f^`\f]\"*\207" [click event posn position click-posn mouse-minibuffer-check selected-window (0 . 0) 0 5 select-window kill-region] 5 (#$ . 35061) "e"]) #@306 Insert the last stretch of killed text at the position clicked on. Also move point to one end of the text thus inserted (normally the end), and set mark at the beginning. Prefix arguments are interpreted as with \[yank]. If `mouse-yank-at-point' is non-nil, insert at point regardless of where you click. (defalias 'mouse-yank-at-click #[(click arg) "\305\306!\210\204\f \307 !\210\310\311\310\f!\207" [mouse-yank-at-point click this-command mouse-selection-click-count arg run-hooks mouse-leave-buffer-hook mouse-set-point yank 0] 2 (#$ . 35491) "e\nP"]) #@186 Insert the primary selection at the position clicked on. Move point to the end of the inserted text. If `mouse-yank-at-point' is non-nil, insert at point regardless of where you click. (defalias 'mouse-yank-primary #[(click) "\303\304!\210\204\f \305 !\210\306\307!\211\203 \306\307!c\202 \310\311!)\207" [mouse-yank-at-point click primary run-hooks mouse-leave-buffer-hook mouse-set-point x-get-selection PRIMARY error "No primary selection"] 3 (#$ . 36057) "e"]) #@134 Copy the region between point and the mouse click in the kill ring. This does not delete the region; it acts like \[kill-ring-save]. (defalias 'mouse-kill-ring-save #[(click) "\303!\210\304\211\305`\306\307!\"\210*\310 \207" [click last-command this-command mouse-set-mark-fast nil kill-ring-save mark t mouse-show-mark] 4 (#$ . 36533) "e"]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list mouse-save-then-kill-posn default-boundp set-default nil] 3) (defalias 'mouse-save-then-kill-delete-region #[(beg end) "\306 \210 U\204 \n\307=\203 |\210\202x \310\211 \211 V\203& \311\202' \312\\|\210*\n\310\211 \313\311\n\"\210*\307 @G ] ^ZU\204K \314\315!\210 |\210)\n\211 \203h @@;\204h A\211\204W \203w @ ^B\240\210)\306 \207" [beg end buffer-undo-list after-change-functions before-change-functions kill-ring undo-boundary t nil 1 -1 primitive-undo error "Lossage in mouse-save-then-kill-delete-region" tail] 5]) #@563 Save text to point in kill ring; the second time, kill the text. If the text between point and the mouse is the same as what's at the front of the kill ring, this deletes the text. Otherwise, it adds the text to the kill ring, like \[kill-ring-save], which prepares for a second click to delete the text. If you have selected words or lines, this command extends the selection through the word or line clicked on. If you do this again in a different position, it extends the selection again. If you do this twice in the same position, the selection is killed. (defalias 'mouse-save-then-kill #[(click) "r\306\211:\203 A@\202 \307 `\310\311F)\211@)!q\210 ) \312!\210\211:\2031 A@\2027 \307 `\310\311F)\313\n8\206P \nA@:\203M \nA@@\202P \nA@) r\306\211:\203d A@\202j \307 `\310\311F)\211@)!q\210\314\315!\205\206 \316 \317\"\311V\205\206 p=)\203\361 \320=\203\234 !\243\243@\232\204\341 \321 \211 # \"\322 \314\315!Z!\322 `Z!W\203\300 \323\"@!\210\202\306 \"A@b\210\324`\314\315!{\315\"\210\325 \210#@` E!\326 )\202\333\327\314 `\"\210\311 \330\211!\202\333 \320=\203 !\203 !@#@=\203 !A` D\232\203 \327`\314 \"\210\330\211!\202\333 \320=\203+!\204F$\2035%\204F \331>\203\265&\204F%\204\265\211:\203S A@\202Y\307 `\310\311F)\211 '\313\n8\206u\nA@:\203r\nA@@\202u\nA@) (\332'\211@)!\210(\247\203\250\322(`Z!\322(\314\315!Z!X\203\240(b\210\202\245\323(!\210\330)\324`\314\315!{\315\"\210*\202\313\333!\210\f\203\300\fb\210\334 \210\324`\314\315!{!\210\326 \210\325 \210#@` E\211!+\207" [click event position point-before-scroll before-scroll this-command window-buffer selected-window (0 . 0) 0 mouse-minibuffer-check 5 mark t mod 3 mouse-save-then-kill mouse-start-end abs set-mark kill-new mouse-set-region-1 mouse-show-mark mouse-save-then-kill-delete-region nil (mouse-drag-region mouse-set-region) select-window mouse-set-mark-fast exchange-point-and-mark click-posn mouse-selection-click-count mouse-selection-click-count-buffer last-command mouse-save-then-kill-posn range kill-ring mark-active transient-mark-mode mark-even-if-inactive posn new deactivate-mark] 6 (#$ . 37512) "e"]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\207" [global-set-key [M-mouse-1] mouse-start-secondary [M-drag-mouse-1] mouse-set-secondary [M-down-mouse-1] mouse-drag-secondary [M-mouse-3] mouse-secondary-save-then-kill [M-mouse-2] mouse-yank-secondary] 3) #@111 An overlay which records the current secondary selection. It is deleted when there is no secondary selection. (defconst mouse-secondary-overlay (byte-code "\301ee\"\302!\210\303\304\305#\210)\207" [ol make-overlay delete-overlay overlay-put face secondary-selection] 4) (#$ . 40006)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\306\207" [current-load-list mouse-secondary-click-count default-boundp set-default 0 mouse-secondary-start nil] 3) #@165 Set one end of the secondary selection to the position clicked on. Use \[mouse-secondary-save-then-kill] to set the other end and complete the secondary selection. (defalias 'mouse-start-secondary #[(click) "\306!\210\211:\203 A@\202 \307 `\310\311F)r\312\n\211@)!q\210\313\f!\210\n\314 8\206@ A@:\203= A@@\202@ A@)\247\205i \204L \315 \n\314 8\206f A@:\203c A@@\202f A@)\316\223*\207" [click event posn position mouse-secondary-overlay mouse-secondary-start mouse-minibuffer-check selected-window (0 . 0) 0 window-buffer delete-overlay 5 make-marker nil] 5 (#$ . 40509) "e"]) #@115 Set the secondary selection to the text that the mouse is dragged over. This must be bound to a mouse drag event. (defalias 'mouse-set-secondary #[(click) "\306!\210\211:\203 A@\202 \307 `\310\311F)\312\211:\2031 \313 8:\203+ \313\202, \314 8\2027 \307 `\315\311F) r\316\f\211 @)!q\210\f \317 8\206^ A@:\203[ A@@\202^ A@)\247\203~ \f \317 8\206| A@:\203y A@@\202| A@)\320 \n \317 8\206\233 A@:\203\230 A@@\202\233 A@)#\210\321\322\323!\324!{\",\207" [click event end beg posn position mouse-minibuffer-check selected-window (0 . 0) 0 nil 2 1 (0 . 0) window-buffer 5 move-overlay x-set-selection SECONDARY overlay-start overlay-end mouse-secondary-overlay] 7 (#$ . 41112) "e"]) #@243 Set the secondary selection to the text that the mouse is dragged over. Highlight the drag area as you move the mouse. This must be bound to a button-down mouse event. The function returns a non-nil value if it creates a secondary selection. (defalias 'mouse-drag-secondary #[(start-event) "\306!\210\307\211:\203 \nA@\202 \310 `\311\307F)\211 \312\f8\2064 \fA@:\2031 \fA@@\2024 \fA@) \211 @) \313 !\211 A@ \314 !\203V \315 8\202[ \315 8S !\211:\203q \316\n8\250\203q \316\n8\202r \317)S \"r\320 !q\210\"#\321\"\315\"\307V\203\255 \322 \211\"# $%\323\211\223\210\324&$@$A@\320 !$\210)\202\301 %\204\266 \325 %% \323\223\210\326&!\210\323\211\211 ' (\327 \210\n:\205\351 \330%!\203\335 \331\213\202\351 \332\333\334&!\335&!{\".\f\207" [start-event echo-keystrokes event start-posn position start-point mouse-minibuffer-check 0 selected-window (0 . 0) 5 window-edges window-minibuffer-p 3 2 1 window-buffer mod mouse-start-end nil move-overlay make-marker delete-overlay (lambda nil (track-mouse (byte-code "\306 \211\211\242)\307=\204 \242\310>\205\317 \242\311>\204 \211:\2033 \3128:\203- \312\202. \3138\2029 \314 `\315\316F)\211\317 8\206T A@:\203Q A@@\202T A@)\n\211@) =\203\223 \320\f!\203\223 \321\f# \fU\203} \322!\204\217 \323\211\223\210\324@A@#\210)\202 \325 AA\211 \203\313 W\203\265 \326 Z$\210\202\313 Y\203\313 \326 ZT$\210)\202 \207" [event object end position end-point start-window read-event mouse-movement (switch-frame select-window) (switch-frame select-window) 2 1 selected-window (0 . 0) 0 5 integer-or-marker-p mouse-start-end marker-position nil move-overlay mouse-position mouse-scroll-subr start-point click-count range mouse-secondary-start mouse-secondary-overlay mouse-row top bottom] 6))) marker-position ((byte-code "\303!\210\304\305\306\"\210\307 !\210\212\nb\210\310\311!\210)\306\207" [mouse-secondary-overlay start-window mouse-secondary-start delete-overlay x-set-selection SECONDARY nil select-window sit-for 1] 3)) x-set-selection SECONDARY overlay-start overlay-end start-window bounds top bottom click-count mouse-secondary-click-count range mouse-secondary-start mouse-secondary-overlay end-point end] 7 (#$ . 41822) "e"]) #@188 Insert the secondary selection at the position clicked on. Move point to the end of the inserted text. If `mouse-yank-at-point' is non-nil, insert at point regardless of where you click. (defalias 'mouse-yank-secondary #[(click) "\303\304!\210\204\f \305 !\210\306\307!\211\203 \306\307!c\202 \310\311!)\207" [mouse-yank-at-point click secondary run-hooks mouse-leave-buffer-hook mouse-set-point x-get-selection SECONDARY error "No secondary selection"] 3 (#$ . 44091) "e"]) #@310 Kill the text in the secondary selection. This is intended more as a keyboard command than as a mouse command but it can work as either one. The current buffer (in case of keyboard use), or the buffer clicked on, must be the one that the secondary selection is in. This requirement is to prevent accidents. (defalias 'mouse-kill-secondary #[nil "\306 \211\211GS\234\307\n! <\203. \310 \211:\203 A@\202% \311 `\312\313F)\211 @)!\202/ p=\2047 \314\315!\210*\316 r\307\n!q\210\317\320\n!\321\n!\"\210*\322\n!\207" [keys click mouse-secondary-overlay event position this-command this-command-keys overlay-buffer window-buffer selected-window (0 . 0) 0 error "Select or click on the buffer where the secondary selection is" nil kill-region overlay-start overlay-end delete-overlay] 7 (#$ . 44577) nil]) #@737 Save text to point in kill ring; the second time, kill the text. You must use this in a buffer where you have recently done \[mouse-start-secondary]. If the text between where you did \[mouse-start-secondary] and where you use this command matches the text at the front of the kill ring, this command deletes the text. Otherwise, it adds the text to the kill ring, like \[kill-ring-save], which prepares for a second click with this command to delete the text. If you have already made a secondary selection in that buffer, this command extends or retracts the selection to where you click. If you do this again in a different position, it extends or retracts again. If you do this twice in the same position, it kills the selection. (defalias 'mouse-secondary-save-then-kill #[(click) "\306!\210\211:\203 A@\202 \307 `\310\311F)\211:\203% A@\202+ \307 `\310\311F)\312\n8\206D \nA@:\203A \nA@@\202D \nA@) \313 \211@)!\314!!\206` \"\205` \315\"!=\204h \316\317!\210r\313 \211@)!q\210\320#\321\"\311V\203\367 $\322=\203\215 \f%\243\243@\232\204\336 \323\f\211## &\324\f\325!!Z!\324\f\326!!Z!W\203\270 \327!&@\326!!#\210\202\305 \327!\325!!&A@#\210\330\325!!\326!!{\331\"\210'@`\fE%)\202\262\332\325!!\326!!\"\210\333%\311#\334!!\210\202\262$\322=\203-%\203-%@'@=\203-%A`\fD\232\203-\332\325!!\326!!\"\210\333%\334!!\210\202\262\325!!\203\220\f\247\203g\324\f\325!!Z!\324\f\326!!Z!W\203Z\327!\f\326!!#\210\202d\327!\325!!\f#\210\333($\322=\203~\330\325!!\326!!{\331\"\210\202\252\333 (\335\325!!\326!!\"\210)\202\252\"\203\252\"\311\\ )\336)\f\"\210\327!)\f#\210)'@`\fE%\314!!\205\305\337\340\325!!\326!!{\",\207" [click event position this-command click-posn posn mouse-minibuffer-check selected-window (0 . 0) 0 5 window-buffer overlay-buffer marker-buffer error "Wrong buffer" mod 3 mouse-secondary-save-then-kill mouse-start-end abs overlay-start overlay-end move-overlay kill-new t mouse-save-then-kill-delete-region nil delete-overlay copy-region-as-kill kill-ring-save x-set-selection SECONDARY mouse-secondary-overlay mouse-secondary-start mouse-secondary-click-count last-command mouse-save-then-kill-posn range kill-ring deactivate-mark start] 6 (#$ . 45389) "e"]) #@186 Number of buffers in one pane (submenu) of the buffer menu. If we have lots of buffers, divide them into groups of `mouse-buffer-menu-maxlen' and make a pane (or submenu) for each one. (custom-declare-variable 'mouse-buffer-menu-maxlen '20 '(#$ . 47657) :type 'integer :group 'mouse) #@391 Group the buffers by the major mode groups on \[mouse-buffer-menu]? This number which determines (in a hairy way) whether \[mouse-buffer-menu] will split the buffer menu by the major modes (see `mouse-buffer-menu-mode-groups') or just by menu length. Set to 1 (or even 0!) if you want to group by major mode always, and to a large number if you prefer a mixed multitude. The default is 4. (custom-declare-variable 'mouse-buffer-menu-mode-mult '4 '(#$ . 47948) :type 'integer :group 'mouse :version "20.3") #@187 How to group various major modes together in \[mouse-buffer-menu]. Each element has the form (REGEXP . GROUPNAME). If the major mode's name string matches REGEXP, use GROUPNAME instead. (defvar mouse-buffer-menu-mode-groups '(("Info\\|Help\\|Apropos\\|Man" . "Help") ("\\bVM\\b\\|\\bMH\\b\\|Message\\|Mail\\|Group\\|Score\\|Summary\\|Article" . "Mail/News") ("\\<C\\>" . "C") ("ObjC" . "C") ("Text" . "Text") ("Outline" . "Text") ("\\(HT\\|SG\\|X\\|XHT\\)ML" . "SGML") ("log\\|diff\\|vc\\|cvs\\|Annotate" . "Version Control") ("Lisp" . "Lisp")) (#$ . 48462)) #@138 Pop up a menu of buffers for selection with the mouse. This switches buffers in the window that you clicked on, and selects that window. (defalias 'mouse-buffer-menu #[(event) "\306!\210\307 \310\211\211\211 \211 \310 !\211 \"\203\233 \"@!r!q\210# $\310 %&\310 '\211 (\203T (@'\311'@\312)!\"\203K 'A$(A\211(\2045 *\313$\n\"\211%\204{ $\211;\203l $\202t \312)\310\211!$D\211%\nB!%AA>\204\221 %A!%AAB\241\210+\"A\211\"\204 *\n *\314*\203\276 *@AAG\211 +\211_)\\*A\211*\204\246 ) ,_ G G_W\203>\310 G - .\315\n\316\"\211\203\n@G\317V\203-\320_ GV\203\321\n@AA!\211 /\203\n@A@/B.B.)-\n@AGZ-\nA\211\204\334 \n\2034\321\322\323\324\325\n\"\"!\211 0\2033\3260B.B.)\327.\237B*\202I\321 !\327\330\331\f\"B\332 \"\211:\203ZA@\202`\333 `\334\314F)\211 1@) 2\211 !\205\205\335\3362!\203}\3372!\2022!\210\340!!.\207" [event sum-of-squares split-by-major-mode menu alist buffers mouse-minibuffer-check buffer-list nil string-match format-mode-line assoc 0 sort #[(elt1 elt2) "G GV\207" [elt1 elt2] 2] 3 10 mouse-buffer-menu-alist apply nconc mapcar cddr "Others" "Buffer Menu" mouse-buffer-menu-split "Select Buffer" x-popup-menu selected-window (0 . 0) select-window framep frame-selected-window switch-to-buffer buf #1=#:--cl-dolist-temp-- major-mode adjusted-major-mode elt mouse-buffer-menu-mode-groups group #2=#:--cl-dolist-temp-- mode-name tail len mouse-buffer-menu-mode-mult buffers-left subdivided-menus this-mode-list others-list position window] 8 (#$ . 49028) "e"]) (defalias 'mouse-buffer-menu-alist #[(buffers) "\306\307\306\310 \311\"\211\211\203+ \312\n@!\307H\313=\204$ \312\n@!G]\nA\211\204 \211\203\205 \n@ \312\f!\307H\313U\204} \314\211\315 \"\312\f!\316\f!\203P \317\202Q \320\212\fq\210 \203] \321\202^ \320)\322\f!\206w \212\fq\210\205r \323!)\206w \324%\fBB)\nA\211\2041 \237+\207" [head maxlen tail buffers elt buffer-read-only nil 0 sort #[(elt1 elt2) "\302!\302 !\231\207" [elt1 elt2 buffer-name] 3] buffer-name 32 format "%%-%ds %%s%%s %%s" buffer-modified-p "*" " " "%" buffer-file-name expand-file-name "" list-buffers-directory] 8]) (defalias 'mouse-buffer-menu-split #[(title alist) "G \306_\307\245V\203< \310\211\311 \211\2038 \233\211\203& S\233\310\241\210\312\313\n\"B\fB\nT \211\204 \f\237,\207 BC\207" [alist mouse-buffer-menu-maxlen i next sublists title 3 2 nil 1 format "Buffers %d"] 5]) #@69 Click on an alternative in the `*Completions*' buffer to choose it. (defalias 'mouse-choose-completion #[(event) "\306\307!\210\310 \311\211\212\310 \211:\203 A@\202 \312 `\313\314F)\211 @)!q\210 \203. \212 \211:\203? A@\202E \312 `\313\314F) \315\f8\206^ \fA@:\203[ \fA@@\202^ \fA@)b\210\311\211 m\204y \316`\317\"\203y ` `T \204\202 \320\321!\210\322 \317\" \323 \317\"\206\222 d \324 \",\312 \325 \211:\203\256 A@\202\264 \312 `\313\314F)\211 @)!\210\326\327\330\"\203\321 \331\312 !\203\321 \332\330 !\210\202\333 \331\312 !\204\333 \333 \210\325 !\210)\334 \n#+\207" [base-size choice buffer event position completion-reference-buffer run-hooks mouse-leave-buffer-hook window-buffer nil selected-window (0 . 0) 0 5 get-text-property mouse-face error "No completion here" previous-single-property-change next-single-property-change buffer-substring-no-properties select-window one-window-p t selected-frame window-dedicated-p iconify-frame bury-buffer choose-completion-string completion-base-size end beg owindow] 6 (#$ . 51473) "e"]) (defalias 'font-menu-add-default #[nil "\304\305\306 !\236A \307\310\n\"\206 \nA@\307\311 \"\203$ \312\307\311 \" \"\210 \311D AB\241+\207" [default x-fixed-font-alist font-alist elt font frame-parameters selected-frame assoc "Misc" "Default" delete] 4]) #@36 X fonts suitable for use in Emacs. (defvar x-fixed-font-alist '("Font Menu" ("Misc" ("fixed" "fixed") ("6x10" "-misc-fixed-medium-r-normal--10-*-*-*-c-60-iso8859-1" "6x10") ("6x12" "-misc-fixed-medium-r-semicondensed--12-*-*-*-c-60-iso8859-1" "6x12") ("6x13" "-misc-fixed-medium-r-semicondensed--13-*-*-*-c-60-iso8859-1" "6x13") ("7x13" "-misc-fixed-medium-r-normal--13-*-*-*-c-70-iso8859-1" "7x13") ("7x14" "-misc-fixed-medium-r-normal--14-*-*-*-c-70-iso8859-1" "7x14") ("8x13" "-misc-fixed-medium-r-normal--13-*-*-*-c-80-iso8859-1" "8x13") ("9x15" "-misc-fixed-medium-r-normal--15-*-*-*-c-90-iso8859-1" "9x15") ("10x20" "-misc-fixed-medium-r-normal--20-*-*-*-c-100-iso8859-1" "10x20") ("11x18" "-misc-fixed-medium-r-normal--18-*-*-*-c-110-iso8859-1" "11x18") ("12x24" "-misc-fixed-medium-r-normal--24-*-*-*-c-120-iso8859-1" "12x24") (#1="") ("clean 5x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-50-iso8859-1") ("clean 6x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-60-iso8859-1") ("clean 8x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-80-iso8859-1") ("clean 8x10" "-schumacher-clean-medium-r-normal--10-*-*-*-c-80-iso8859-1") ("clean 8x14" "-schumacher-clean-medium-r-normal--14-*-*-*-c-80-iso8859-1") ("clean 8x16" "-schumacher-clean-medium-r-normal--16-*-*-*-c-80-iso8859-1") (#1#) ("sony 8x16" "-sony-fixed-medium-r-normal--16-*-*-*-c-80-iso8859-1") ("lucidasanstypewriter-12" "-b&h-lucidatypewriter-medium-r-normal-sans-*-120-*-*-*-*-iso8859-1") ("lucidasanstypewriter-bold-14" "-b&h-lucidatypewriter-bold-r-normal-sans-*-140-*-*-*-*-iso8859-1") ("lucidasanstypewriter-bold-24" "-b&h-lucidatypewriter-bold-r-normal-sans-*-240-*-*-*-*-iso8859-1")) ("Courier" ("8" "-adobe-courier-medium-r-normal--*-80-*-*-m-*-iso8859-1") ("10" "-adobe-courier-medium-r-normal--*-100-*-*-m-*-iso8859-1") ("12" "-adobe-courier-medium-r-normal--*-120-*-*-m-*-iso8859-1") ("14" "-adobe-courier-medium-r-normal--*-140-*-*-m-*-iso8859-1") ("18" "-adobe-courier-medium-r-normal--*-180-*-*-m-*-iso8859-1") ("24" "-adobe-courier-medium-r-normal--*-240-*-*-m-*-iso8859-1") ("8 bold" "-adobe-courier-bold-r-normal--*-80-*-*-m-*-iso8859-1") ("10 bold" "-adobe-courier-bold-r-normal--*-100-*-*-m-*-iso8859-1") ("12 bold" "-adobe-courier-bold-r-normal--*-120-*-*-m-*-iso8859-1") ("14 bold" "-adobe-courier-bold-r-normal--*-140-*-*-m-*-iso8859-1") ("18 bold" "-adobe-courier-bold-r-normal--*-180-*-*-m-*-iso8859-1") ("24 bold" "-adobe-courier-bold-r-normal--*-240-*-*-m-*-iso8859-1") ("8 slant" "-adobe-courier-medium-o-normal--*-80-*-*-m-*-iso8859-1") ("10 slant" "-adobe-courier-medium-o-normal--*-100-*-*-m-*-iso8859-1") ("12 slant" "-adobe-courier-medium-o-normal--*-120-*-*-m-*-iso8859-1") ("14 slant" "-adobe-courier-medium-o-normal--*-140-*-*-m-*-iso8859-1") ("18 slant" "-adobe-courier-medium-o-normal--*-180-*-*-m-*-iso8859-1") ("24 slant" "-adobe-courier-medium-o-normal--*-240-*-*-m-*-iso8859-1") ("8 bold slant" "-adobe-courier-bold-o-normal--*-80-*-*-m-*-iso8859-1") ("10 bold slant" "-adobe-courier-bold-o-normal--*-100-*-*-m-*-iso8859-1") ("12 bold slant" "-adobe-courier-bold-o-normal--*-120-*-*-m-*-iso8859-1") ("14 bold slant" "-adobe-courier-bold-o-normal--*-140-*-*-m-*-iso8859-1") ("18 bold slant" "-adobe-courier-bold-o-normal--*-180-*-*-m-*-iso8859-1") ("24 bold slant" "-adobe-courier-bold-o-normal--*-240-*-*-m-*-iso8859-1"))) (#$ . 52814)) #@62 Prompt for a font name, using `x-popup-menu', and return it. (defalias 'mouse-select-font #[nil "\302 \204 \303\304!\210\305<\203 \202 \306\307 D\310 \311 C\"\"@\207" [last-nonmenu-event x-fixed-font-alist display-multi-font-p error "Cannot change fonts on this display" x-popup-menu (0 0) selected-window append generate-fontset-menu] 5 (#$ . 56173) nil]) #@212 Set the default font for the selected frame. The argument FONTS is a list of font names; the first valid font in this list is used. When called interactively, pop up a menu and allow the user to choose a font. (defalias 'mouse-set-font #[(&rest fonts) "\205 \302\203 \302\303\304\217\210\202 ?\205 \305\306!)\207" [fonts font nil (byte-code "\302@!\210@\303\211\207" [fonts font set-frame-font nil] 3) ((error (byte-code "A\301\207" [fonts nil] 1))) error "Font not found"] 3 (#$ . 56542) (byte-code "\302 \204 \303\304!\210\305<\203 \202 \306\307 D\310 \311 C\"\"\207" [last-nonmenu-event x-fixed-font-alist display-multi-font-p error "Cannot change fonts on this display" x-popup-menu (0 0) selected-window append generate-fontset-menu] 5)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list mouse-appearance-menu-map default-boundp set-default nil] 3) (defalias 'mouse-appearance-menu #[(event) "\306\307!\210\310 \205G\311 \312\313\314 \"r\315\216\316\n\211:\203# \nA@\202) \311 `\317\320F)@\321\"\210 \204\363 \322\323!\324 \325\326#\210\324 \327\330#\210\324 \331\332#\210\333\334!\203W \324 \335\336#\210\202\363 \322\337!\340\f\341 C\"A 6 \342 7\211 8\203\347 8@\2117@ 9\3229! :7A\342 ;\211 <\203\313 <@\211;@\342 =\211 >\343\230\203\245 \324:\344\345#\210\202\301 \346;\211 ?A@)!=\324:\347=!\350;@=E#\210*<A\211<\204\211 *\3246\347\3469!!\3509:E#\210*8A\2118\204n *\324 \351\350\3376E#\210*\352\n \"\211 @GS@8\211@\353=\203 \353\354!\202F@\355=\203\353\356!\202F@\357=\203+\360\320!\210\361\320!\202F@\205F\362\363@\334=\203>\334 \202B\364@!!\365t#-\207" [save-selected-window-alist save-selected-window-window event mouse-appearance-menu-map x-fixed-font-alist font-alist require face-remap display-multi-font-p selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030 \n@\306 @!\203) \307 \211A@)!\203) \310 @ \211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window (0 . 0) 0 norecord make-sparse-keymap "Change Default Buffer Face" define-key [face-remap-reset-base] (menu-item "Reset to Default" face-remap-reset-base) [text-scale-decrease] (menu-item "Decrease Buffer Text Size" text-scale-decrease) [text-scale-increase] (menu-item "Increase Buffer Text Size" text-scale-increase) functionp x-select-font [x-select-font] (menu-item "Change Buffer Font..." x-select-font) "Change Text Font" append generate-fontset-menu nil "" [space] ("--") intern vector menu-item [font-submenu] x-popup-menu text-scale-increase 1 text-scale-decrease -1 face-remap-reset-base text-scale-mode buffer-face-mode buffer-face-mode-invoke font-face-attributes symbol-name t font-submenu family #2=#:--cl-dolist-temp-- submenu-name submenu-map font #3=#:--cl-dolist-temp-- font-symbol font-name x choice] 9 nil "@e"]) (byte-code "\302\303\304#\210\305\306\307\"\210\305\310\311\"\210\305\312\307\"\210\305\313\307\"\210\305\314\307\"\210\305\315\307\"\210\305\316\317\"\210\305\320\317\"\210\305\321\317\"\210\305\322\323\"\210\305\324\323\"\210\305\325\323\"\210\305\326\327\"\210 \330=\204R \305\331\332\"\210\305\333\334\"\210\305\335\336\"\210\305\337\336\"\210\305\340\341\"\210\305\342\343\"\210\305\344\336\"\210\305\345\346\"\210\305\347\350\"\210\305\351\352\"\210\305\353\354\"\210\305\355\354\"\210\305\356\357\"\210\305\360\336\"\210\361\362!\210\363\364\341\"\210\363\365\357\"\210\366\364\341\367#\210\366\365\357\367#\210\361\370!\207" [global-map system-type define-key [down-mouse-1] mouse-drag-region global-set-key [mouse-1] mouse-set-point [drag-mouse-1] mouse-set-region [double-mouse-1] [triple-mouse-1] [left-fringe mouse-1] [right-fringe mouse-1] [mouse-2] mouse-yank-at-click [right-fringe mouse-2] [left-fringe mouse-2] [mouse-3] mouse-save-then-kill [right-fringe mouse-3] [left-fringe mouse-3] [C-down-mouse-1] mouse-buffer-menu ms-dos [S-down-mouse-1] mouse-appearance-menu [C-down-mouse-3] (menu-item "Menu Bar" ignore :filter (lambda (_) (if (zerop (or (frame-parameter nil 'menu-bar-lines) 0)) (mouse-menu-bar-map) (mouse-menu-major-mode-map)))) [mode-line mouse-1] mouse-select-window [mode-line drag-mouse-1] [mode-line down-mouse-1] mouse-drag-mode-line [header-line down-mouse-1] mouse-drag-header-line [header-line mouse-1] [mode-line mouse-2] mouse-delete-other-windows [mode-line mouse-3] mouse-delete-window [mode-line C-mouse-2] mouse-split-window-horizontally [vertical-scroll-bar C-mouse-2] mouse-split-window-vertically [vertical-line C-mouse-2] [vertical-line down-mouse-1] mouse-drag-vertical-line [vertical-line mouse-1] provide mouse defalias mldrag-drag-mode-line mldrag-drag-vertical-line make-obsolete "21.1" mldrag] 4)
Close
