mirror of
https://github.com/correl/melpa.git
synced 2024-11-22 19:18:39 +00:00
Expand bzr repos to canonical path.
This commit is contained in:
parent
2bebebbcd6
commit
310ca31c8d
1 changed files with 4 additions and 1 deletions
|
@ -273,6 +273,9 @@ rate limiting."
|
|||
(let* ((url (format "git://github.com/%s.git" (plist-get config :repo))))
|
||||
(pb/checkout-git name (plist-put (copy-sequence config) :url url) dir)))
|
||||
|
||||
(defun pb/bzr-expand-repo (repo)
|
||||
"Get REPO expanded name."
|
||||
(pb/run-process-match "branch root: \\(.*\\)" nil "bzr" "info" repo))
|
||||
|
||||
(defun pb/bzr-repo (dir)
|
||||
"Get the current bzr repo for DIR."
|
||||
|
@ -280,7 +283,7 @@ rate limiting."
|
|||
|
||||
(defun pb/checkout-bzr (name config dir)
|
||||
"Check package NAME with config CONFIG out of bzr into DIR."
|
||||
(let ((repo (plist-get config :url)))
|
||||
(let ((repo (pb/bzr-expand-repo (plist-get config :url))))
|
||||
(with-current-buffer (get-buffer-create "*package-build-checkout*")
|
||||
(goto-char (point-max))
|
||||
(cond
|
||||
|
|
Loading…
Reference in a new issue