浏览代码

emacs.el: Print message when EMACS_EL_DRY_RUN is set

pull/2/head
10sr 10 年前
父节点
当前提交
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.


正在加载...
取消
保存