mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1992-11-03 22:25:28 +00:00
parent fcec83fbc8
commit 23317eaca1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/rect.el
View File

@ -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