Commit e25d6cb0 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

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
parent f0bf0d07
......@@ -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
(error "File `%s' is visited read-only" file))))
(tags-query-replace from to delimited
'(mapcar 'car (vc-dir-marked-only-files-and-states))))
from to (mapcar 'car (vc-dir-marked-only-files-and-states))
(if (equal from (downcase from)) nil 'default)
(defun vc-dir-ignore ()
"Ignore the current file."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment