# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1198725444 0
# Node ID 1aea302af710812ff64832d74ddd730d7b4ce8ce
# Parent  47c02bd68801712926da1bd9bc241afd766f80e1
*** empty log message ***

diff -r 47c02bd68801 -r 1aea302af710 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Dec 27 03:10:52 2007 +0000
+++ b/lisp/ChangeLog	Thu Dec 27 03:17:24 2007 +0000
@@ -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 -r 47c02bd68801 -r 1aea302af710 lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Thu Dec 27 03:10:52 2007 +0000
+++ b/lisp/vc-cvs.el	Thu Dec 27 03:17:24 2007 +0000
@@ -500,7 +500,8 @@
 ;;;
 
 (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 -r 47c02bd68801 -r 1aea302af710 lisp/vc-hg.el
--- a/lisp/vc-hg.el	Thu Dec 27 03:10:52 2007 +0000
+++ b/lisp/vc-hg.el	Thu Dec 27 03:17:24 2007 +0000
@@ -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)