[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/10/30 19:21:08

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.707
retrieving revision 1.708
diff -u -b -r1.707 -r1.708
--- vc.el       27 Oct 2008 07:21:49 -0000      1.707
+++ vc.el       30 Oct 2008 19:21:07 -0000      1.708
@@ -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*"))