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'." ...@@ -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. "Insert text of RECTANGLE with upper left corner at point.
RECTANGLE's first line is inserted at point, its second RECTANGLE's first line is inserted at point, its second
line is inserted at a point vertically under point, etc. 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) (let ((lines rectangle)
(insertcolumn (current-column)) (insertcolumn (current-column))
(first t)) (first t))
(push-mark)
(while lines (while lines
(or first (or first
(progn (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