(string-rectangle): Don't set point.

diff --git a/lisp/rect.el b/lisp/rect.el
index 71e1f8ed1e7c47f544d5d62013ab6a789a4a2605..3864934cfd6d3181977705600f7d4017626cfc9a 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -204,8 +204,7 @@ This command does not delete or overwrite any existing text.
 
 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)