# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1168641166 0
# Node ID 21049884253fb4c0516e3196ebc867e95d4104f6
# Parent  eab5477b4d91a6dd6f4a75fb2977cce7a99d361e
(perform-replace): Don't clear NODENT when computing the replacement string.

diff -r eab5477b4d91 -r 21049884253f lisp/replace.el
--- a/lisp/replace.el	Fri Jan 12 20:30:51 2007 +0000
+++ b/lisp/replace.el	Fri Jan 12 22:32:46 2007 +0000
@@ -1406,6 +1406,8 @@
 	(search-string from-string)
 	(real-match-data nil)		; the match data for the current match
 	(next-replacement nil)
+	;; This is non-nil if we know there is nothing for the user
+	;; to edit in the replacement.
 	(noedit nil)
 	(keep-going t)
 	(stack nil)
@@ -1517,8 +1519,7 @@
 	      (set-match-data real-match-data)
 	      (setq next-replacement
 		    (funcall (car replacements) (cdr replacements)
-			     replace-count)
-		    noedit nil))
+			     replace-count) nil))
 	    (if (not query-flag)
 		(let ((inhibit-read-only
 		       query-replace-skip-read-only))