瀏覽代碼

little improvement of lazy-load-eval

pull/1/head
10sr 10 年之前
父節點
當前提交
707d0ab2ae
共有 1 個檔案被更改,包括 4 行新增2 行删除
  1. +4
    -2
      emacs.el

+ 4
- 2
emacs.el 查看文件

@@ -53,7 +53,8 @@ If FORCE-DOWNLOAD-P it t ignore exisiting library and always download."
(locate-library lib)))

(defun download-file (url path &optional ok-if-already-exists)
"Download file from URL and output to PATH."
"Download file from URL and output to PATH.
IF OK-IF-ALREADY-EXISTS is true force download."
(or
(let ((curl (executable-find "curl")))
(when curl
@@ -140,7 +141,8 @@ found, otherwise returns nil."
(eval-after-load ,feature
(quote (progn
,@body)))
,libpath))))
(locate-library ,libname)))))

(put 'lazy-load-eval 'lisp-indent-function 2)

(when (lazy-load-eval 'tetris nil


Loading…
取消
儲存