Commit 2c3ac81d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 8d66d13d
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment