diff options
| -rw-r--r-- | lisp/rect.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index 34ec7d23b2e..99e698f2810 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -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 |