github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-12-23 03:00:12 +00:00
Code Issues Projects Releases Packages Wiki Activity

Ignore trailing / on subversion packages.

Browse source
This commit is contained in:
Donald Curtis 2012-04-17 15:42:36 -05:00
parent 2dc9a2bd47
commit 0164ab69a2
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
package-build.el
View file

@ -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