# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 784421655 0
# Node ID 689bcdba1d4077ba954f4d76ade5ec5b7fe19fb9
# Parent  75ecf866cfb8eb93181e08c9d01abcc30b6e01a3
(string-rectangle): Don't set point.

diff -r 75ecf866cfb8 -r 689bcdba1d40 lisp/rect.el
--- a/lisp/rect.el	Wed Nov 09 22:10:55 1994 +0000
+++ b/lisp/rect.el	Wed Nov 09 22:54:15 1994 +0000
@@ -204,8 +204,7 @@
 
 Called from a program, takes three args; START, END and STRING."
   (interactive "r\nsString rectangle: ")
-  (operate-on-rectangle 'string-rectangle-line start end t)
-  (goto-char start))
+  (operate-on-rectangle 'string-rectangle-line start end t))
 
 (defun string-rectangle-line (startpos begextra endextra)
   (let (whitespace)