(set-buffer end-buffer)
(x-set-selection 'SECONDARY (buffer-substring beg end)))))
-
+
(defun mouse-drag-secondary-pasting (start-event)
"Drag out a secondary selection, then paste it at the current point.
(insert (x-get-selection 'SECONDARY))
(setq mouse-copy-last-paste-end (point)))
(setq mouse-copy-last-paste-start nil)))
-
+
(defun mouse-kill-preserving-secondary ()
"Kill the text in the secondary selection, but leave the selection set.