浏览代码

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)


正在加载...
取消
保存