diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-02-14 06:00:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-02-14 06:00:44 +0000 |
| commit | 2c3ac81d09ab19ce70fbdd941022cf709a616ae7 (patch) | |
| tree | 6b17facb27704add821ce8afffd0d612bf4220c1 /lisp/format.el | |
| parent | 8d66d13d121cdd4b08caf7e8c551b8681d51cfae (diff) | |
| download | emacs-2c3ac81d09ab19ce70fbdd941022cf709a616ae7.tar.gz | |
(format-replace-strings): Fix value of TO in REVERSE case.
Diffstat (limited to 'lisp/format.el')
| -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." (if end (narrow-to-region (point-min) end)) (while alist (let ((from (if reverse (cdr (car alist)) (car (car alist)))) - (to (if reverse (car (cdr alist)) (cdr (car alist))))) + (to (if reverse (car (car alist)) (cdr (car alist))))) (goto-char beg) (while (search-forward from nil t) (goto-char (match-beginning 0)) |