diff options
Diffstat (limited to 'lisp/loadup.el')
| -rw-r--r-- | lisp/loadup.el | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 8d2e4bbb7c2..1747d1d960a 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -560,22 +560,23 @@ lost after dumping"))) ;; different build fingerprint upon being created, which happens ;; the moment the Android system starts Emacs. Then, it passes ;; the appropriate "--dump-file" to libemacs.so as it starts. - (let ((temp-dir (getenv "TEMP")) - (dump-file-name (format "%semacs-%s.pdmp" - (file-name-as-directory "~") - pdumper-fingerprint)) - (dump-temp-file-name (format "%s~emacs-%s.pdmp" - (file-name-as-directory "~") - pdumper-fingerprint))) - (unless (pdumper-stats) - (condition-case () - (progn - (dump-emacs-portable dump-temp-file-name) - ;; Move the dumped file to the actual dump file name. - (rename-file dump-temp-file-name dump-file-name) - ;; Continue with loadup. - nil) - (error nil))))) + (when (not noninteractive) + (let ((temp-dir (getenv "TEMP")) + (dump-file-name (format "%semacs-%s.pdmp" + (file-name-as-directory "~") + pdumper-fingerprint)) + (dump-temp-file-name (format "%s~emacs-%s.pdmp" + (file-name-as-directory "~") + pdumper-fingerprint))) + (unless (pdumper-stats) + (condition-case () + (progn + (dump-emacs-portable dump-temp-file-name) + ;; Move the dumped file to the actual dump file name. + (rename-file dump-temp-file-name dump-file-name) + ;; Continue with loadup. + nil) + (error nil)))))) (if dump-mode (let ((output (cond ((equal dump-mode "pdump") "emacs.pdmp") ((equal dump-mode "dump") "emacs") |