| Current Path : /usr/share/emacs/24.3/lisp/obsolete/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/obsolete/mouse-sel.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:08 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/mouse-sel.el
;;; in Emacs version 24.3.1
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314\315\307\304&\210\310\316\312\317\314\315\307\304&\210\310\320\312\321\314\322\307\304&\207" [require mouse thingatpt custom-declare-group mouse-sel nil "Mouse selection enhancement." :group custom-declare-variable mouse-sel-leave-point-near-mouse t "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 "If non-nil, \\[mouse-select] cycles the click-counts after 4 clicks." mouse-sel-default-bindings "Control mouse bindings." (choice (const :tag "none" nil) (const :tag "cut and paste" interprogram-cut-paste) (other :tag "default bindings" t))] 8)
#@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)) (#$ . 1425))
#@59 Non-nil if Mouse Sel mode has been enabled at least once.
(defvar mouse-sel-has-been-enabled nil (#$ . 1898))
(defvar mouse-sel-original-bindings nil)
(defvar mouse-sel-original-interprogram-cut-function nil)
(defvar mouse-sel-original-interprogram-paste-function nil)
#@263 Non-nil if Mouse-Sel mode is enabled.
See the command `mouse-sel-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `mouse-sel-mode'.
(custom-declare-variable 'mouse-sel-mode nil '(#$ . 2174) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'mouse-sel :type 'boolean)
#@1061 Toggle Mouse Sel mode.
With a prefix argument ARG, enable Mouse Sel mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
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.
(defalias 'mouse-sel-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203F \312\313\314\315#\210\316\317\320\"\210 \203z \321\322\f\"$%&'\323( \324=\204z \325\211$&\202z \326\317\320\"\210
\325 )\211 *\203l *@)\327)@)A\"\210*A\211*\204U *(\203z %$'&\330\331\n\203\204 \332\202\205 \333\"\210\334\335!\203\252 \336\302!\210\306 \203\235 \306 \232\203\252 \337\340\n\203\247 \341\202\250 \342\"\210)\343 \210\n\207" [#1=#:last-message arg mouse-sel-mode mouse-sel-default-bindings mouse-sel-bound-events mouse-sel-original-bindings current-message toggle prefix-numeric-value 0 put mouse-2 event-kind mouse-click add-hook x-lost-selection-functions mouse-sel-lost-selection-hook mapcar #[(binding) "@\211\303\n \"B\304 A\"\210)\207" [binding event global-map lookup-key global-set-key] 5] t interprogram-cut-paste nil remove-hook global-set-key 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" "en" "dis" force-mode-line-update interprogram-cut-function mouse-sel-original-interprogram-cut-function interprogram-paste-function mouse-sel-original-interprogram-paste-function mouse-sel-has-been-enabled binding --dolist-tail--] 5 (#$ . 2603) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\302\306\307#\207" [mouse-sel-mode-map add-minor-mode mouse-sel-mode nil 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 (#$ . 5192))
(make-variable-buffer-local 'mouse-sel-primary-thing)
#@48 Type of SECONDARY selection in current buffer.
(defvar mouse-sel-secondary-thing nil (#$ . 5346))
(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 "\301ee\"\302!\210\303\304\305#\210)\207" [ol make-overlay delete-overlay overlay-put face region] 4) (#$ . 5673))
#@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)) (#$ . 5939))
#@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 x-set-selection #[(selection value) "\302=\203\n \303 !\207\304 \"\207" [selection value PRIMARY x-select-text x-set-selection] 3]] 2) (#$ . 6504))
#@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 #[(selection) "\303=\203 \304 \206 \305\301!\203 \206 \305\302!\205 \n\207\306!\207" [selection x-last-selected-text x-last-selected-text-primary PRIMARY x-selection-value boundp x-get-selection] 2] (#$ . 7031))
#@519 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.
(defalias 'mouse-sel-determine-selection-thing #[(nclicks) "`f\211\205 z\n\203 S\304\246T \305U\203 \306\202W \307U\203( \310\202W \304Y\2032 \311\202W \312>\203< \313\202W \314>\203F \315\202W \316=\203P \317\202W \320=\205W \321*\207" [next-char char-syntax mouse-sel-cycle-clicks nclicks 4 1 nil 3 line paragraph (40 41 34 39) sexp (32 9 10) whitespace 95 symbol 119 word] 3 (#$ . 7416)])
#@39 Set the specified SELECTION to VALUE.
(defalias 'mouse-sel-set-selection #[(selection value) "\203 \n\"\207\303\304 \n#\207" [mouse-sel-set-selection-function selection value put mouse-sel-internal-selection] 4 (#$ . 8346)])
#@43 Get the value of the specified SELECTION.
(defalias 'mouse-sel-get-selection #[(selection) "\203 !\207\302 N\207" [mouse-sel-get-selection-function selection mouse-sel-internal-selection] 2 (#$ . 8581)])
#@44 Return overlay corresponding to SELECTION.
(defalias 'mouse-sel-selection-overlay #[(selection) "\303 \"A@\211\204 \304\305\"\210\nJ)\207" [selection mouse-sel-selection-alist symbol assoc error "No overlay corresponding to %s selection"] 4 (#$ . 8795)])
#@44 Return overlay corresponding to SELECTION.
(defalias 'mouse-sel-selection-thing #[(selection) "\303\304 \"8\211\204 \305\306\"\210\n)\207" [selection mouse-sel-selection-alist symbol 2 assoc error "No symbol corresponding to %s selection"] 5 (#$ . 9060)])
#@223 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.
(defalias 'mouse-sel-region-to-primary #[(orig-window) "\205< \305\306!\n\203# \204 \f\307 =\203# \310 \311 \312 p$\210\2028 \f\307 =\2034 \310 ``p$\210\2028 \313 !\210\314\211)\207" [transient-mark-mode overlay mark-active highlight-nonselected-windows orig-window mouse-sel-selection-overlay PRIMARY selected-window move-overlay region-beginning region-end delete-overlay nil] 5 (#$ . 9327)])
#@205 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.
(defalias 'mouse-sel-primary-to-region #[(&optional direction) "\306\307!\310!\311! \n=\203\235 \203 b\210\312\f\204# \205\230
\313=\2030 \f\242\313=\2021
\203l \314 \203l \315 \203l \203O \316\307\"\210\312\202l \317 \320 U\204l \321\307!\204c \322\307!\204l \316\307\317 \320 {\"\210 \204\210 \f\323=\204\202 \f\242\313=\203\210 \fA\204\210 \312\211\202\230 \f\242\313=\203\222 \fA\312 \324\325!)\210\202\276 \203\265 \326=\203\265 \nb\210\327 \330\331#\210\202\276 b\210\327\n\330\331#\210\f\205\305 \332!+\207" [overlay start end force transient-mark-mode select-active-regions mouse-sel-selection-overlay PRIMARY overlay-start overlay-end nil only region-active-p display-selections-p x-set-selection region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook 1 push-mark nomsg active delete-overlay saved-region-selection mark-active mouse-sel-leave-point-near-mouse direction] 4 (#$ . 9956)])
#@124 Evaluate forms at mouse position.
Move to the end position of EVENT, execute FORMS, and restore original
point and window.
(defalias 'mouse-sel-eval-at-event-end '(macro . #[(event &rest forms) "\302\303\304DDC\305\303\306DE\307\302\310\311\312\313\314\315\316 B\317BB\257\257\207" [event forms 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))] 13 (#$ . 11142)]))
(put 'mouse-sel-eval-at-event-end 'lisp-indent-hook 1)
#@391 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.
(defalias 'mouse-select #[(event) "\302\303\216\304\305 \"\211*\207" [select event nil ((byte-code "\203 <\203 \303 AB\nB\202 \304!\210\303\207" [select event unread-command-events mouse-2 mouse-sel-primary-to-region] 2)) mouse-select-internal PRIMARY] 3 (#$ . 12026) "@e"])
#@425 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.
(defalias 'mouse-select-secondary #[(event) "\301\302\"\207" [event mouse-select-internal SECONDARY] 3 (#$ . 12707) "e"])
#@433 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.
(defalias 'mouse-select-internal #[(selection event) "\306!\211\203\f \307!\210 \203 \310 \211@)!\204 \311\312!\210\313\211 \314 \2031 \315 \211@)!\210\316 \203r \317\n8\206Q \nA@:\203N \nA@@\202Q \nA@)\247\203r \317\n8\206o \nA@:\203l \nA@@\202o \nA@)b\210\320\216\321
!\322
! \211 \323\211:\203\224 \3248\250\203\224 \3248\202\225 \325)!L\210\326J!\211 \203\263 \327 @ Ap$\210\202\273 \327``p$\210+\330\331\215,\207" [event posn position orig-point-marker orig-window selection event-end mouse-minibuffer-check windowp error "Cursor not in text area of window" nil selected-window select-window point-marker 5 ((byte-code "\302!b\210\303\211\223\210\304 !\207" [orig-point-marker orig-window 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 selection event t) overlay thing-symbol object-bounds] 6 (#$ . 13261)])
#@42 Extend region/selection using the mouse.
(defalias 'mouse-extend #[(event) "\304 \305\306\307\n!\211@)!\210\310\216\311 !\210\312\313\n\"\211+\207" [direction orig-window event position selected-window nil select-window event-end ((mouse-sel-primary-to-region direction)) mouse-sel-region-to-primary mouse-extend-internal PRIMARY] 4 (#$ . 14704) "e"])
#@45 Extend secondary selection using the mouse.
(defalias 'mouse-extend-secondary #[(event) "\302 \303\216\304\305 \"*\207" [#1=#:wconfig event current-window-configuration ((set-window-configuration #1#)) mouse-extend-internal SECONDARY] 3 (#$ . 15066) "e"])
#@314 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.
(defalias 'mouse-extend-internal #[(selection &optional initial-event no-process) "\306!\211\203\f \307!\210 \203 \310 \211@)!\204 \311\312!\210\313\211 \314 \2031 \315 \211@)!\210\316 \203r \317\n8\206Q \nA@:\203N \nA@@\202Q \nA@)\247\203r \317\n8\206o \nA@:\203l \nA@@\202o \nA@)b\210\320\216\321\322\323\324 !\"A \325\216\3262! 3\3272! 4\314 \330\f!A@ 5\331\330\f!8 6\313 7\332 8\313\211 9 :\313\211 ; <\3334!p=\203\306 \3344!9\3354!:\202\321 `\2119:3\313L\210\336\337!\203\335 \337\324 \340\"\210\341\342!\210\343<\"\203\357 \344\345<\"\210\3344!\3354! \211 =\204\f\3462 {\"\210\313 =\347>!\350=\203(\351 \"\210\352 \210\352 \210\202s\347>!\353>\203R\354\355>!>\203R\356 \"\210\3574 \211#\210\352 \210\352 \210\202s\347>!\360=\203s\361\355>!>\203s\356 \"\210\3574 \211#\210+;.\207" [initial-event posn position orig-point-marker orig-window orig-cursor-type event-end mouse-minibuffer-check windowp error "Cursor not in text area of window" nil selected-window select-window point-marker 5 ((byte-code "\302!b\210\303\211\223\210\304 !\207" [orig-point-marker orig-window marker-position nil select-window] 3)) assoc cursor-type frame-parameters selected-frame ((byte-code "\301\302!\203 \302\303 \304BC\"\210\301\207" [orig-cursor-type 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)) eval (track-mouse (byte-code "\203 \204 \211\306\202 \307 \211:\205\227\n@\310>\205\227 J\311\n! \n\242\312=\204 \f\211 @)\203W \f\211 @) \313!\203L \314!\202N )\314!=\203 \f\211 @)=\204\256 \315 AA\211 \203\212 o\204\212 W\203\212 \316Z $\210\202\252 \203\252 m\204\252 Y\203\252 \316 ZT $\210)\202 \f \3178\206\314 A@:\203\310 A@@\202\314 A@)\320=\203\337 \316\321 $\210\202 \f \3178\206\375 A@:\203\371 A@@\202\375 A@)b\210 \204# =\204#` \\\322\245W\203 \323\202 \321 \202H \323=\2047` X\2037\323 \202H \321=\204H` Y\203H\321
\203s \321=\203Zm\204Z\321u\210` ! \321=\203i \202k b\210\306\324\325\217\210)\326 \321=\203\202 \202\203` \323=\203\217 \202\220`p$\210*\202 \207" [initial-event no-process event thing-symbol end selection-thing nil read-event (mouse-movement switch-frame) event-end switch-frame windowp window-frame mouse-position mouse-scroll-subr 5 mode-line 1 2 -1 (byte-code " `Z_\304V\203 \305\n\"\210\202 `\305\n[\"\210 `Z_\304V\203( \202) `b\210)\304\207" [direction goal selection-thing end 0 forward-thing] 3) ((error)) move-overlay position posn-w orig-window end-row top overlay max bottom min direction goal] 6)) 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 selection thing-symbol overlay top bottom mark-active echo-keystrokes min max direction event this-command last-input-event] 5 (#$ . 15330)])
#@226 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.
(defalias 'mouse-sel-follow-link-p #[(initial final) "\205\253 \205\253 \n\205\253 @\306=\205\253 \307\310!!\205\253 \310!\311 8\2066 A@:\2033 A@@\2026 A@)\312 !\311 8\206R A@:\203O A@@\202R A@)U\205\253 \211 :\203k \313\f8\250\203k \313\f8\202l \314)\314U\205\253 \n\250?\206\253 \310!\315 8)\312 !\315 8) \211 \250\205\252
\250\205\252 \n\316V\203\244
Z\nX\202\252
Z\nW*\207" [initial final mouse-1-click-follows-link position event t1 down-mouse-1 mouse-on-link-p event-start 5 event-end 2 1 3 0 t0] 4 (#$ . 18810)])
#@124 Insert the contents of the PRIMARY selection at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.
(defalias 'mouse-insert-selection #[(event arg) "\303=\203 \304 \n\"\207\305\306 \"\207" [mouse-sel-default-bindings event arg interprogram-cut-paste mouse-yank-at-click mouse-insert-selection-internal PRIMARY] 3 (#$ . 19587) "e\nP"])
#@126 Insert the contents of the SECONDARY selection at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.
(defalias 'mouse-insert-secondary #[(event) "\301\302\"\207" [event mouse-insert-selection-internal SECONDARY] 3 (#$ . 19954) "e"])
#@122 Insert the contents of the named SELECTION at mouse click.
If `mouse-yank-at-point' is non-nil, insert at point instead.
(defalias 'mouse-insert-selection-internal #[(selection event) "\204 \304 !\210\n\205 \305`\306\"\210\307\n !\206 \310!\207" [mouse-yank-at-point event mouse-sel-get-selection-function selection mouse-set-point push-mark nomsg insert-for-yank ""] 3 (#$ . 20219)])
#@42 Remove the overlay for a lost selection.
(defalias 'mouse-sel-lost-selection-hook #[(selection) "\302!\303 !)\207" [selection overlay mouse-sel-selection-overlay delete-overlay] 2 (#$ . 20614)])
(provide 'mouse-sel)