Browse Source

do not load url.el immediately

pull/1/head
10sr 12 years ago
parent
commit
6b31035d78
1 changed files with 1 additions and 2 deletions
  1. +1
    -2
      emacs.el

+ 1
- 2
emacs.el View File

@@ -39,8 +39,6 @@ changing.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; download library from web ;; download library from web


(require 'url)

(defun fetch-library (url &optional byte-compile-p force-download-p) (defun fetch-library (url &optional byte-compile-p force-download-p)
"If library does not exist, download it from URL and locate it in "If library does not exist, download it from URL and locate it in
\"~/emacs.d/lisp/\". Return nil if library unfound and failed to download, \"~/emacs.d/lisp/\". Return nil if library unfound and failed to download,
@@ -52,6 +50,7 @@ otherwise the path where the library installed."
(if (or force-download-p (not locate-p)) (if (or force-download-p (not locate-p))
(progn (condition-case nil (progn (condition-case nil
(progn (message "downloading %s..." url) (progn (message "downloading %s..." url)
(require 'url)
(url-copy-file url (url-copy-file url
lpath lpath
t) t)


Loading…
Cancel
Save