Kaynağa Gözat

use curl instead of url-copy-file for downloading

pull/1/head
10sr 11 yıl önce
ebeveyn
işleme
43595c602e
1 değiştirilmiş dosya ile 18 ekleme ve 17 silme
  1. +18
    -17
      emacs.el

+ 18
- 17
emacs.el Dosyayı Görüntüle

@@ -45,27 +45,28 @@ otherwise the path where the library installed."

(defun download-file (url path &optional ok-if-already-exists)
"Download file from URL and output to PATH."
(or (ignore-errors
(or
(let ((curl (executable-find "curl")))
(when curl
(if (and (not ok-if-already-exists)
(file-exists-p path))
nil
(and (eq 0
(call-process curl
nil
nil
nil
"--output"
path
url
))
path))))
(ignore-errors
(require 'url)
(url-copy-file url
path
ok-if-already-exists)
path)
(let ((curl (executable-find "curl")))
(when curl
(if (and (not ok-if-already-exists)
(file-exists-p path))
nil
(and (eq 0
(call-process curl
nil
nil
nil
"--output"
path
url
))
path))))))
path)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; autoload


Yükleniyor…
İptal
Kaydet