diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-16 15:07:37 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-16 15:21:17 +0200 |
commit | e25d6cb0381c641e61bcf69e420a41186df06299 (patch) | |
tree | e20ac148036045d88c08db9cf8fc353fcd96300b /lisp/vc/vc-dir.el | |
parent | f0bf0d0779d6a8430b95ce55d66ee836611ef44f (diff) | |
download | emacs-e25d6cb0381c641e61bcf69e420a41186df06299.tar.gz |
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.
Diffstat (limited to 'lisp/vc/vc-dir.el')
-rw-r--r-- | lisp/vc/vc-dir.el | 9 |
1 files changed, 7 insertions, 2 deletions
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." |