(vc-git-print-log): Support both the old single file

interface and the new one.

2 files changed, 10 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc48a350dec..8d67655c579 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/vc-git.el b/lisp/vc-git.el
index 7e358ed0238..e4a9d26105a 100644
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -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"))