Mercurial > emacs
comparison lisp/mouse.el @ 57843:e91b3798021f
(mouse-yank-at-click, mouse-yank-secondary): Revert
change from 2004-10-16. '*' checks the current buffer, but the
mouse click may be in another buffer.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Mon, 01 Nov 2004 13:50:49 +0000 |
| parents | 2a55e2b38c8d |
| children | ba164890f661 e24e2e78deda |
comparison
equal
deleted
inserted
replaced
| 57842:2c65a9fc7dec | 57843:e91b3798021f |
|---|---|
| 1110 Also move point to one end of the text thus inserted (normally the end), | 1110 Also move point to one end of the text thus inserted (normally the end), |
| 1111 and set mark at the beginning. | 1111 and set mark at the beginning. |
| 1112 Prefix arguments are interpreted as with \\[yank]. | 1112 Prefix arguments are interpreted as with \\[yank]. |
| 1113 If `mouse-yank-at-point' is non-nil, insert at point | 1113 If `mouse-yank-at-point' is non-nil, insert at point |
| 1114 regardless of where you click." | 1114 regardless of where you click." |
| 1115 (interactive "*e\nP") | 1115 (interactive "e\nP") |
| 1116 ;; Give temporary modes such as isearch a chance to turn off. | 1116 ;; Give temporary modes such as isearch a chance to turn off. |
| 1117 (run-hooks 'mouse-leave-buffer-hook) | 1117 (run-hooks 'mouse-leave-buffer-hook) |
| 1118 (or mouse-yank-at-point (mouse-set-point click)) | 1118 (or mouse-yank-at-point (mouse-set-point click)) |
| 1119 (setq this-command 'yank) | 1119 (setq this-command 'yank) |
| 1120 (setq mouse-selection-click-count 0) | 1120 (setq mouse-selection-click-count 0) |
| 1412 (defun mouse-yank-secondary (click) | 1412 (defun mouse-yank-secondary (click) |
| 1413 "Insert the secondary selection at the position clicked on. | 1413 "Insert the secondary selection at the position clicked on. |
| 1414 Move point to the end of the inserted text. | 1414 Move point to the end of the inserted text. |
| 1415 If `mouse-yank-at-point' is non-nil, insert at point | 1415 If `mouse-yank-at-point' is non-nil, insert at point |
| 1416 regardless of where you click." | 1416 regardless of where you click." |
| 1417 (interactive "*e") | 1417 (interactive "e") |
| 1418 ;; Give temporary modes such as isearch a chance to turn off. | 1418 ;; Give temporary modes such as isearch a chance to turn off. |
| 1419 (run-hooks 'mouse-leave-buffer-hook) | 1419 (run-hooks 'mouse-leave-buffer-hook) |
| 1420 (or mouse-yank-at-point (mouse-set-point click)) | 1420 (or mouse-yank-at-point (mouse-set-point click)) |
| 1421 (insert (x-get-selection 'SECONDARY))) | 1421 (insert (x-get-selection 'SECONDARY))) |
| 1422 | 1422 |