diff options
| -rw-r--r-- | lisp/vc/vc-dir.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el index 436a0a67223..b823f2b3930 100644 --- a/lisp/vc/vc-dir.el +++ b/lisp/vc/vc-dir.el | |||
| @@ -780,8 +780,9 @@ system; see `vc-dir-delete-file'." | |||
| 780 | 'unregistered))) | 780 | 'unregistered))) |
| 781 | files))) | 781 | files))) |
| 782 | (when tracked | 782 | (when tracked |
| 783 | (user-error "Trying to clean tracked file%s: %s" | 783 | (user-error (ngettext "Trying to clean tracked file: %s" |
| 784 | (if (= (length tracked) 1) "" "s") | 784 | "Trying to clean tracked files: %s" |
| 785 | (length tracked)) | ||
| 785 | (mapconcat #'file-name-nondirectory tracked ", "))) | 786 | (mapconcat #'file-name-nondirectory tracked ", "))) |
| 786 | (map-y-or-n-p "Delete %s? " #'delete-file files) | 787 | (map-y-or-n-p "Delete %s? " #'delete-file files) |
| 787 | (revert-buffer))) | 788 | (revert-buffer))) |