Commit 23317eac authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(insert-rectangle): Put mark at upper left corner.

parent fcec83fb
......@@ -155,10 +155,13 @@ But in programs you might prefer to use `delete-extract-rectangle'."
"Insert text of RECTANGLE with upper left corner at point.
RECTANGLE's first line is inserted at point, its second
line is inserted at a point vertically under point, etc.
RECTANGLE should be a list of strings."
RECTANGLE should be a list of strings.
After this command, the mark is at the upper left corner
and point is at the lower right corner."
(let ((lines rectangle)
(insertcolumn (current-column))
(first t))
(push-mark)
(while lines
(or first
(progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment