*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09b734891e41f10439849e66879fe04ffc2bb5b9..67d1e9e37bab37572af4fa567c063d48e608bb75 100644 (file)
--- 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 5ffaf8ffa77197b6451c85fc9ed7fe292d5a1ae0..337170ab8963fdcaf1ef809d8ee6ca9887498211 100644 (file)
--- 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 af2b4f133d2175bf7cfaefb65d555109f3335ae3..d04f607dfa1c21eeb73c6cb88170ad867749b986 100644 (file)
--- 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)