/[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.4 by lektu, Fri Aug 30 11:01:29 2002 UTC revision 1.5 by lektu, Tue Feb 4 11:48:26 2003 UTC
# 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.4  
changed lines
  Added in v.1.5

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