summaryrefslogtreecommitdiff
path: root/lisp/rect.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-11-09 22:54:15 +0000
committerRichard M. Stallman <rms@gnu.org>1994-11-09 22:54:15 +0000
commit0cdcd5e57eed5918209500c26b070e533d4cb1d2 (patch)
tree16a82e5ca38b3f27e0f1ee004877cee6ba2bc952 /lisp/rect.el
parent36d2c431230cc6e7f3f6bf9faf9b1f0ff86eae67 (diff)
downloademacs-0cdcd5e57eed5918209500c26b070e533d4cb1d2.tar.gz
(string-rectangle): Don't set point.
Diffstat (limited to 'lisp/rect.el')
-rw-r--r--lisp/rect.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/rect.el b/lisp/rect.el
index 71e1f8ed1e7..3864934cfd6 100644
--- 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)