Current File : //usr/local/share/emacs/27.2/lisp/mouse-drag.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@120 Scroll down ROW-DELTA lines and right COL-DELTA, ignoring buffer edge errors.
Keep the cursor on the screen as needed.
(defalias 'mouse-drag-safe-scroll #[(row-delta &optional col-delta) "\303 \203) \304U\204) \3051$ \3061 \307 !00\202( 0\210\310\311!\202( \210\310\312!\210\n\205\\ \n\304U?\205\\ \313\n!\210i\314 W\203F \315\314 !\202\\ \316i\314 \317 \320$\304V\205\\ \315\321\317 \314 \322#!)\207" [scroll-preserve-screen-position row-delta col-delta 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] 5 (#$ . 409)])
#@66 Scroll ROW-DELTA rows and COL-DELTA cols until an event happens.
(defalias 'mouse-drag-repeatedly-safe-scroll #[(row-delta &optional col-delta) "\303!\205 \304 \n\"\210\202 \207" [mouse-scroll-delay row-delta col-delta sit-for mouse-drag-safe-scroll] 3 (#$ . 1057)])
#@51 Determine if START-POSN and END-POSN are "close".
(defalias 'mouse-drag-events-are-point-events-p #[(start-posn end-posn) "\304!\304\n! @ @U\205 A AU*\207" [start-posn start-col-row end-posn end-col-row posn-col-row] 2 (#$ . 1333)])
#@63 If non-nil, mouse-drag on a long line enables truncate-lines.
(defvar mouse-drag-electric-col-scrolling t (#$ . 1577))
#@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 #[nil "\206+ \304 \305V\206+ \306 ?\206+ \205+ \212\307 \310\210`\n Z\311 V\205* \312\211+\207" [truncate-lines mouse-drag-electric-col-scrolling end beg window-hscroll 0 window-full-width-p line-beginning-position nil window-width t] 2 (#$ . 1703)])
#@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 (#$ . 2139))
(defconst mouse-throw-magnifier-min -6)
(defconst mouse-throw-magnifier-max 6)
(defconst mouse-throw-magnifier-base 1.5)
(defalias 'mouse-drag-scroll-delta #[(mouse-delta) " \n^]\305\306\307\310 !\311\n!_!!\n\312W\203 \313\202 \314\f\203% \314\202& \313#\207" [mouse-throw-magnifier-min mouse-throw-magnifier-max mouse-delta mouse-throw-magnifier-base mouse-throw-with-scroll-bar * round exp log abs 0 -1 1] 6])
#@864 "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)
(defalias 'mouse-drag-throw #[(start-event) "\306!\211\211@\262\307 !A\307 !@ \310 \311\211 \311\211 \311\211 \312 \313 \314\n!\210\315\316!\210\204P \317 \"\203P \320!ABB\314
!.
\207" [start-event start-posn start-window start-row start-col old-selected-window event-start posn-col-row selected-window nil 0 mouse-drag-should-do-col-scrolling select-window internal--track-mouse #[nil "\306\307 \310 !\311\n!A\311\n!@ \211\242\312=\262\204$ \242\313=\205e
\n\211@\262=\203C \203; \314\fZ!\314 Z!\315U\203Q \315U\204 \316\317\"\210\320\"\210\202 \207" [track-mouse event end row col start-window dragging read-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 col-scrolling-p start-col scroll-col-delta start-row scroll-delta have-scrolled] 3] mouse-drag-events-are-point-events-p event-basic-type event end row scroll-delta have-scrolled col scroll-col-delta col-scrolling-p unread-command-events] 4 (#$ . 2766) "e"])
#@545 "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)
(defalias 'mouse-drag-drag #[(start-event) "\306!\211\211@\262\307 !A\307 !@ \310 \311\211 \311\211 \311\211 \311\211 \312 \313 \314\n!\210\315 \316Z\317 \316Z\320\321!\210\204b \322 \"\203b \323!AB B \314
!.\207" [start-event start-posn start-window start-row start-col old-selected-window 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 #[nil "\306 \307!\310 !A\310 !@\211\242\311=\262\204\" \242\312=\205\241 \f \211@\262=\203 \n\313X\203: \314\315\313\"\210\202 \n
Y\203H \314\316\313\"\210\202 \203[ \316X\203[ \314\313\315\"\210\202 \203o Y\203o \314\313\316\"\210\202 \nZ\n\203\206 Z \313U\203\224 \313U\204 \317\320\"\210\202 \207" [event end row col start-window window-last-row read-event event-end posn-col-row mouse-movement switch-frame 0 mouse-drag-repeatedly-safe-scroll -1 1 t mouse-drag-safe-scroll col-scrolling-p window-last-col start-row scroll-delta start-col scroll-col-delta have-scrolled] 3] mouse-drag-events-are-point-events-p event-basic-type event end row scroll-delta have-scrolled window-last-row col window-last-col scroll-col-delta col-scrolling-p unread-command-events] 4 (#$ . 4710) "e"])
(provide 'mouse-drag)
Mini Shell