Mercurial > emacs
changeset 82183:a324837355ec
(vc-git-print-log): Support both the old single file
interface and the new one.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 28 Jul 2007 02:01:43 +0000 |
| parents | 78ee45af2b61 |
| children | 4460e35d5bb6 |
| files | lisp/ChangeLog lisp/vc-git.el |
| diffstat | 2 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jul 28 01:24:33 2007 +0000 +++ b/lisp/ChangeLog Sat Jul 28 02:01:43 2007 +0000 @@ -1,3 +1,8 @@ +2007-07-28 Dan Nicolaescu <dann@ics.uci.edu> + + * vc-git.el (vc-git-print-log): Support both the old single file + interface and the new one. + 2007-07-28 Nick Roberts <nickrob@snap.net.nz> * bindings.el (mode-line-remote): Use updated %@ construct.
--- a/lisp/vc-git.el Sat Jul 28 01:24:33 2007 +0000 +++ b/lisp/vc-git.el Sat Jul 28 02:01:43 2007 +0000 @@ -260,7 +260,10 @@ (defun vc-git-print-log (files &optional buffer) "Get change log associated with FILES." - (let ((coding-system-for-read git-commits-coding-system)) + (let ((coding-system-for-read git-commits-coding-system) + ;; Support both the old print-log interface that passes a + ;; single file, and the new one that passes a file list. + (flist (if (listp files) files (list files)))) ;; `vc-do-command' creates the buffer, but we need it before running ;; the command. (vc-setup-buffer buffer) @@ -273,7 +276,7 @@ ;; "git rev-list" on each file separately to make sure that each ;; file gets a "File:" header before the corresponding ;; log. Maybe there is a way to do this with one command... - (dolist (file files) + (dolist (file flist) (with-current-buffer buffer (insert "File: " (file-name-nondirectory file) "\n"))