From: Glenn Morris <rgm@gnu.org>
Date: Thu, 3 Dec 2009 03:11:14 +0000 (+0000)
Subject: (log-view-vc-backend, log-view-vc-fileset): Declare.
X-Git-Tag: emacs-pretest-23.1.90~111
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6e824528b1c20bcd61f2d35539e399343575b44;p=emacs.git

(log-view-vc-backend, log-view-vc-fileset): Declare.
(vc-print-log-internal): Fix previous change.
(vc-revert): Correct pluralization.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33cc62cb5b3..d4363f14c0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-12-03  Glenn Morris  <rgm@gnu.org>
+
+	* vc.el (log-view-vc-backend, log-view-vc-fileset): Declare.
+	(vc-print-log-internal): Fix previous change.
+	(vc-revert): Correct pluralization.
+
 2009-12-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* progmodes/make-mode.el (makefile-special-targets-list): No need for
diff --git a/lisp/vc.el b/lisp/vc.el
index 616b9a34dea..9bd6e338f37 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1859,6 +1859,9 @@ If it contains `directory' then if the fileset contains a directory show a short
 If it contains `file' then show short logs for files.
 Not all VC backends support short logs!")
 
+(defvar log-view-vc-backend)
+(defvar log-view-vc-fileset)
+
 (defun vc-print-log-internal (backend files working-revision
                                       &optional limit)
   ;; Don't switch to the output buffer before running the command,
@@ -1882,8 +1885,8 @@ Not all VC backends support short logs!")
       ;; log-view-mode used to be called with inhibit-read-only bound
       ;; to t, so let's keep doing it, just in case.
       (vc-call-backend backend 'log-view-mode))
-    (set (make-local-variable 'log-view-vc-backend) ',backend)
-    (set (make-local-variable 'log-view-vc-fileset) ',files)
+    (set (make-local-variable 'log-view-vc-backend) backend)
+    (set (make-local-variable 'log-view-vc-fileset) files)
 
     (vc-exec-after
      `(let ((inhibit-read-only t))
@@ -1985,10 +1988,12 @@ to the working revision (except for keyword expansion)."
     (when (vc-diff-internal vc-allow-async-revert vc-fileset nil nil)
       (unless (yes-or-no-p
 	       (format "Discard changes in %s? "
-		       (let ((str (vc-delistify files)))
+		       (let ((str (vc-delistify files))
+			     (nfiles (length files)))
 			 (if (< (length str) 50)
 			     str
-			   (format "%d files" (length files))))))
+			   (format "%d file%s" nfiles
+				   (if (= nfiles 1) "" "s"))))))
 	(error "Revert canceled"))
       (delete-windows-on "*vc-diff*")
       (kill-buffer "*vc-diff*"))