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

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