瀏覽代碼

emacs.el: Print message when EMACS_EL_DRY_RUN is set

pull/2/head
10sr 9 年之前
父節點
當前提交
f6e0d1e95e
共有 1 個文件被更改,包括 7 次插入5 次删除
  1. +7
    -5
      emacs.el

+ 7
- 5
emacs.el 查看文件

@@ -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…
取消
儲存