Gecko [ 122.154.134.11 ]

Name	Size	Permission
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--

Code Editor : mouse-sel.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:30 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mouse-sel.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`mouse-sel.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\207" [require mouse thingatpt custom-declare-group mouse-sel nil "Mouse selection enhancement." :group] 6)
#@234 Leave point near last mouse position.
If non-nil, \[mouse-select] and \[mouse-extend] will leave point at the end
of the region nearest to where the mouse last was.
If nil, point will always be placed at the beginning of the region.
(custom-declare-variable 'mouse-sel-leave-point-near-mouse 't '(#$ . 781) :type 'boolean :group 'mouse-sel)
#@69 If non-nil, \[mouse-select] cycles the click-counts after 4 clicks.
(custom-declare-variable 'mouse-sel-cycle-clicks 't '(#$ . 1128) :type 'boolean :group 'mouse-sel)
#@25 Control mouse bindings.
(custom-declare-variable 'mouse-sel-default-bindings 't '(#$ . 1301) :type '(choice (const :tag "none" nil) (const :tag "cut and paste" interprogram-cut-paste) (other :tag "default bindings" t)) :group 'mouse-sel)
#@49 An alist of events that `mouse-sel-mode' binds.
(defconst mouse-sel-bound-events '(([mouse-1] . ignore) ([drag-mouse-1] . ignore) ([mouse-3] . ignore) ([down-mouse-1] . mouse-select) ([down-mouse-3] . mouse-extend) ([mouse-2] . mouse-insert-selection) ([M-mouse-1] . ignore) ([M-drag-mouse-1] . ignore) ([M-mouse-3] . ignore) ([M-down-mouse-1] . mouse-select-secondary) ([M-mouse-2] . mouse-insert-secondary) ([M-down-mouse-3] . mouse-extend-secondary)) (#$ . 1545))
#@59 Non-nil if Mouse Sel mode has been enabled at least once.
(defvar mouse-sel-has-been-enabled nil (#$ . 2018))
(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-sel-original-bindings default-boundp set-default nil mouse-sel-original-interprogram-cut-function mouse-sel-original-interprogram-paste-function] 3)
#@263 Non-nil if Mouse-Sel mode is enabled.
See the command `mouse-sel-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 `mouse-sel-mode'.
(custom-declare-variable 'mouse-sel-mode 'nil '(#$ . 2451) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'mouse-sel :type 'boolean)
#@1433 Toggle Mouse Sel mode.
With prefix ARG, turn Mouse Sel mode on if and only if ARG is positive.
Returns the new status of Mouse Sel mode (non-nil means on).

When Mouse Sel mode is enabled, mouse selection is enhanced in various ways:

- Clicking mouse-1 starts (cancels) selection, dragging extends it.

- Clicking or dragging mouse-3 extends the selection as well.

- Double-clicking on word constituents selects words.
Double-clicking on symbol constituents selects symbols.
Double-clicking on quotes or parentheses selects sexps.
Double-clicking on whitespace selects whitespace.
Triple-clicking selects lines.
Quad-clicking selects paragraphs.

- Selecting sets the region & X primary selection, but does NOT affect
the `kill-ring', nor do the kill-ring functions change the X selection.
Because the mouse handlers set the primary selection directly,
mouse-sel sets the variables `interprogram-cut-function' and
`interprogram-paste-function' to nil.

- Clicking mouse-2 inserts the contents of the primary selection at
the mouse position (or point, if `mouse-yank-at-point' is non-nil).

- Pressing mouse-2 while selecting or extending copies selection
to the kill ring.  Pressing mouse-1 or mouse-3 kills it.

- Double-clicking mouse-3 also kills selection.

- M-mouse-1, M-mouse-2 & M-mouse-3 work similarly to mouse-1, mouse-2
& mouse-3, but operate on the X secondary selection rather than the
primary selection and region.
(defalias 'mouse-sel-mode #[(&optional arg) "\306 	\307=\203�\n?\202(�	\203�\310	!\311V\202(�\n\204\"�\312\202(�\313\314\302\"\210\315\211\203[�\316\317\320\321#\210\322\323\324\"\210\203\217�\325\326\f\"$%&'\312(\327=\204\217�\315\211$&\202\217�\330\323\324\"\210
\315)\211*\203\201�*@)\331)@)A\"\210*A\211*\204j�*(\203\217�%$'&\332\333\n\203\231�\334\202\232�\335\"\210\336 \203\276�\337\302!\210\306 \203\261�\306 \232\203\276�\313\340\n\203\273�\341\202\274�\342\"\210)\343 \210\n\207" [#1=#:last-message arg mouse-sel-mode mouse-sel-default-bindings mouse-sel-bound-events mouse-sel-original-bindings current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil put mouse-2 event-kind mouse-click add-hook x-lost-selection-functions mouse-sel-lost-selection-hook mapcar #[(binding) "@\211\303\n	\"B\304	A\"\210)\207" [binding event global-map lookup-key global-set-key] 5] interprogram-cut-paste remove-hook global-set-key run-hooks mouse-sel-mode-hook mouse-sel-mode-on-hook mouse-sel-mode-off-hook called-interactively-p customize-mark-as-set "Mouse-Sel mode %sabled" "en" "dis" force-mode-line-update interprogram-cut-function mouse-sel-original-interprogram-cut-function interprogram-paste-function mouse-sel-original-interprogram-paste-function mouse-sel-has-been-enabled binding #2=#:--cl-dolist-temp--] 5 (#$ . 2881) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode mouse-sel-mode nil boundp mouse-sel-mode-map] 5)
#@46 Type of PRIMARY selection in current buffer.
(defvar mouse-sel-primary-thing nil (#$ . 5888))
(make-variable-buffer-local 'mouse-sel-primary-thing)
#@48 Type of SECONDARY selection in current buffer.
(defvar mouse-sel-secondary-thing nil (#$ . 6042))
(byte-code "\301\302!\210\303!\204�\304\305\211\"\306\307\310#\210\301\207" [mouse-secondary-overlay make-variable-buffer-local mouse-sel-secondary-thing overlayp make-overlay 1 overlay-put face secondary-selection] 4)
#@385 Alist associating selections with variables.
Each element is of the form:

(SELECTION-NAME OVERLAY-SYMBOL SELECTION-THING-SYMBOL)

where   SELECTION-NAME          = name of selection
        OVERLAY-SYMBOL          = name of variable containing overlay to use
	SELECTION-THING-SYMBOL 	= name of variable where the current selection
 				  type for this selection should be stored.
(defconst mouse-sel-selection-alist '((PRIMARY mouse-drag-overlay mouse-sel-primary-thing) (SECONDARY mouse-secondary-overlay mouse-sel-secondary-thing)) (#$ . 6370))
#@290 Function to call to set selection.
Called with two arguments:

SELECTION, the name of the selection concerned, and
  VALUE, the text to store.

This sets the selection as well as the cut buffer for the older applications,
unless `mouse-sel-default-bindings' is `interprogram-cut-paste'.
(defvar mouse-sel-set-selection-function (byte-code "\301=\203�\302\207\303\207" [mouse-sel-default-bindings interprogram-cut-paste x-set-selection #[(selection value) "\302=\203\n�\303	!\207\304	\"\207" [selection value PRIMARY x-select-text x-set-selection] 3]] 2) (#$ . 6928))
#@118 Function to call to get the selection.
Called with one argument:

SELECTION: the name of the selection concerned.
(defvar mouse-sel-get-selection-function #[(selection) "\303=\203�\304 \206 �\305\301!\203�	\206 �\305\302!\205�\n\207\306!\207" [selection x-last-selected-text x-last-selected-text-primary PRIMARY x-cut-buffer-or-selection-value boundp x-get-selection] 2] (#$ . 7508))
#@519 Determine what `thing' `mouse-sel' should operate on.
The first argument is NCLICKS, is the number of consecutive
mouse clicks at the same position.

Double-clicking on word constituents selects words.
Double-clicking on symbol constituents selects symbols.
Double-clicking on quotes or parentheses selects sexps.
Double-clicking on whitespace selects whitespace.
Triple-clicking selects lines.
Quad-clicking selects paragraphs.

Feel free to re-define this function to support your own desired
multi-click semantics.
(defalias 'mouse-sel-determine-selection-thing #[(nclicks) "`f\211\205	�z\n\203�S\304\246T\305U\203�\306\202W�\307U\203(�\310\202W�\304Y\2032�\311\202W�	\312>\203<�\313\202W�\314>\203F�\315\202W�	\316=\203P�\317\202W�	\320=\205W�\321*\207" [next-char char-syntax mouse-sel-cycle-clicks nclicks 4 1 nil 3 line paragraph (40 41 34 39) sexp (32 9 10) whitespace 95 symbol 119 word] 3 (#$ . 7907)])
#@39 Set the specified SELECTION to VALUE.
(defalias 'mouse-sel-set-selection #[(selection value) "\203	�	\n\"\207\303\304	\n#\207" [mouse-sel-set-selection-function selection value put mouse-sel-internal-selection] 4 (#$ . 8837)])
#@43 Get the value of the specified SELECTION.
(defalias 'mouse-sel-get-selection #[(selection) "\203�	!\207\302	N\207" [mouse-sel-get-selection-function selection mouse-sel-internal-selection] 2 (#$ . 9072)])
#@44 Return overlay corresponding to SELECTION.
(defalias 'mouse-sel-selection-overlay #[(selection) "\303	\"A@\211\204�\304\305\"\210\nJ)\207" [selection mouse-sel-selection-alist symbol assoc error "No overlay corresponding to %s selection"] 4 (#$ . 9286)])
#@44 Return overlay corresponding to SELECTION.
(defalias 'mouse-sel-selection-thing #[(selection) "\303\304	\"8\211\204�\305\306\"\210\n)\207" [selection mouse-sel-selection-alist symbol 2 assoc error "No symbol corresponding to %s selection"] 5 (#$ . 9551)])
#@223 Convert region to PRIMARY overlay and deactivate region.
Argument ORIG-WINDOW specifies the window the cursor was in when the
originating command was issued, and is used to determine whether the
region was visible or not.
(defalias 'mouse-sel-region-to-primary #[(orig-window) "\205<�\305\306!\n\203#�\204�\f\307 =\203#�\310	\311 \312 p$\210\2028�\f\307 =\2034�\310	``p$\210\2028�\313	!\210\314\211)\207" [transient-mark-mode overlay mark-active highlight-nonselected-windows orig-window mouse-sel-selection-overlay PRIMARY selected-window move-overlay region-beginning region-end delete-overlay nil] 5 (#$ . 9818)])
#@205 Convert PRIMARY overlay to region.
Optional argument DIRECTION specifies the mouse drag direction: a value of
1 indicates that the mouse was dragged left-to-right, otherwise it was
dragged right-to-left.
(defalias 'mouse-sel-primary-to-region #[(&optional direction) "\306\307!\310!\311!	\n=\203H�	\203�	b\210\203h�\312=\204/�\242\313=\2035�A\2045�\314\211\202D�\242\313=\203?�A\314\315\316!\210\202h�
\203_�\317=\203_�\nb\210\320	\321\322#\210\202h�	b\210\320\n\321\322#\210\205o�\323!+\207" [overlay start end transient-mark-mode mark-active mouse-sel-leave-point-near-mouse mouse-sel-selection-overlay PRIMARY overlay-start overlay-end lambda only nil run-hooks deactivate-mark-hook 1 push-mark nomsg active delete-overlay direction] 4 (#$ . 10447)])
#@124 Evaluate forms at mouse position.
Move to the end position of EVENT, execute FORMS, and restore original
point and window.
(defalias 'mouse-sel-eval-at-event-end '(macro . #[(event &rest forms) "\302\303\304DDC\305\303\306DE\307\302\310\311\312\313\314\315\316	B\317BB\257\257\207" [event forms let posn event-end if mouse-minibuffer-check (if (and posn (not (windowp (posn-window posn)))) (error "Cursor not in text area of window")) (orig-window orig-point-marker) (setq orig-window (selected-window)) (if posn (select-window (posn-window posn))) (setq orig-point-marker (point-marker)) (if (and posn (numberp (posn-point posn))) (goto-char (posn-point posn))) unwind-protect progn ((goto-char (marker-position orig-point-marker)) (move-marker orig-point-marker nil) (select-window orig-window))] 13 (#$ . 11227)]))
(put 'mouse-sel-eval-at-event-end 'lisp-indent-hook 1)
#@391 Set region/selection using the mouse.

Click sets point & mark to click position.
Dragging extends region/selection.

Multi-clicking selects word/lines/paragraphs, as determined by
'mouse-sel-determine-selection-thing.

Clicking mouse-2 while selecting copies selected text to the kill-ring.
Clicking mouse-1 or mouse-3 kills the selected text.

This should be bound to a down-mouse event.
(defalias 'mouse-select #[(event) "\302\303\216\304\305	\"\211*\207" [select event nil ((byte-code "\203�<\203�\303	AB\nB\202�\304!\210\303\207" [select event unread-command-events mouse-2 mouse-sel-primary-to-region] 2)) mouse-select-internal PRIMARY] 3 (#$ . 12111) "@e"])
#@425 Set secondary selection using the mouse.

Click sets the start of the secondary selection to click position.
Dragging extends the secondary selection.

Multi-clicking selects word/lines/paragraphs, as determined by
'mouse-sel-determine-selection-thing.

Clicking mouse-2 while selecting copies selected text to the kill-ring.
Clicking mouse-1 or mouse-3 kills the selected text.

This should be bound to a down-mouse event.
(defalias 'mouse-select-secondary #[(event) "\301\302\"\207" [event mouse-select-internal SECONDARY] 3 (#$ . 12792) "e"])
#@433 Set SELECTION using the mouse, with EVENT as the initial down-event.
Normally, this returns the direction in which the selection was
made: a value of 1 indicates that the mouse was dragged
left-to-right, otherwise it was dragged right-to-left.

However, if `mouse-1-click-follows-link' is non-nil and the
subsequent mouse events specify following a link, this returns
the final mouse-event.  In that case, the selection is not set.
(defalias 'mouse-select-internal #[(selection event) "\211:\203�\3068:\203�\306\202�\3078\202�\310 `\311\312F)\211\203(�\313!\210	\203:�\314	\211@)!\204:�\315\316!\210\317\211\310 	\203M�\320	\211@)!\210\321 	\203\216�	\322\n8\206m�\nA@:\203j�\nA@@\202m�\nA@)\247\203\216�	\322\n8\206\213�\nA@:\203\210�\nA@@\202\213�\nA@)b\210\323\216\324
!\325
!\211\326\211:\203\260�\3068\250\203\260�\3068\202\261�\307)!L\210\327J!\211\203\317�\330@Ap$\210\202\327�\330``p$\210+\331\332\215,\207" [event posn position orig-point-marker orig-window selection 2 1 selected-window (0 . 0) 0 mouse-minibuffer-check windowp error "Cursor not in text area of window" nil select-window point-marker 5 ((byte-code "\302!b\210\303\211\223\210\304	!\207" [orig-point-marker orig-window marker-position nil select-window] 3)) mouse-sel-selection-thing mouse-sel-selection-overlay mouse-sel-determine-selection-thing bounds-of-thing-at-point move-overlay follow-link (mouse-extend-internal selection event t) overlay thing-symbol object-bounds] 6 (#$ . 13346)])
#@42 Extend region/selection using the mouse.
(defalias 'mouse-extend #[(event) "\304 \305\306\n\211:\203�\307\n8:\203�\307\202�\310\n8\202$�\304 `\311\312F)\211@)!\210\313\216\314	!\210\315\316\n\"\211+\207" [direction orig-window event position selected-window nil select-window 2 1 (0 . 0) 0 ((mouse-sel-primary-to-region direction)) mouse-sel-region-to-primary mouse-extend-internal PRIMARY] 6 (#$ . 14861) "e"])
#@45 Extend secondary selection using the mouse.
(defalias 'mouse-extend-secondary #[(event) "\300\213\207" [((byte-code "\301\302\"\207" [event mouse-extend-internal SECONDARY] 3))] 1 (#$ . 15287) "e"])
#@314 Extend specified SELECTION using the mouse.
Track mouse-motion events, adjusting the SELECTION appropriately.
Optional argument INITIAL-EVENT specifies an initial down-mouse event.
Optional argument NO-PROCESS means not to process the initial
event.

See documentation for mouse-select-internal for more details.
(defalias 'mouse-extend-internal #[(selection &optional initial-event no-process) "\211:\203�\306	8:\203�\306\202�\307	8\202�\310 `\311\312F)\211\203(�\313!\210\n\203:�\314\n\211@)!\204:�\315\316!\210\317\211\310 \n\203M�\320\n\211@)!\210\321 \n\203\216�\n\3228\206m�A@:\203j�A@@\202m�A@)\247\203\216�\n\3228\206\213�A@:\203\210�A@@\202\213�A@)b\210\323\216\324\325\326\327 !\"A4\330\216\3315!6\3325!7\310 \333
!8\334
!A@9\335\334
!8:\317;\312<\317\211=>\317\211?\3367!p=\203\347�\3377!=\3407!>\202\362�`\211=>6\317L\210\341\342!\203\376�\342\327 \343\"\210\344 \210\345	\"\203
\346\347	\"\210\3377!\3407! \211 =\204*\3505 {\"\210\317@\351A!\352=\203F\353 \"\210\354 \210\354 \210\202\221\351A!\355>\203p\356\357A!>\203p\360 \"\210\3617\211#\210\354 \210\354 \210\202\221\351A!\362=\203\221\363\357A!>\203\221\360 \"\210\3617\211#\210+?.\207" [initial-event event posn position orig-point-marker orig-window 2 1 selected-window #1=(0 . 0) 0 mouse-minibuffer-check windowp error "Cursor not in text area of window" nil select-window point-marker 5 ((byte-code "\302!b\210\303\211\223\210\304	!\207" [orig-point-marker orig-window marker-position nil select-window] 3)) assoc cursor-type frame-parameters selected-frame ((byte-code "\301\302!\203�\302\303 \304BC\"\210\301\207" [orig-cursor-type fboundp modify-frame-parameters selected-frame cursor-type] 4)) mouse-sel-selection-thing mouse-sel-selection-overlay window-frame window-edges 3 overlay-buffer overlay-start overlay-end fboundp modify-frame-parameters ((cursor-type . bar)) (lambda nil (track-mouse (byte-code "\203�	\204�\211\306\202�\307 \211:\205\263\n@\310>\205\263J\n\211:\2039�\311\n8:\2033�\311\2024�\312\n8\202?�\313 `\314\315F)\n\242\316=\204\f\211@)\203s�\f\211@)\317!\203h�\320!\202j�)\320!=\203\f\211@)=\204\312�\321 AA\211\203\246�o\204\246�W\203\246�\322Z$\210\202\306�\203\306�m\204\306� Y\203\306�\322 ZT!$\210)\202\f\3238\206\350�A@:\203\344�A@@\202\350�A@)\324=\203\373�\322\312!$\210\202\f\3238\206A@:\203A@@\202A@)b\210\"\204?!=\204?`!\\\311\245W\2039\325\202:\312\"\202d\"\325=\204S`!X\203S\325\"\202d\"\312=\204d`Y\203d\312\"
\203\217\"\312=\203vm\204v\312u\210`#\"\312=\203\205!\202\207b\210\306\326\327\217\210)\330\"\312=\203\236!\202\237`\"\325=\203\253\202\254`p$\210*\202��\207" [initial-event no-process event thing-symbol end selection-thing nil read-event (mouse-movement switch-frame) 2 1 selected-window #1# 0 switch-frame windowp window-frame mouse-position mouse-scroll-subr 5 mode-line -1 (byte-code "	`Z_\304V\203�\305\n\"\210\202��`\305\n[\"\210	`Z_\304V\203(�\202)�`b\210)\304\207" [direction goal selection-thing end 0 forward-thing] 3) ((error)) move-overlay position posn-w orig-window end-row top overlay max bottom min direction goal] 6))) mouse-sel-follow-link-p throw follow-link mouse-sel-set-selection event-basic-type mouse-2 copy-region-as-kill read-event (mouse-1 mouse-3) down event-modifiers kill-region move-overlay mouse-3 double orig-cursor-type selection thing-symbol overlay orig-window-frame top bottom mark-active echo-keystrokes min max direction this-command last-input-event] 5 (#$ . 15494)])
#@226 Return t if we should follow a link, given INITIAL and FINAL mouse events.
See `mouse-1-click-follows-link' for details.  Currently, Mouse
Sel mode does not support using a `double' value to follow links
using double-clicks.
(defalias 'mouse-sel-follow-link-p #[(initial final) "\205	\205\n\205@\306=\205\307\211:\203!�A@\202'�\310 `\311\312F)!\205\211:\2039�A@\202?�\310 `\311\312F)\313\f8\206X�\fA@:\203U�\fA@@\202X�\fA@)	\211:\203q�\3148:\203k�\314\202l�\3158\202w�\310 `\316\312F)\313\f8\206\220�\fA@:\203\215�\fA@@\202\220�\fA@)U\205\211:\203\251�\3148\250\203\251�\3148\202\252�\315)\315U\205\n\250?\206\211:\203\303�A@\202\311�\310 `\311\312F)\317\f8)	\211:\203\347�\3148:\203\341�\314\202\342�\3158\202\355�\310 `\316\312F)\317\f8)\211\250\205
\250\205\n\312V\203
Z\nX\202
Z\nW*\207" [initial final mouse-1-click-follows-link event position t1 down-mouse-1 mouse-on-link-p selected-window (0 . 0) 0 5 2 1 (0 . 0) 3 t0] 6 (#$ . 19179)])
#@124 Insert the contents of the PRIMARY selection at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.
(defalias 'mouse-insert-selection #[(event arg) "\303=\203�\304	\n\"\207\305\306	\"\207" [mouse-sel-default-bindings event arg interprogram-cut-paste mouse-yank-at-click mouse-insert-selection-internal PRIMARY] 3 (#$ . 20186) "e\nP"])
#@126 Insert the contents of the SECONDARY selection at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.
(defalias 'mouse-insert-secondary #[(event) "\301\302\"\207" [event mouse-insert-selection-internal SECONDARY] 3 (#$ . 20553) "e"])
#@122 Insert the contents of the named SELECTION at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.
(defalias 'mouse-insert-selection-internal #[(selection event) "\204�\304	!\210\n\205�\305`\306\"\210\307\n!\206�\310!\207" [mouse-yank-at-point event mouse-sel-get-selection-function selection mouse-set-point push-mark nomsg insert-for-yank ""] 3 (#$ . 20818)])
#@42 Remove the overlay for a lost selection.
(defalias 'mouse-sel-lost-selection-hook #[(selection) "\302!\303	!)\207" [selection overlay mouse-sel-selection-overlay delete-overlay] 2 (#$ . 21213)])
(provide 'mouse-sel)

${this.title}

Code Editor : mouse-sel.elc