| @@ -86,11 +86,13 @@ FORCE-DOWNLOAD-P) will be ignored." | |||||
| (locate-library lib))) | (locate-library lib))) | ||||
| ;; If EMACS_EL_DRY_RUN is set and it is not an empty string, fetch-library | ;; If EMACS_EL_DRY_RUN is set and it is not an empty string, fetch-library | ||||
| ;; does not actually fetch library. | ;; does not actually fetch library. | ||||
| (setq fetch-library-enabled-p | |||||
| (let ((dryrun (getenv "EMACS_EL_DRY_RUN"))) | |||||
| (not (and dryrun | |||||
| (eq 0 | |||||
| (length dryrun)))))) | |||||
| (let ((dryrun (getenv "EMACS_EL_DRY_RUN"))) | |||||
| (when (and dryrun | |||||
| (< 0 | |||||
| (length dryrun))) | |||||
| (setq fetch-library-enabled-p | |||||
| t) | |||||
| (message "EMACS_EL_DRY_RUN is set. Skip fetching libraries."))) | |||||
| (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. | ||||