Mercurial > emacs
diff lisp/vc-git.el @ 105593:1987d1800365
(vc-git-dir-extra-headers): Set the branch name
correctly in the detached head case.
(vc-git-print-log): Remove unused binding.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Wed, 14 Oct 2009 06:28:00 +0000 |
parents | 5fc493595567 |
children | 6f463ea7a91a |
line wrap: on
line diff
--- a/lisp/vc-git.el Wed Oct 14 06:10:19 2009 +0000 +++ b/lisp/vc-git.el Wed Oct 14 06:28:00 2009 +0000 @@ -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)