diff options
author | Richard M. Stallman <rms@gnu.org> | 1992-11-03 22:25:28 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1992-11-03 22:25:28 +0000 |
commit | 7be7f520ec463146251fbac0f04a3ad73b78de0d (patch) | |
tree | cf64f67fabc89f26fabd16f3229f207fb4678a3d /lisp/rect.el | |
parent | 380180a76c0ab2709a5575485626b06860747005 (diff) | |
download | emacs-7be7f520ec463146251fbac0f04a3ad73b78de0d.tar.gz |
(insert-rectangle): Put mark at upper left corner.
Diffstat (limited to 'lisp/rect.el')
-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 |