From bba5cc96aaad1b21190bf7ef586f784df5c9c367 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 16 Jun 2019 15:09:52 +0200 Subject: [PATCH] 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. --- lisp/textmodes/reftex-global.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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) -- 2.39.5