Mercurial > emacs

changeset 1542:724b443e445d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-rectangle): Put mark at upper left corner.
author Richard M. Stallman <rms@gnu.org>
date Tue, 03 Nov 1992 22:25:28 +0000
parents 9baddd0338d5
children acdf9d64d086
files lisp/rect.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/rect.el	Tue Nov 03 21:33:58 1992 +0000
+++ b/lisp/rect.el	Tue Nov 03 22:25:28 1992 +0000
@@ -155,10 +155,13 @@
   "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