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 |
|
|
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. |