Sfoglia il codice sorgente

emacs.el: Print message when EMACS_EL_DRY_RUN is set

pull/2/head
10sr 9 anni fa
parent
commit
f6e0d1e95e
1 ha cambiato i file con 7 aggiunte e 5 eliminazioni
  1. +7
    -5
      emacs.el

+ 7
- 5
emacs.el Vedi 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.


Caricamento…
Annulla
Salva