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.
This commit is contained in:
parent
e25d6cb038
commit
bba5cc96aa
1 changed files with 7 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue