瀏覽代碼

do not load url.el immediately

pull/1/head
10sr 12 年之前
父節點
當前提交
6b31035d78
共有 1 個文件被更改,包括 1 次插入2 次删除
  1. +1
    -2
      emacs.el

+ 1
- 2
emacs.el 查看文件

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

(require 'url)

(defun fetch-library (url &optional byte-compile-p force-download-p)
"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,
@@ -52,6 +50,7 @@ otherwise the path where the library installed."
(if (or force-download-p (not locate-p))
(progn (condition-case nil
(progn (message "downloading %s..." url)
(require 'url)
(url-copy-file url
lpath
t)


Loading…
取消
儲存