*** empty log message ***

3 files changed, 10 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09b734891e4..67d1e9e37ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -19,6 +19,9 @@
 
         * vc-svn.el (vc-svn-print-log): svn log doesn't actually accept
         multiple arguments, so generate logs sequentially when we get them.
+        * vc-hg.el (vc-hg-print-log): Gives this CVS-like "Working file:"
+        headers so the various log bindings can do the right thing.
+        * vc-cvs.el (vc-cvs-print-log): Fix a misleading comment.
 
 2007-12-26  Andreas Schwab  <schwab@suse.de>
 
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 5ffaf8ffa77..337170ab896 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -500,7 +500,8 @@ The changes are between FIRST-REVISION and SECOND-REVISION."
 ;;;
 
 (defun vc-cvs-print-log (files &optional buffer)
-  "Get change log associated with FILE."
+  "Get change logs associated with FILES."
+  ;; It's just the catenation of the individual logs.
   (vc-cvs-command
    buffer
    (if (vc-stay-local-p files) 'async 0)
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index af2b4f133d2..d04f607dfa1 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -230,9 +230,9 @@
 
 ;;; History functions
 
-(defun vc-hg-print-log(files &optional buffer)
+(defun vc-hg-print-log (files &optional buffer)
   "Get change log associated with FILES."
-  ;; `log-view-mode' needs to have the file name in order to function
+  ;; `log-view-mode' needs to have the file names in order to function
   ;; correctly. "hg log" does not print it, so we insert it here by
   ;; hand.
 
@@ -244,11 +244,12 @@
   (let ((inhibit-read-only t))
     ;; We need to loop and call "hg log" on each file separately. 
     ;; "hg log" with multiple file arguments mashes all the logs
-    ;; together.
+    ;; together.  Ironically enough, this puts us back near CVS
+    ;; which can't generate proper fileset logs either.
     (dolist (file files)
       (with-current-buffer
           buffer
-        (insert "File:        " (file-name-nondirectory file) "\n"))
+        (insert "Working file: " file "\n"))    ;; Like RCS/CVS.
       (vc-hg-command buffer 0 file "log"))))
 
 (defvar log-view-message-re)