gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 04:58:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

el-get-http-install: allow for non-http urls

Browse Source 
fix #2276
This commit is contained in:
Noam Postavsky 2015-10-27 20:12:20 -04:00
parent 6acb1b9f28
commit 458a9a3844
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
methods/el-get-http.el
View File

@ -74,8 +74,8 @@ into the package :localname option or its `file-name-nondirectory' part."
(el-get-http-retrieve-callback
(let ((http-response (if (looking-at "^HTTP/[0-9]\\.[0-9] \\([0-9]\\{3\\}\\)")
(string-to-number (match-string 1)))))
(unless (and http-response (<= 200 http-response) (<= http-response 299))
`(:error (error http ,http-response))))
(if (and http-response (or (< http-response 200) (< 299 http-response)))
`(:error (error http ,http-response))))
package url post-install-fun dest el-get-sources)))))
(defun el-get-http-compute-checksum (package &optional url)