Explorar el Código

Remove download-file

pull/15/head
10sr hace 8 años
padre
commit
bab2852afb
Se han modificado 1 ficheros con 0 adiciones y 45 borrados
  1. +0
    -45
      emacs.el

+ 0
- 45
emacs.el Ver fichero

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



Cargando…
Cancelar
Guardar