From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 Sep 1994 05:51:16 +0000 (+0000)
Subject: (picture-yank-at-click): New function.
X-Git-Tag: emacs-19.34~6939
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ee658c39eaff040f264642ee0fdd49467a3ee86;p=emacs.git

(picture-yank-at-click): New function.
---

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