Mercurial > emacs

changeset 99262:bc878f998f43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-revert): Limit the length of the query string.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 30 Oct 2008 19:21:07 +0000
parents 75097d31c6e6
children 6ca1ece7bbe9
files lisp/vc.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Thu Oct 30 19:20:46 2008 +0000
+++ b/lisp/vc.el	Thu Oct 30 19:21:07 2008 +0000
@@ -1868,7 +1868,12 @@
 	(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*"))