From 2c3ac81d09ab19ce70fbdd941022cf709a616ae7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 14 Feb 1999 06:00:44 +0000 Subject: [PATCH] (format-replace-strings): Fix value of TO in REVERSE case. --- lisp/format.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.2