From be01714b8f9818cd288bf69745c5f5e436bdf0bb Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Thu, 27 Dec 2007 03:17:24 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 3 +++ lisp/vc-cvs.el | 3 ++- lisp/vc-hg.el | 9 +++++---- 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 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) -- 2.11.4.GIT