| Current Path : /usr/share/emacs/24.3/lisp/ |
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/mouse-copy.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mouse-copy.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@45 Internal to `mouse-drag-secondary-pasting'.
(defvar mouse-copy-last-paste-start nil (#$ . 553))
#@45 Internal to `mouse-drag-secondary-pasting'.
(defvar mouse-copy-last-paste-end nil (#$ . 655))
#@99 Set to enable mouse-copy-work-around-drag-bug.
See `mouse-copy-work-around-drag-bug' for details.
(defvar mouse-copy-have-drag-bug nil (#$ . 755))
#@628 Code to work around a bug in post-19.29 Emacs: it drops mouse-drag events.
The problem occurs under XFree86-3.1.1 (X11R6pl11) but not under X11R5,
and under post-19.29 but not early versions of Emacs.
19.29 and 19.30 seems to drop mouse drag events
sometimes. (Reproducible under XFree86-3.1.1 (X11R6pl11) and
XFree86-3.1.2 under Linux 1.2.x. Doesn't occur under X11R5 and SunOS
4.1.1.)
To see if you have the problem:
Disable this routine (with (setq mouse-copy-have-drag-bug nil)).
Click and drag for a while.
If highlighting stops tracking, you have the bug.
If you have the bug (or the real fix :-), please let me know.
(defalias 'mouse-copy-work-around-drag-bug #[(start-event end-event) "\212\306!\307\n!\310 \211 @)!\211 q\210\311 \312\f8\206. \fA@:\203+ \fA@@\202. \fA@) \312\f8\206H \fA@:\203E \fA@@\202H \fA@)\211 :\203` \3138\250\203` \3138\202a \314)S#\211 @ A@ \203\201 \315#\210\202\242 \316 \312\f8\206\236 \fA@:\203\233 \fA@@\202\236 \fA@)\"\317\320\321#\210
q\210\322\323{\".\207" [start-event start-posn end-event end-posn position end-buffer event-start event-end window-buffer mouse-start-end 5 2 1 move-overlay make-overlay overlay-put face secondary-selection x-set-selection SECONDARY event range beg end mouse-secondary-overlay] 6 (#$ . 909)])
#@240 Drag out a secondary selection, then paste it at the current point.
To test this function, evaluate:
(global-set-key [M-down-mouse-1] 'mouse-drag-secondary-pasting)
put the point at one place, then click and drag over some other region.
(defalias 'mouse-drag-secondary-pasting #[(start-event) "\203# \211:\203 \306\n8\250\203 \306\n8\202 \307)\306Y\203# |\210\310 !\203= \f\2032 \311
\"\210`\312\313!c\210`\211\207\314\211\207" [mouse-copy-last-paste-start start-event event mouse-copy-last-paste-end mouse-copy-have-drag-bug last-input-event 2 1 mouse-drag-secondary mouse-copy-work-around-drag-bug x-get-selection SECONDARY nil] 4 (#$ . 2224) "e"])
#@352 Kill the text in the secondary selection, but leave the selection set.
This command is like \[mouse-kill-secondary] (that is, the secondary
selection is deleted and placed in the kill ring), except that it also
leaves the secondary buffer active on exit.
This command was derived from mouse-kill-secondary in emacs-19.28
by johnh@ficus.cs.ucla.edu.
(defalias 'mouse-kill-preserving-secondary #[nil "\304 \211\211GS\234\305\n! <\203 \306\307 !\211@)!\202 p=\204& \310\311!\210*r\305\n!q\210\312\313\n!\314\n!\")\207" [keys click mouse-secondary-overlay position this-command-keys overlay-buffer window-buffer event-start error "Select or click on the buffer where the secondary selection is" kill-region overlay-start overlay-end] 5 (#$ . 2896) nil])
#@69 Sweep out a secondary selection, then move it to the current point.
(defalias 'mouse-drag-secondary-moving #[(start-event) "\301!\205
\302 \210\303\304!c\207" [start-event mouse-drag-secondary mouse-kill-preserving-secondary x-get-selection SECONDARY] 2 (#$ . 3659) "e"])
(provide 'mouse-copy)