From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 16 Jun 2019 13:07:37 +0000 (+0200)
Subject: Use fileloop directly in vc-dir to avoid obsolete function
X-Git-Tag: emacs-27.0.90~2484
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e25d6cb0381c641e61bcf69e420a41186df06299;p=emacs.git

Use fileloop directly in vc-dir to avoid obsolete function

* lisp/vc/vc-dir.el (vc-dir-query-replace-regexp): Rewrite to use
fileloop directly to avoid the obsolete function
tags-query-replace.
---

diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el
index 6afc599d4c8..7af1e0db4ff 100644
--- a/lisp/vc/vc-dir.el
+++ b/lisp/vc/vc-dir.el
@@ -45,6 +45,8 @@
 ;;; Code:
 (eval-when-compile (require 'cl-lib))
 
+(declare-function fileloop-continue "fileloop")
+
 (defcustom vc-dir-mode-hook nil
   "Normal hook run by `vc-dir-mode'.
 See `run-hooks'."
@@ -823,8 +825,11 @@ with the command \\[tags-loop-continue]."
       (if (and buffer (with-current-buffer buffer
 			buffer-read-only))
 	  (error "File `%s' is visited read-only" file))))
-  (tags-query-replace from to delimited
-		      '(mapcar 'car (vc-dir-marked-only-files-and-states))))
+  (fileloop-initialize-replace
+   from to (mapcar 'car (vc-dir-marked-only-files-and-states))
+   (if (equal from (downcase from)) nil 'default)
+   delimited)
+  (fileloop-continue))
 
 (defun vc-dir-ignore ()
   "Ignore the current file."