[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-git.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-git.el,v |
Date: |
Tue, 24 Jul 2007 22:21:48 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 07/07/24 22:21:47
Index: vc-git.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-git.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- vc-git.el 24 Jul 2007 13:15:03 -0000 1.12
+++ vc-git.el 24 Jul 2007 22:21:45 -0000 1.13
@@ -264,27 +264,25 @@
(defun vc-git-print-log (files &optional buffer)
"Get change log associated with FILES."
- (let ((name (file-relative-name file))
- (coding-system-for-read git-commits-coding-system))
- ;; `log-view-mode' needs to have the file name in order to function
- ;; correctly. "git log" does not print it, so we insert it here by
- ;; hand.
-
+ (let ((coding-system-for-read git-commits-coding-system))
;; `vc-do-command' creates the buffer, but we need it before running
;; the command.
(vc-setup-buffer buffer)
;; If the buffer exists from a previous invocation it might be
;; read-only.
(let ((inhibit-read-only t))
- ;; XXX Here loop and call "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...
+ ;; XXX `log-view-mode' needs to have something to identify where
+ ;; the log for each individual file starts. It seems that by
+ ;; default git does not output this info. So loop here and call
+ ;; "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)
(with-current-buffer
buffer
- (insert "File: " (file-name-nondirectory file) "\n")))
- (vc-git-command buffer 'async name "rev-list" "--pretty" "HEAD" "--"))))
+ (insert "File: " (file-name-nondirectory file) "\n"))
+ (vc-git-command buffer 'async (file-relative-name file)
+ "rev-list" "--pretty" "HEAD" "--")))))
(defvar log-view-message-re)
(defvar log-view-file-re)
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, (continued)
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/22
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/22
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/22
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Miles Bader, 2007/07/23
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/23
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/23
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/23
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/23
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/23
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/24
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v,
Dan Nicolaescu <=
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/25
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/25
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/26
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/26
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Dan Nicolaescu, 2007/07/27