Browse Source

little improvement of lazy-load-eval

pull/1/head
10sr 10 years ago
parent
commit
707d0ab2ae
1 changed files with 4 additions and 2 deletions
  1. +4
    -2
      emacs.el

+ 4
- 2
emacs.el View File

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


(defun download-file (url path &optional ok-if-already-exists) (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 (or
(let ((curl (executable-find "curl"))) (let ((curl (executable-find "curl")))
(when curl (when curl
@@ -140,7 +141,8 @@ found, otherwise returns nil."
(eval-after-load ,feature (eval-after-load ,feature
(quote (progn (quote (progn
,@body))) ,@body)))
,libpath))))
(locate-library ,libname)))))

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


(when (lazy-load-eval 'tetris nil (when (lazy-load-eval 'tetris nil


Loading…
Cancel
Save