Adapt to change in perform-replace.

2 files changed, 5 insertions, 3 deletions

diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 688f9d60c0a..2ad389ed31b 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -1,6 +1,7 @@
 ;;; ebrowse.el --- Emacs C++ class browser & tags facility
 
-;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation Inc.
+;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
+;;  Free Software Foundation Inc.
 
 ;; Author: Gerd Moellmann <gerd@gnu.org>
 ;; Maintainer: FSF
@@ -3818,7 +3819,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 8731bb5a896..6f46e3103a8 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1,4 +1,5 @@
 ;;; etags.el --- etags facility for Emacs
+
 ;; Copyright (C) 1985, 86, 88, 89, 92, 93, 94, 95, 96, 98, 2000, 2001
 ;;      Free Software Foundation, Inc.
 
@@ -1743,7 +1744,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)))