(ebrowse-tags-query-replace): Construct a

form with additional arguments for perform-replace.

diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 3ebe8b83f2964036238e3403aeae5a3641c91cb1..5669b25a3d4f7630346a9c6820323ab5fc0171d4 100644 (file)
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -3818,7 +3818,7 @@ With prefix arg, process files of marked classes only."
   (setq ebrowse-tags-loop-form
        (list 'and (list 'save-excursion
                         (list 're-search-forward from nil t))
-             (list 'not (list 'perform-replace from to t t nil))))
+             (list 'not (list 'perform-replace from to nil nil t t nil))))
   (ebrowse-tags-loop-continue 'first-time))