Browse Source

emacs.el: Print message when EMACS_EL_DRY_RUN is set

pull/2/head
10sr 9 years ago
parent
commit
f6e0d1e95e
1 changed files with 7 additions and 5 deletions
  1. +7
    -5
      emacs.el

+ 7
- 5
emacs.el View File

@@ -86,11 +86,13 @@ FORCE-DOWNLOAD-P) will be ignored."
(locate-library lib)))
;; If EMACS_EL_DRY_RUN is set and it is not an empty string, 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)
"Download file from URL and output to PATH.


Loading…
Cancel
Save