From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 16 Jun 2019 13:09:52 +0000 (+0200)
Subject: Avoid obsolete function in reftex-global.el
X-Git-Tag: emacs-27.0.90~2483
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bba5cc96aaad1b21190bf7ef586f784df5c9c367;p=emacs.git

Avoid obsolete function in reftex-global.el

* lisp/textmodes/reftex-global.el (reftex-query-replace-document):
Rewrite to use fileloop directly to avoid the obsolete function
tags-query-replace.
---

diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index cdff2f479fa..6103c6c0206 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -27,6 +27,8 @@
 (eval-when-compile (require 'cl-lib))
 (provide 'reftex-global)
 (require 'reftex)
+
+(declare-function fileloop-continue "fileloop")
 ;;;
 
 ;;;###autoload
@@ -98,8 +100,11 @@ No active TAGS table is required."
     (unless to
       (setq to (read-string (format "Replace regexp %s with: " from))))
     (reftex-access-scan-info current-prefix-arg)
-    (tags-query-replace from to (or delimited current-prefix-arg)
-                        (list 'reftex-all-document-files))))
+    (fileloop-initialize-replace
+     from to (reftex-all-document-files)
+     (if (equal from (downcase from)) nil 'default)
+     (or delimited current-prefix-arg))
+    (fileloop-continue)))
 
 (defvar TeX-master)
 (defvar isearch-next-buffer-function)