(vc-revert): Limit the length of the query string.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisp/vc.el b/lisp/vc.el
index a6ef181c51b..a4e2b8e027f 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1868,7 +1868,12 @@ to the working revision (except for keyword expansion)."
         (unless (yes-or-no-p (format "%s seems up-to-date.  Revert anyway? " file))
           (error "Revert canceled"))))
     (when (vc-diff-internal vc-allow-async-revert vc-fileset nil nil)
-      (unless (yes-or-no-p (format "Discard changes in %s? " (vc-delistify files)))
+      (unless (yes-or-no-p
+               (format "Discard changes in %s? "
+                       (let ((str (vc-delistify files)))
+                         (if (< (length str) 50)
+                             str
+                           (format "%d files" (length files))))))
         (error "Revert canceled"))
       (delete-windows-on "*vc-diff*")
       (kill-buffer "*vc-diff*"))