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 | 23317eaca1845f07f2f3d53026953b20c919d8d8 (patch) | |
| tree | 489b5b3f8de1bf77b8b9e2ba011f581849a4f7b4 /lisp/rect.el | |
| parent | fcec83fbc89c3decd1c46720b23386ed43c8786d (diff) | |
| download | emacs-23317eaca1845f07f2f3d53026953b20c919d8d8.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 |