diff options
| author | Richard M. Stallman | 1994-11-09 22:54:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-09 22:54:15 +0000 |
| commit | b6c1b08c69d41861908c5a24b622837331a0f6d7 (patch) | |
| tree | fa4183ada2f1f3175e46080d5e958550df788d5c | |
| parent | a382890aab9a7f56217ed62f47ad70f074cf0003 (diff) | |
| download | emacs-b6c1b08c69d41861908c5a24b622837331a0f6d7.tar.gz emacs-b6c1b08c69d41861908c5a24b622837331a0f6d7.zip | |
(string-rectangle): Don't set point.
| -rw-r--r-- | lisp/rect.el | 3 |
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. | |||
| 204 | 204 | ||
| 205 | Called from a program, takes three args; START, END and STRING." | 205 | Called from a program, takes three args; START, END and STRING." |
| 206 | (interactive "r\nsString rectangle: ") | 206 | (interactive "r\nsString rectangle: ") |
| 207 | (operate-on-rectangle 'string-rectangle-line start end t) | 207 | (operate-on-rectangle 'string-rectangle-line start end t)) |
| 208 | (goto-char start)) | ||
| 209 | 208 | ||
| 210 | (defun string-rectangle-line (startpos begextra endextra) | 209 | (defun string-rectangle-line (startpos begextra endextra) |
| 211 | (let (whitespace) | 210 | (let (whitespace) |