Permalink
Browse files

default head branch to "master"

  • Loading branch information...
milkypostman committed Sep 17, 2012
1 parent 87346e3 commit e20c3159ec7f5c55825cdf4c51408df8de500571
Showing with 4 additions and 2 deletions.
  1. +4 −2 package-build.el
View
@@ -296,8 +296,10 @@ Return a cons cell whose `car' is the root and whose `cdr' is the repository."
(defun pb/git-head-branch (dir)
"Get the current git repo for DIR."
- (pb/run-process-match
- "HEAD branch: \\(.*\\)" dir "git" "remote" "show" "origin"))
+ (or (ignore-errors
+ (pb/run-process-match
+ "HEAD branch: \\(.*\\)" dir "git" "remote" "show" "origin"))
+ "master"))
(defun pb/checkout-git (name config dir)
"Check package NAME with config CONFIG out of git into DIR."

0 comments on commit e20c315

Please sign in to comment.