Adapt to change in perform-replace.

diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 688f9d60c0ac754b644b15ee2cd0795206df583e..de1f3d807a4db247466cb4c2d0899a6315485c9b 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 nil nil t t nil))))
+             (list 'not (list 'perform-replace from to t t nil))))
   (ebrowse-tags-loop-continue 'first-time))
 
 

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 8731bb5a896192b5e18423a6f744d5f841cc8f61..ad1860a36a0f3c5818dfc2edf41617e35c0b11ff 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1743,7 +1743,7 @@ See documentation of variable `tags-file-name'."
                                   ;; will see it.
                                   '(goto-char (match-beginning 0))))
        tags-loop-operate (list 'perform-replace
-                               (list 'quote from) (list 'quote to) nil nil
+                               (list 'quote from) (list 'quote to)
                                t t (list 'quote delimited)))
   (tags-loop-continue (or file-list-form t)))
 \f