X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/65b4665c1f5c26c63d19492ed48f1242280726cc..16f45d1b8d556362a0668f192e4453f126946b1c:/lisp/replace.el

diff --git a/lisp/replace.el b/lisp/replace.el
index 90c66fa47c..cc603d96c0 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