*** empty log message ***

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>
 

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)

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)