/[emacs]/emacs/lisp/mouse-copy.el
ViewVC logotype

Diff of /emacs/lisp/mouse-copy.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by kwzh, Thu May 29 17:48:38 1997 UTC revision 1.3.18.1 by miles, Fri Apr 4 06:20:10 2003 UTC
# Line 115  The problem occurs under XFree86-3.1.1 ( Line 115  The problem occurs under XFree86-3.1.1 (
115  and under post-19.29 but not early versions of emacs.  and under post-19.29 but not early versions of emacs.
116    
117  19.29 and 19.30 seems to drop mouse drag events  19.29 and 19.30 seems to drop mouse drag events
118  sometimes. (Reproducable under XFree86-3.1.1 (X11R6pl11) and  sometimes. (Reproducible under XFree86-3.1.1 (X11R6pl11) and
119  XFree86-3.1.2 under Linux 1.2.x.  Doesn't occur under X11R5 and SunOS  XFree86-3.1.2 under Linux 1.2.x.  Doesn't occur under X11R5 and SunOS
120  4.1.1.)  4.1.1.)
121    
122  To see if you have the problem:  To see if you have the problem:
123  Disable this routine (with (setq mouse-copy-have-drag-bug nil))..  Disable this routine (with (setq mouse-copy-have-drag-bug nil)).
124  Click and drag for a while.  Click and drag for a while.
125  If highlighting stops tracking, you have the bug.  If highlighting stops tracking, you have the bug.
126  If you have the bug (or the real fix :-), please let me know."  If you have the bug (or the real fix :-), please let me know."
# Line 151  If you have the bug (or the real fix :-) Line 151  If you have the bug (or the real fix :-)
151        (set-buffer end-buffer)        (set-buffer end-buffer)
152        (x-set-selection 'SECONDARY (buffer-substring beg end)))))        (x-set-selection 'SECONDARY (buffer-substring beg end)))))
153    
154        
155  (defun mouse-drag-secondary-pasting (start-event)  (defun mouse-drag-secondary-pasting (start-event)
156    "Drag out a secondary selection, then paste it at the current point.    "Drag out a secondary selection, then paste it at the current point.
157    
# Line 182  put the point at one place, then click a Line 182  put the point at one place, then click a
182          (insert (x-get-selection 'SECONDARY))          (insert (x-get-selection 'SECONDARY))
183          (setq mouse-copy-last-paste-end (point)))          (setq mouse-copy-last-paste-end (point)))
184      (setq mouse-copy-last-paste-start nil)))      (setq mouse-copy-last-paste-start nil)))
185      
186    
187  (defun mouse-kill-preserving-secondary ()  (defun mouse-kill-preserving-secondary ()
188    "Kill the text in the secondary selection, but leave the selection set.    "Kill the text in the secondary selection, but leave the selection set.

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.18.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26