;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@156 Scroll down ROW-DELTA lines and right COL-DELTA, ignoring buffer edge errors.
Keep the cursor on the screen as needed.

(fn ROW-DELTA &optional COL-DELTA)
(defalias 'mouse-drag-safe-scroll #[513 "\301
\203+
\302U\204+\3031&\3041\305!00\210\202+0\210\306\307!\210\202+\210\306\310!\210\211\205^\211\302U?\205^\311
!\210i\312 W\203H\313\312 !\202^\314i\312 \315 \316$\302V\205^\313\315 \312 \\\317\\!)\207" [scroll-preserve-screen-position nil 0 (end-of-buffer) (beginning-of-buffer) scroll-down message "Beginning of buffer" "End of buffer" scroll-right window-hscroll move-to-column - window-width -2 -3] 7 (#$ . 85)])
#@102 Scroll ROW-DELTA rows and COL-DELTA cols until an event happens.

(fn ROW-DELTA &optional COL-DELTA)
(defalias 'mouse-drag-repeatedly-safe-scroll #[513 "\301!\205\302\"\210\202\207" [mouse-scroll-delay sit-for mouse-drag-safe-scroll] 5 (#$ . 725)])
#@77 Determine if START-POSN and END-POSN are "close".

(fn START-POSN END-POSN)
(defalias 'mouse-drag-events-are-point-events-p #[514 "\300!\300!
@
@U\205
A
AU\207" [posn-col-row] 6 (#$ . 987)])
#@65 If non-nil, mouse-drag on a long line enables `truncate-lines'.
(defvar mouse-drag-electric-col-scrolling t (#$ . 1188))
#@127 Determine if it's wise to enable col-scrolling for the current window.
Basically, we check for existing horizontal scrolling.
(defalias 'mouse-drag-should-do-col-scrolling #[0 "\206+\302 \303V\206+\304 ?\206+	\205+\212\305 \306\210`\211Z\307 V\205(\310\211\266\202)\207" [truncate-lines mouse-drag-electric-col-scrolling window-hscroll 0 window-full-width-p line-beginning-position nil window-width t] 4 (#$ . 1316)])
#@152 Set direction of mouse-throwing.
If nil, the text moves in the direction the mouse moves.
If t, the scroll bar moves in the direction the mouse moves.
(defvar mouse-throw-with-scroll-bar nil (#$ . 1750))
(defconst mouse-throw-magnifier-min -6)
(defconst mouse-throw-magnifier-max 6)
(defconst mouse-throw-magnifier-base 1.5)
#@20 

(fn MOUSE-DELTA)
(defalias 'mouse-drag-scroll-delta #[257 "	^]\262
\304\305\306\n!\307!_!!
\310W\203\311\202\312_\203&\312\202'\311_\207" [mouse-throw-magnifier-min mouse-throw-magnifier-max mouse-throw-magnifier-base mouse-throw-with-scroll-bar round exp log abs 0 -1 1] 6 (#$ . 2081)])
#@882 "Throw" the page according to a mouse drag.

A "throw" is scrolling the page at a speed relative to the distance
from the original mouse click to the current mouse location.  Try it;
you'll like it.  It's easier to observe than to explain.

If the mouse is clicked and released in the same place of time we
assume that the user didn't want to scroll but wanted to whatever
mouse-2 used to do, so we pass it through.

Throw scrolling was inspired (but is not identical to) the "hand"
option in MacPaint, or the middle button in Tk text widgets.

If `mouse-throw-with-scroll-bar' is non-nil, then this command scrolls
in the opposite direction.  (Different people have different ideas
about which direction is natural.  Perhaps it has to do with which
hemisphere you're in.)

To test this function, evaluate:
    (global-set-key [down-mouse-2] \='mouse-drag-throw)

(fn START-EVENT)
(defalias 'mouse-drag-throw #[257 "\301
!\211\211@\262
\302!A\302!@\303 \304C\304C\304C\304C\304C\304C\305C\306 \307\f!\210\310\311\312







&\f!\210\242\204^\313
\242\"\203^\314!ABB\307	!\207" [unread-command-events event-start posn-col-row selected-window nil 0 mouse-drag-should-do-col-scrolling select-window internal--track-mouse make-closure #[0 "\313\303\314 \240\210\304\315\303\242!\240\210\305\316\304\242!A\240\210\310\316\304\242!@\240\210\303\242\211\242\317=\262
\2042\303\242\242\320=\205v\300\304\242\211@\262
=\203S\312\203J\311\321\302\310\242Z!\240\210\306\321\301\305\242Z!\240\210\306\242\322U\203a\311\242\322U\204\307\323\240\210\324\306\242\311\242\"\210\325\306\242\311\242\"\210\202\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 dragging read--potential-mouse-event event-end posn-col-row mouse-movement switch-frame mouse-drag-scroll-delta 0 t mouse-drag-safe-scroll mouse-drag-repeatedly-safe-scroll track-mouse] 4] mouse-drag-events-are-point-events-p event-basic-type] 28 (#$ . 2388) "e"])
#@563 "Drag" the page according to a mouse drag.

Drag scrolling moves the page according to the movement of the mouse.
You "grab" the character under the mouse and move it around.

If the mouse is clicked and released in the same place of time we
assume that the user didn't want to scroll but wanted to whatever
mouse-2 used to do, so we pass it through.

Drag scrolling is identical to the "hand" option in MacPaint, or the
middle button in Tk text widgets.

To test this function, evaluate:
    (global-set-key [down-mouse-2] \='mouse-drag-drag)

(fn START-EVENT)
(defalias 'mouse-drag-drag #[257 "\301
!\211\211@\262
\302!AC\302!@C\303 \304C\304C\304C\304C\304C\304C\304C\304C\305C\306 \307!\210\310 \311Z\240\210\312 \311Z\240\210\313\314\315&!\210\242\204v\316\n\242\"\203v\317!ABB\307!\207" [unread-command-events event-start posn-col-row selected-window nil 0 mouse-drag-should-do-col-scrolling select-window window-height 2 window-width internal--track-mouse make-closure #[0 "\315\303\316 \240\210\304\317\303\242!\240\210\305\320\304\242!A\240\210\311\320\304\242!@\240\210\303\242\211\242\321=\262
\2042\303\242\242\322=\205\275\300\304\242\211@\262
=\203\305\242\323X\203L\324\325\323\"\210\202\305\242\310\242Y\203\\\324\326\323\"\210\202\314\203o\311\242\326X\203o\324\323\325\"\210\202\314\203\203\311\242\312\242Y\203\203\324\323\326\"\210\202\306\305\242\301\242Z\240\210\301\305\242\240\210\314\203\241\313\311\242\302\242Z\240\210\302\311\242\240\210\306\242\323U\203\257\313\242\323U\204\307\327\240\210\330\306\242\313\242\"\210\202\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 drag-dragging read--potential-mouse-event event-end posn-col-row mouse-movement switch-frame 0 mouse-drag-repeatedly-safe-scroll -1 1 t mouse-drag-safe-scroll track-mouse] 3] mouse-drag-events-are-point-events-p event-basic-type] 32 (#$ . 4333) "e"])
(provide 'mouse-drag)