# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1216775943 0
# Node ID 3e4cbf8f8b685cf78f6f1853a9693372afbc76fb
# Parent  531d21ce5cca4b9bc0930b997af684f66f8ec318
(tags-query-replace): Set arg `map' of `perform-replace'
to `multi-query-replace-map'.

diff -r 531d21ce5cca -r 3e4cbf8f8b68 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Wed Jul 23 01:18:39 2008 +0000
+++ b/lisp/progmodes/etags.el	Wed Jul 23 01:19:03 2008 +0000
@@ -1865,7 +1865,8 @@
 			      ;; to the beginning of it so perform-replace
 			      ;; will see it.
 			      (goto-char (match-beginning 0))))
-	tags-loop-operate `(perform-replace ',from ',to t t ',delimited))
+	tags-loop-operate `(perform-replace ',from ',to t t ',delimited
+					    nil multi-query-replace-map))
   (tags-loop-continue (or file-list-form t)))
 
 (defun tags-complete-tags-table-file (string predicate what) ; Doc string?