diff options
| author | Chong Yidong <[email protected]> | 2008-10-30 19:21:07 +0000 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2008-10-30 19:21:07 +0000 |
| commit | 904f87938bb93a0a93bc69e0d735e471d45aa585 (patch) | |
| tree | 0087af31241e02a265027ff4f85af0996de0b624 /lisp/vc.el | |
| parent | e9048e4f011fb1d02b69be4e204996bd0999dfaf (diff) | |
(vc-revert): Limit the length of the query string.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index a6ef181c51..a4e2b8e027 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*")) |