diff options
| author | Richard M. Stallman | 1999-02-14 06:00:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-14 06:00:44 +0000 |
| commit | 2c3ac81d09ab19ce70fbdd941022cf709a616ae7 (patch) | |
| tree | 6b17facb27704add821ce8afffd0d612bf4220c1 | |
| parent | 8d66d13d121cdd4b08caf7e8c551b8681d51cfae (diff) | |
| download | emacs-2c3ac81d09ab19ce70fbdd941022cf709a616ae7.tar.gz emacs-2c3ac81d09ab19ce70fbdd941022cf709a616ae7.zip | |
(format-replace-strings): Fix value of TO in REVERSE case.
| -rw-r--r-- | lisp/format.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/format.el b/lisp/format.el index 3bfe556364e..73eabc1730f 100644 --- a/lisp/format.el +++ b/lisp/format.el | |||
| @@ -425,7 +425,7 @@ Optional args BEG and END specify a region of the buffer on which to operate." | |||
| 425 | (if end (narrow-to-region (point-min) end)) | 425 | (if end (narrow-to-region (point-min) end)) |
| 426 | (while alist | 426 | (while alist |
| 427 | (let ((from (if reverse (cdr (car alist)) (car (car alist)))) | 427 | (let ((from (if reverse (cdr (car alist)) (car (car alist)))) |
| 428 | (to (if reverse (car (cdr alist)) (cdr (car alist))))) | 428 | (to (if reverse (car (car alist)) (cdr (car alist))))) |
| 429 | (goto-char beg) | 429 | (goto-char beg) |
| 430 | (while (search-forward from nil t) | 430 | (while (search-forward from nil t) |
| 431 | (goto-char (match-beginning 0)) | 431 | (goto-char (match-beginning 0)) |