From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 25 Mar 2002 00:40:16 +0000 (+0000)
Subject: (tags-query-replace): Pass t for NOERROR to query-replace-read-args.
X-Git-Tag: ttn-vms-21-2-B4~15984
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17b9c33c8ddcdc24001efabc36faacc079ac8eab;p=emacs.git

(tags-query-replace): Pass t for NOERROR to query-replace-read-args.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index c0613881db0..15153029c33 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1733,7 +1733,7 @@ If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
 with the command \\[tags-loop-continue].
 
 See documentation of variable `tags-file-name'."
-  (interactive (query-replace-read-args "Tags query replace (regexp)" t))
+  (interactive (query-replace-read-args "Tags query replace (regexp)" t t))
   (setq tags-loop-scan `(let ,(unless (equal from (downcase from))
 				'((case-fold-search nil)))
 			  (if (re-search-forward ',from nil t)