
(provide (quote motion))

(require (quote zone))

(require (quote mouse))

(defvar horizontal-drag-inc 5 "\
Number of columns to scroll when the pointer is to the left or right of the window")

(defvar vertical-drag-inc 2 "\
Number of lines to scroll when the pointer is above or below the edge of the window")

(defvar mouse::downp nil "\
State variable for mouse dragging internals")

(defvar mouse::last-point -1 "\
Last location of a motion event")

(setq epoch::zones-modify-buffer nil)

(defvar motion::style nil "\
style used by drag zones")

(defvar drag-zone nil "\
Epoch zone to be used for hilighting selected text region.")

(setq-default drag-zone nil)

(setq-default mouse-down-marker nil)

(epoch-add-setup-hook (quote motion::init))

(defun motion::init nil (byte-code "?…	 Е ‰€ЖЗ \"€ИЙ \"€КЗ \"€ЛМН\"€ОПРБ!\"€ГГ)€СB‰‡" [motion::style t s nil epoch::screen-properties make-style set-style-foreground foreground set-style-background background set-style-underline push-event motion motion::handler mapcar (lambda (s) (byte-code "ВА	\"‡" [t s epoch::set-motion-hints] 3)) screen-list (motion-hints t)] 12))

(defun set-mouse-marker (&optional location) (byte-code "?…	 В ‰€Г	† `\"‡" [mouse-down-marker location make-marker set-marker] 4))

(defun end-mouse-drag (arg) (byte-code "З‰€	?ѓ В‚Y В‰€И!€… Й!…# К!?…- Л‰€?…6 Л‰€М!…X `XѓO НЖ\"€d^b‚X НЖ\"€d^b*‡" [mouse::last-point mouse::downp nil drag-zone s e t -1 mouse::copy-zone zone-start zone-end 1 zonep push-mark] 8))

(defun start-mouse-drag (arg) (byte-code "?ѓ	 Б‚) Е‰€Ж!€З €И €`‰€…) Й!€Б‰€К ‡" [arg nil mouse::downp mouse::last-point drag-zone start mouse::set-point abort-isearch set-mouse-marker delete-zone redisplay-screen] 6))

(defun extend-mouse-drag (arg) (byte-code "К‰€
… Л
!
… М
!@d^	?…! Н‰€?…* Н‰€
?†3 ?ѓI О`#‰€П
И\"€Р ‚‘ 	Xѓ] С
#‰€Р!‚‘ Yѓq С
	#‰€Р	!‚‘ Xѓ† С
	#‰€Р	!‚‘ С
#‰€Р!€Т €`‰	+‡" [mouse::downp m1 drag-zone m2 spot arg mouse-down-marker motion::style t mouse::last-point extend zone-start zone-end 0 add-zone set-zone-transient set-mouse-marker move-zone epoch::redisplay-screen] 16))

(defun motion::handler (type value scr) (byte-code "?… В €ГБ!… 	… Д ‡" [mouse-down-marker mouse::downp set-mouse-marker boundp mouse-sweep-update] 4))

(defun mouse-sweep-update nil (byte-code "ККККККХ ИК	Ц!@ЧШ\"ЩЧЪ\"Ш#ЩЧЫ\"Ш#?…V Ь`#‰€ЭИ\"€…n Ю ‰…n ЯабЧЪ\"\"\"…@Z‰€ЧШ\"Z‰€аX…љ X…љ аX…љ X?‰€вгдЏ€Ш^]‰€а^]‰€е\\\\\"@‰€Я
\"?ѓС К‚щ 
Vѓе 
‰€ж!‰‚п ж!‰€
‰€з	#€и €
‰€‚W .‡" [drag-m1 drag-m2 pnt pos x y w out-of-bounds t epoch::event-handler-abort nil w-edges left top right bottom drag-zone mouse-down-marker motion::style mouse-any-mask mouse::last-point selected-window window-pixedges elt 1 - 2 4 add-zone set-zone-transient query-pointer /= 0 logand errno (byte-code "ГW…	 Д	!€
V… Е	!‡" [y vertical-drag-inc bottom 0 scroll-down scroll-up] 3) ((error (byte-code "А‡" [nil] 1))) epoch::coords-to-point marker-position move-zone redisplay-screen] 23))

(defvar mouse::line-zone nil "\
Zone for selected line")

(defun mouse-select-line-start (arg) (byte-code "Е!€`‰€ЖЉЗ €`‰€И €Й
`#‰))€КЛМ\"‡" [arg mouse::last-point bol mouse::line-zone motion::style mouse::set-point nil beginning-of-line end-of-line add-zone push-event motion mouse-select-line-update] 7))

(defun mouse-select-line-end (arg) (byte-code "Г‰€	?ѓ В‚ Д	!€ЕЖ!‡" [mouse::last-point mouse::line-zone nil -1 delete-zone pop-event motion] 3))

(defun mouse-select-line-update (type value scr) (byte-code "ЖЖЖДЖПР !СТ\"УСФ\"Т#	Ж
…< Х ‰…< ЦЧШС	Щ\"\"\"…Ѕ С	Т\"Z‰€ЧX…S 	X?‰€ЉЪ	!€Ы!Z‰
€
ЧV…v m…v ЧiU…Ђ 
ТZ‰
)€ЬЭЮЏ€Ч	^]‰€Ъ!€Я €`‰€а €Ц`\"?ѓ« Ж‚ґ б
`#€в €`‰€‚& .	‡" [y pos bol out-of-bounds t epoch::event-handler-abort nil w-edges top bottom max-vscroll mouse-any-mask vertical-drag-inc mouse::last-point mouse::line-zone window-pixedges selected-window elt 1 - 4 query-pointer /= 0 logand 2 move-to-window-line forward-line errno (byte-code "ДW…	 Е	!€
V… Ж	^!‡" [y vertical-drag-inc bottom max-vscroll 0 scroll-down scroll-up] 4) ((error (byte-code "А‡" [nil] 1))) beginning-of-line end-of-line move-zone epoch::redisplay-screen] 21))

(defun mouse::buffer-line (marg) "\
Show the line number and buffer of the mouse EVENT" (byte-code "ЉГ!q€d@^Дe	\"ЕЖЗ
ИГ!!#!*)‡" [marg end n cadr count-lines message format "Line %d in %s" buffer-name] 9))

(defun abort-isearch nil "\
Abort any isearch in progress." (byte-code "АБВЏ‡" [err (byte-code "БВА\"‡" [t throw search-done] 3) ((no-catch (byte-code "А‡" [nil] 1)))] 3))

(global-set-mouse mouse-left mouse-down (quote start-mouse-drag))

(global-set-mouse mouse-left mouse-shift (quote mouse::buffer-line))

(global-set-mouse mouse-left mouse-up (quote end-mouse-drag))

(global-set-mouse mouse-right mouse-down (quote extend-mouse-drag))

(global-set-mouse mouse-right mouse-up (quote end-mouse-drag))

(global-set-mouse mouse-middle mouse-down (quote mouse::paste-cut-buffer))

(defun mouse-set-spot (arg) "\
Set point at mouse.  With double-click, set mark there as well.
Blinks matching paren if sitting after one.  Intended to be bound
to a window down button." (byte-code "Д!€p`Е!€Ж
`\"… Ж	p\"ѓ- ЗU…% И `=?…* Й ‚0 К‰€Лh!М=…; Н *€О ‡" [arg buf p mouse::clicks start-mouse-drag mouse::set-point equal 1 mark push-mark 0 char-syntax 41 blink-matching-open abort-isearch] 10))