Adapt to change in perform-replace.

diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 688f9d60c0ac754b644b15ee2cd0795206df583e..2ad389ed31b099166f65721714c25d3d16ee2b90 100644 (file)
--- 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 8731bb5a896192b5e18423a6f744d5f841cc8f61..6f46e3103a8279ea4ca307c7cad2ea9539c40867 100644 (file)
--- 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)))
 \f