mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-09-19 05:51:16 +00:00
parent 7bbe1dea3b
commit 2ee658c39e
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/textmodes/picture.el
View File

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