Mercurial > emacs
changeset 87427:1aea302af710
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Thu, 27 Dec 2007 03:17:24 +0000 |
| parents | 47c02bd68801 |
| children | ca399a1984c7 |
| files | lisp/ChangeLog lisp/vc-cvs.el lisp/vc-hg.el |
| diffstat | 3 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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)
--- 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)