From 2ee658c39eaff040f264642ee0fdd49467a3ee86 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 19 Sep 1994 05:51:16 +0000 Subject: [PATCH] (picture-yank-at-click): New function. --- lisp/textmodes/picture.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 9063212a1c6..c781be48a2e 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -432,6 +432,16 @@ point at the other (diagonally opposed) corner." (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