From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Sep 1996 17:13:24 +0000 (+0000)
Subject: (perform-replace): Increment replace-count
X-Git-Tag: emacs-20.1~3815
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3043b0b49099a30ad9004fbc543c1661969644a4;p=emacs.git

(perform-replace): Increment replace-count
in the places where we do the replacement.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 90c66fa47c0..cc603d96c0b 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -626,21 +626,28 @@ which will run faster and probably do exactly what you want."
 			 (sit-for 1)))
 		      ((eq def 'act)
 		       (or replaced
-			   (replace-match next-replacement nocasify literal))
+			   (progn
+			     (replace-match next-replacement nocasify literal)
+			     (setq replace-count (1+ replace-count))))
 		       (setq done t replaced t))
 		      ((eq def 'act-and-exit)
 		       (or replaced
-			   (replace-match next-replacement nocasify literal))
+			   (progn
+			     (replace-match next-replacement nocasify literal)
+			     (setq replace-count (1+ replace-count))))
 		       (setq keep-going nil)
 		       (setq done t replaced t))
 		      ((eq def 'act-and-show)
 		       (if (not replaced)
 			   (progn
 			     (replace-match next-replacement nocasify literal)
+			     (setq replace-count (1+ replace-count))
 			     (setq replaced t))))
 		      ((eq def 'automatic)
 		       (or replaced
-			   (replace-match next-replacement nocasify literal))
+			   (progn
+			     (replace-match next-replacement nocasify literal)
+			     (setq replace-count (1+ replace-count))))
 		       (setq done t query-flag nil replaced t))
 		      ((eq def 'skip)
 		       (setq done t))
@@ -682,8 +689,7 @@ which will run faster and probably do exactly what you want."
 						   (prog1 (marker-position elt)
 						     (set-marker elt nil))))
 				     (match-data))))
-			  stack))
-	      (if replaced (setq replace-count (1+ replace-count)))))
+			  stack))))
 	  (setq lastrepl (point)))
       (replace-dehighlight))
     (or unread-command-events