dump: add function spacemacs/emacs-with-pdumper-set-p

This commit is contained in:
syl20bnr 2018-05-08 00:46:32 -04:00
parent ea1b4815b8
commit 3fa3311985
2 changed files with 8 additions and 3 deletions

View File

@ -577,7 +577,7 @@ refreshed during the current session."
(changed-since-last-dump-p
;; dump
(configuration-layer//load)
(when dotspacemacs-emacs-pdumper-executable-file
(when (spacemacs/emacs-with-pdumper-set-p)
(configuration-layer/message "Layer list has changed since last dump.")
(configuration-layer//dump-emacs)))
(spacemacs-force-dump
@ -590,7 +590,7 @@ refreshed during the current session."
;; dumping
(configuration-layer//load)
(configuration-layer/message "Dumping Emacs..."))
((and dotspacemacs-emacs-pdumper-executable-file
((and (spacemacs/emacs-with-pdumper-set-p)
(spacemacs-run-from-dump-p))
;; dumped
(configuration-layer/message
@ -598,7 +598,7 @@ refreshed during the current session."
(t
;; standard loading
(configuration-layer//load)
(when dotspacemacs-emacs-pdumper-executable-file
(when (spacemacs/emacs-with-pdumper-set-p)
(configuration-layer/message
(concat "Layer list has not changed since last time. "
"Skipping dumping process!")))))

View File

@ -49,6 +49,11 @@ You should not used this function, it is reserved for some specific process."
`(unless (eq 'dumping spacemacs-dump-mode)
,@body))
(defun spacemacs/emacs-with-pdumper-set-p ()
"Return non-nil if a portable dumper capable emacs executable is set."
(and dotspacemacs-emacs-pdumper-executable-file
(file-exists-p dotspacemacs-emacs-pdumper-executable-file)))
(defun spacemacs/dump-emacs ()
"Dump emacs in a subprocess."
(let ((default-directory (file-name-directory