From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 14 Feb 1999 06:00:44 +0000 (+0000)
Subject: (format-replace-strings): Fix value of TO in REVERSE case.
X-Git-Tag: emacs-20.4~634
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c3ac81d09ab19ce70fbdd941022cf709a616ae7;p=emacs.git

(format-replace-strings): Fix value of TO in REVERSE case.
---

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))