From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 24 Oct 2001 12:39:29 +0000 (+0000)
Subject: Adapt to change in perform-replace.
X-Git-Tag: emacs-21.2~470
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d7f54bae33a1b68e0b868f5db2005172e50aa04;p=emacs.git

Adapt to change in perform-replace.
---

diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 688f9d60c0a..de1f3d807a4 100644
--- 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 8731bb5a896..ad1860a36a0 100644
--- 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)))