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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\317%\210\310\323\312\313\324DD\325\316\326%\207" [require mouse thingatpt custom-declare-group mouse-sel nil "Mouse selection enhancement." :group custom-declare-variable mouse-sel-leave-point-near-mouse funcall function #[0 "\300\207" [t] 1 #1=""] "Leave point near last mouse position.\nIf non-nil, \\[mouse-select] and \\[mouse-extend] will leave point at the end\nof the region nearest to where the mouse last was.\nIf nil, point will always be placed at the beginning of the region." :type boolean mouse-sel-cycle-clicks #[0 "\300\207" [t] 1 #1#] "If non-nil, \\[mouse-select] cycles the click-counts after 4 clicks." mouse-sel-default-bindings #[0 "\300\207" [t] 1 #1#] "Control mouse bindings." (choice (const :tag "none" nil) (const :tag "cut and paste" interprogram-cut-paste) (other :tag "default bindings" t))] 6)
#@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)) (#$ . 1046))
(defvar mouse-sel-original-bindings nil)
(byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314\315\316&	\207" [defalias mouse-sel--ignore ignore custom-declare-variable mouse-sel-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Mouse-Sel mode is enabled.\nSee the `mouse-sel-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `mouse-sel-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)
#@1473 Toggle Mouse Sel mode.

This is a minor mode.  If called interactively, toggle the `Mouse-Sel
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='mouse-sel-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

Mouse Sel mode is a global minor mode.  When enabled, mouse
selection is enhanced in various ways:

- 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).

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

(fn &optional ARG)
(defalias 'mouse-sel-mode #[256 "\305 \306\301\307=\203\310\301!?\202!\247\203 \311W\203 \312\202!\313\"\210\314\300!\2038\315\301\"\310\301!\2038\301B	\203k\316\317\320\321#\210\322\323\324\"\210\n\203\256\325\326\"\n\327=\204\256\330\331\332\333B\334\312$\210\330\331\335\336B\334\312$\210\202\256\337\323\324\"\210\f\211\203\205\211@\340
@A\"\210
A\266\202\202q\210\341\310\342!\334\"\211\310\342!=\204\231\306\342\"\210\210\341\310\343!\334\"\211\310\343!=\204\255\306\343\"\210\210\344\345\310\301!\203\272\346\202\273\347\"\210\350\351!\203\343\352\301!\210\305 \203\323\211\305 \232\203\343\353\354\310\301!\203\337\355\202\340\356\357#\210\210\360 \210\310\301!\207" [global-minor-modes mouse-sel-mode mouse-sel-default-bindings mouse-sel-bound-events mouse-sel-original-bindings current-message set-default toggle default-value 1 nil t boundp delq put mouse-2 event-kind mouse-click add-hook x-lost-selection-functions mouse-sel-lost-selection-hook mapcar #[257 "\211@\211\301\"B\302A\"\210\207" [global-map lookup-key global-set-key] 6 "\n\n(fn BINDING)"] interprogram-cut-paste advice--add-function :override #[0 "\300\301!\207" [default-value interprogram-cut-function] 2] #[257 "\300\301\"\207" [set-default interprogram-cut-function] 4 "\n\n(fn GV--VAL)"] mouse-sel--ignore #[0 "\300\301!\207" [default-value interprogram-paste-function] 2] #[257 "\300\301\"\207" [set-default interprogram-paste-function] 4 "\n\n(fn GV--VAL)"] remove-hook global-set-key advice--remove-function interprogram-cut-function interprogram-paste-function run-hooks mouse-sel-mode-hook mouse-sel-mode-on-hook mouse-sel-mode-off-hook called-interactively-p any customize-mark-as-set message "Mouse-Sel mode %sabled%s" "en" "dis" "" force-mode-line-update] 7 (#$ . 2121) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar mouse-sel-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\312\315\316#\207" [mouse-sel-mode-map mouse-sel-mode-hook variable-documentation put "Hook run after entering or leaving `mouse-sel-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode mouse-sel-mode boundp make-obsolete "use the normal mouse modes" "24.3"] 6)
#@46 Type of PRIMARY selection in current buffer.
(defvar mouse-sel-primary-thing nil (#$ . 6062))
(make-variable-buffer-local 'mouse-sel-primary-thing)
#@48 Type of SECONDARY selection in current buffer.
(defvar mouse-sel-secondary-thing nil (#$ . 6216))
(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)
#@94 An overlay which records the current primary selection.
This is used by Mouse Sel mode only.
(defconst mouse-sel-primary-overlay (byte-code "\300ee\"\301
!\210\302
\303\304#\210\207" [make-overlay delete-overlay overlay-put face region] 5) (#$ . 6543))
#@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-sel-primary-overlay mouse-sel-primary-thing) (SECONDARY mouse-secondary-overlay mouse-sel-secondary-thing)) (#$ . 6803))
#@237 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, 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 gui-set-selection #[514 "
\300=\203\n\301
!\207\302\"\207" [PRIMARY gui-select-text gui-set-selection] 5 "\n\n(fn SELECTION VALUE)"]] 2) (#$ . 7368))
#@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 #[257 "\211\302=\203\303 \206\304\300!\203\206	\207\305
!\207" [x-last-selected-text-primary gui--last-selected-text-primary PRIMARY gui-selection-value boundp gui-get-selection] 3 "\n\n(fn SELECTION)"] (#$ . 7898))
#@533 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.

(fn NCLICKS)
(defalias 'mouse-sel-determine-selection-thing #[257 "`f\211\205\211z\203S\301\246T\262\302U\203\303\207\304U\203#\305\207\301Y\203+\306\207\211\307>\2033\310\207
\311>\203;\312\207\211\313\267\202E\314\207\315\207
\311>\205L\312\207" [mouse-sel-cycle-clicks 4 1 nil 3 line paragraph (40 41 34 39) sexp (32 9 10) whitespace #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (95 65 119 67)) symbol word] 5 (#$ . 8288)])
#@61 Set the specified SELECTION to VALUE.

(fn SELECTION VALUE)
(defalias 'mouse-sel-set-selection #[514 "\203	\"\207\301\302#\207" [mouse-sel-set-selection-function put mouse-sel-internal-selection] 6 (#$ . 9298)])
#@59 Get the value of the specified SELECTION.

(fn SELECTION)
(defalias 'mouse-sel-get-selection #[257 "\203
!\207\301
N\207" [mouse-sel-get-selection-function mouse-sel-internal-selection] 3 (#$ . 9523)])
#@60 Return overlay corresponding to SELECTION.

(fn SELECTION)
(defalias 'mouse-sel-selection-overlay #[257 "\301
\"A@\211\204\302\303\"\210\211J\207" [mouse-sel-selection-alist assoc error "No overlay corresponding to %s selection"] 5 (#$ . 9735)])
#@60 Return overlay corresponding to SELECTION.

(fn SELECTION)
(defalias 'mouse-sel-selection-thing #[257 "\301\302\"8\211\204\303\304\"\210\207" [mouse-sel-selection-alist 2 assoc error "No symbol corresponding to %s selection"] 5 (#$ . 9991)])
#@241 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.

(fn ORIG-WINDOW)
(defalias 'mouse-sel-region-to-primary #[257 "\205<\303\304!	\203\"\n\204
\305 =\203\"\306
\307 \310 p$\210\2027
\305 =\2033\306
``p$\210\2027\311
!\210\312\211\262
\207" [transient-mark-mode mark-active highlight-nonselected-windows mouse-sel-selection-overlay PRIMARY selected-window move-overlay region-beginning region-end delete-overlay nil] 7 (#$ . 10245)])
#@231 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.

(fn &optional DIRECTION)
(defalias 'mouse-sel-primary-to-region #[256 "\302\303!\304
!\305!

=\203
\203
b\210\306 \210\202;\2032\307=\2032\211b\210\310\311\312#\210\202;
b\210\310
\311\312#\210	\205B\313!\207" [mouse-sel-leave-point-near-mouse transient-mark-mode mouse-sel-selection-overlay PRIMARY overlay-start overlay-end deactivate-mark 1 push-mark nomsg active delete-overlay] 8 (#$ . 10866)])
#@148 Evaluate forms at mouse position.
Move to the end position of EVENT, execute FORMS, and restore original
point and window.

(fn EVENT &rest FORMS)
(defalias 'mouse-sel-eval-at-event-end '(macro . #[385 "\300\301\302DDC\303\301\304DE\305\300\306\307\310\311\312\313\314\fB\315BB\257\257\207" [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))] 15 (#$ . 11492)]))
(put 'mouse-sel-eval-at-event-end 'lisp-indent-hook 1)
#@403 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.

(fn EVENT)
(defalias 'mouse-select #[257 "\300C\301\302#\216\211\303\304\"\240)\207" [nil make-closure #[0 "\301\242\203\301\242<\203\303\300AB\nB\211\207\304\301\242!\207" [V0 V1 unread-command-events mouse-2 mouse-sel-primary-to-region] 2] mouse-select-internal PRIMARY] 6 (#$ . 12375) "@e"])
#@437 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.

(fn EVENT)
(defalias 'mouse-select-secondary #[257 "\300\301\"\207" [mouse-select-internal SECONDARY] 4 (#$ . 13076) "e"])
#@455 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.

(fn SELECTION EVENT)
(defalias 'mouse-select-internal #[514 "\300
!\211\203\301!\210\211\203\302
\211@\262
!\204\303\304!\210\305C\305C
\306 \240\210\2032\307\211@\262
!\210\211\310 \240\210\203G\311!\247\203G\311!b\210\312\313#\216\314!\315!
\316\211:\203l\317
8\250\203l\317
8\262
\202o\320\262
!L\210\321J!\211\203\207\322@Ap$\266\202\217\322``p$\266\3232\231\324\325#0)\207" [event-end mouse-minibuffer-check windowp error "Cursor not in text area of window" nil selected-window select-window point-marker posn-point make-closure #[0 "\302\301\242!b\210\301\242\303\211\223\210\304\300\242!\207" [V0 V1 marker-position nil select-window] 3] mouse-sel-selection-thing mouse-sel-selection-overlay mouse-sel-determine-selection-thing 2 1 bounds-of-thing-at-point move-overlay follow-link mouse-extend-internal t] 13 (#$ . 13632)])
#@54 Extend region/selection using the mouse.

(fn EVENT)
(defalias 'mouse-extend #[257 "\300 \301C\302\303!\211@\262
!\210\304\305\"\216\306!\210\211\307\310\"\240)\207" [selected-window nil select-window event-end make-closure #[0 "\301\300\242!\207" [V0 mouse-sel-primary-to-region] 2] mouse-sel-region-to-primary mouse-extend-internal PRIMARY] 7 (#$ . 14940) "e"])
#@57 Extend secondary selection using the mouse.

(fn EVENT)
(defalias 'mouse-extend-secondary #[257 "\300 \301\302\"\216\303\304\")\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] mouse-extend-internal SECONDARY] 5 (#$ . 15314) "e"])
#@365 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.

(fn SELECTION &optional INITIAL-EVENT NO-PROCESS)
(defalias 'mouse-extend-internal #[769 "
C\304
\242!\211\203\305\242!\210\211\203!\306
\211@\262
!\204!\307\310!\210\311C\311C
\312 \240\210\2036\313\211@\262
!\210\211\314 \240\210\203K\315!\247\203K\315!b\210\316\317#\216\320\321\322 !\236A\316\323\"\216\324!\325	!\312 \326
!A@\327\326!8\311\330\311C\311C\311C\311C\331!p=\203\227\332	!\240\210\333	!\240\210\202\245`\240\210\242\240\210\311L\210\334\335!\203\261\335\322 \336\"\210\337\316\340








&\f!\210\341\242\242\"\203\336\342\343\242\"\210\332!\333	!

=\204\364\344{\"\210\311\345!\346=\203\f
\347\"\210\350 \210\350 \210\202M
\345!\351>\2031
\352\353!>\2031
\354\"\210\355\n\211#\210\350 \210\350 \210\202M
\345!\356=\203M
\357\353!>\203M
\354\"\210\355\n\211#\210)\266
\242*\266\211)\262
)\207" [mark-active echo-keystrokes this-command last-input-event event-end mouse-minibuffer-check windowp error "Cursor not in text area of window" nil selected-window select-window point-marker posn-point make-closure #[0 "\302\301\242!b\210\301\242\303\211\223\210\304\300\242!\207" [V0 V1 marker-position nil select-window] 3] cursor-type frame-parameters selected-frame #[0 "\301\302!\205\302\303 \304\300BC\"\207" [V0 fboundp modify-frame-parameters selected-frame cursor-type] 4] mouse-sel-selection-thing mouse-sel-selection-overlay window-edges 3 0 overlay-buffer overlay-start overlay-end fboundp modify-frame-parameters ((cursor-type . bar)) internal--track-mouse #[0 "\300\242\203\301\204\312\300\242\240\300\313\240\210\202$\312\314 \240\210\312\242:\205\203
\312\242@\315>\205\203
\302J\316\312\242!\312\242\242\317=\204\267\211\211@\262
\203X\211\211@\262
\320
!\203N\321
!\202O\211\262
\321\304!=\203\267\211\211@\262
\304=\204\237\322 AA\211\203\202o\204\202\211\305W\203\202\323\304\305Z\303\310\242$\266\202\267\211\203\233m\204\233\211\306Y\203\233\323\304\306ZT\303\307\242$\210\210\202\267\324
!\325=\203\262\323\304\326\303\307\242$\210\202\267\324
!b\210\311\242\204\333\307\242\310\242=\204\333\311`\307\242\310\242\\\327\245W\203\325\330\202\326\326\240\210\202
\311\242\330=\204\360`\307\242X\203\360\311\330\240\210\202
\311\242\326=\204
`\310\242Y\203
\311\326\240\210
\203`
\311\242\326=\203
m\204
\326u\210`\311\242\326=\203!
\307\242\202#
\310\242b\210\3311^
\311\242
`Z_\332V\203=
\333\311\242\"\210\202)
`\333\311\242[\"\210\311\242`Z_\332V\203T
\211\202U
`b\262
0\266\202`
\266\334\303\311\242\326=\203n
\307\242\202o
`\311\242\330=\203{
\310\242\202|
`p$\266\202\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 nil read-event (mouse-movement switch-frame) event-end switch-frame windowp window-frame mouse-position mouse-scroll-subr posn-point mode-line 1 2 -1 (error) 0 forward-thing move-overlay] 8] 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] 31 (#$ . 15606)])
#@246 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.

(fn INITIAL FINAL)
(defalias 'mouse-sel-follow-link-p #[514 "
\205y\211\205y\205y
@\301=\205y\302\303!!\205y\304\303!!\304\305!!U\205y
\211:\203>\306
8\250\203>\306
8\262
\202A\307\262
\307U\205y\250?\206y\303!\310
8\262
\305!\310
8\262

\250\205w\211\250\205w\311V\203r\211ZX\207

ZW\266\202\207" [mouse-1-click-follows-link down-mouse-1 mouse-on-link-p event-start posn-point event-end 2 1 3 0] 6 (#$ . 19007)])
#@140 Insert the contents of the PRIMARY selection at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.

(fn EVENT ARG)
(defalias 'mouse-insert-selection #[514 "\301=\203\302\"\207\303\304\"\207" [mouse-sel-default-bindings interprogram-cut-paste mouse-yank-at-click mouse-insert-selection-internal PRIMARY] 5 (#$ . 19679) "e\nP"])
#@138 Insert the contents of the SECONDARY selection at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.

(fn EVENT)
(defalias 'mouse-insert-secondary #[257 "\300\301\"\207" [mouse-insert-selection-internal SECONDARY] 4 (#$ . 20043) "e"])
#@144 Insert the contents of the named SELECTION at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.

(fn SELECTION EVENT)
(defalias 'mouse-insert-selection-internal #[514 "\204\302
!\210	\205\303`\304\"\210\305	!\206\306!\207" [mouse-yank-at-point mouse-sel-get-selection-function mouse-set-point push-mark nomsg insert-for-yank ""] 5 (#$ . 20310)])
#@58 Remove the overlay for a lost selection.

(fn SELECTION)
(defalias 'mouse-sel-lost-selection-hook #[257 "\300
!\301
!\207" [mouse-sel-selection-overlay delete-overlay] 4 (#$ . 20695)])
(provide 'mouse-sel)