| @@ -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 | ||||