[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master bba5cc9 2/4: Avoid obsolete function in reftex-glob
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master bba5cc9 2/4: Avoid obsolete function in reftex-global.el |
Date: |
Sun, 16 Jun 2019 09:21:27 -0400 (EDT) |
branch: master
commit bba5cc96aaad1b21190bf7ef586f784df5c9c367
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 cdff2f4..6103c6c 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)