Mercurial > emacs

diff lisp/format.el @ 24315:382a7de604b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(format-replace-strings): Fix value of TO in REVERSE case.
author Richard M. Stallman <rms@gnu.org>
date Sun, 14 Feb 1999 06:00:44 +0000
parents e93962ff30b0
children eb03024d18fc
line wrap: on
line diff
--- a/lisp/format.el	Sat Feb 13 16:40:10 1999 +0000
+++ b/lisp/format.el	Sun Feb 14 06:00:44 1999 +0000
@@ -425,7 +425,7 @@
       (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))