From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 24 Oct 2001 12:37:08 +0000 (+0000)
Subject: Adapt to change in perform-replace.
X-Git-Tag: ttn-vms-21-2-B4~19203
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c8f9bc197950b85ae9fe9f9e8a3264a3a4aa125;p=emacs.git

Adapt to change in perform-replace.
---

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)))