Quellcode durchsuchen

Remove download-file

pull/15/head
10sr vor 8 Jahren
Ursprung
Commit
bab2852afb
1 geänderte Dateien mit 0 neuen und 45 gelöschten Zeilen
  1. +0
    -45
      emacs.el

+ 0
- 45
emacs.el Datei anzeigen

@@ -88,51 +88,6 @@ found, otherwise returns nil."
(message "Tetris loaded!"))
(message "Tetris found!"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; download library from web

(defun download-file (url path &optional ok-if-already-exists)
"Download file from URL and output to PATH.
IF OK-IF-ALREADY-EXISTS is true force download."
(let ((curl (executable-find "curl"))
(wget (executable-find "wget")))
(cond (wget
(if (and (not ok-if-already-exists)
(file-exists-p path))
nil
(and (eq 0
(call-process wget
nil
nil
nil
"-O"
path
url
))
path)))
(curl
(if (and (not ok-if-already-exists)
(file-exists-p path))
nil
(and (eq 0
(call-process curl
nil
nil
nil
"--output"
path
"-L"
url
))
path)))
(t
(ignore-errors
(require 'url)
(url-copy-file url
path
ok-if-already-exists)
path)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; package



Laden…
Abbrechen
Speichern