[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc-git.el
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc-git.el |
Date: |
Wed, 14 Oct 2009 06:28:05 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 09/10/14 06:28:04
Modified files:
lisp : ChangeLog vc-git.el
Log message:
(vc-git-dir-extra-headers): Set the branch name
correctly in the detached head case.
(vc-git-print-log): Remove unused binding.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16421&r2=1.16422
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-git.el?cvsroot=emacs&r1=1.94&r2=1.95
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16421
retrieving revision 1.16422
diff -u -b -r1.16421 -r1.16422
--- ChangeLog 14 Oct 2009 06:08:49 -0000 1.16421
+++ ChangeLog 14 Oct 2009 06:28:00 -0000 1.16422
@@ -1,5 +1,9 @@
2009-10-14 Dan Nicolaescu <address@hidden>
+ * vc-git.el (vc-git-dir-extra-headers): Set the branch name
+ correctly in the detached head case.
+ (vc-git-print-log): Remove unused binding.
+
* vc.el (vc-responsible-backend): When a directory is passed for
for registration create a VC repository if no backend is
responsible for the directory argument.
Index: vc-git.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-git.el,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -b -r1.94 -r1.95
--- vc-git.el 20 Sep 2009 19:51:38 -0000 1.94
+++ vc-git.el 14 Oct 2009 06:28:03 -0000 1.95
@@ -421,7 +421,7 @@
(vc-git--out-ok "config" (concat "remote." remote
".url"))))))
(when (string-match "\\([^\n]+\\)" remote-url)
(setq remote-url (match-string 1 remote-url))))
- "not (detached HEAD)")
+ (setq branch "not (detached HEAD)"))
;; FIXME: maybe use a different face when nothing is stashed.
(concat
(propertize "Branch : " 'face 'font-lock-type-face)
@@ -503,10 +503,7 @@
(defun vc-git-print-log (files &optional buffer shortlog)
"Get change log associated with FILES."
- (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))))
+ (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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog vc-git.el,
Dan Nicolaescu <=