Mercurial > emacs
changeset 8915:991438f3f39a
(picture-yank-at-click): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 19 Sep 1994 05:51:16 +0000 |
| parents | 489c8ece5188 |
| children | 696f213398e8 |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/picture.el Mon Sep 19 05:29:15 1994 +0000 +++ b/lisp/textmodes/picture.el Mon Sep 19 05:51:16 1994 +0000 @@ -432,6 +432,16 @@ (error "No rectangle saved.") (picture-insert-rectangle picture-killed-rectangle insertp))) +(defun picture-yank-at-click (click arg) + "Insert the last killed rectangle at the position clicked on. +Also move point to one end of the text thus inserted (normally the end). +Prefix arguments are interpreted as with \\[yank]. +If `mouse-yank-at-point' is non-nil, insert at point +regardless of where you click." + (interactive "e\nP") + (or mouse-yank-at-point (mouse-set-point click)) + (picture-yank-rectangle arg)) + (defun picture-yank-rectangle-from-register (register &optional insertp) "Overlay rectangle saved in REGISTER. The rectangle is positioned with upper left corner at point, overwriting