Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: 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)