mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 04:58:53 +08:00
parent
6acb1b9f28
commit
458a9a3844
|
@ -74,7 +74,7 @@ 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))
|
||||
(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)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user