mirror of
https://github.com/correl/melpa.git
synced 2024-11-22 19:18:39 +00:00
Ignore trailing / on subversion packages.
This commit is contained in:
parent
2dc9a2bd47
commit
0164ab69a2
1 changed files with 7 additions and 1 deletions
|
@ -177,10 +177,16 @@ seconds; the server cuts off after 10 requests in 20 seconds.")
|
|||
(re-search-forward "URL: \\(.*\\)")
|
||||
(match-string-no-properties 1)))
|
||||
|
||||
(defun pb/trim (str &optional chr)
|
||||
(unless chr (setq chr ? ))
|
||||
(if (equal (elt str (1- (length str))) chr)
|
||||
(substring str 0 (1- (length str)))
|
||||
str))
|
||||
|
||||
(defun pb/checkout-svn (name config dir)
|
||||
"Check package NAME with config CONFIG out of svn into DIR."
|
||||
(with-current-buffer (get-buffer-create "*package-build-checkout*")
|
||||
(let ((repo (plist-get config :url))
|
||||
(let ((repo (pb/trim (plist-get config :url) ?/))
|
||||
(bound (goto-char (point-max)))
|
||||
timestamps ts)
|
||||
(cond
|
||||
|
|
Loading…
Reference in a new issue