changeset 96909:3e4cbf8f8b68

(tags-query-replace): Set arg `map' of `perform-replace' to `multi-query-replace-map'.
author Juri Linkov <juri@jurta.org>
date Wed, 23 Jul 2008 01:19:03 +0000
parents 531d21ce5cca
children a7596a078e92
files lisp/progmodes/etags.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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?