Commit a0709d8d authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

interface and the new one.
parent 2c5b4e79
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.
......
......@@ -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"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment