diff options
| author | Daniel Colascione | 2019-01-15 18:42:39 -0500 |
|---|---|---|
| committer | Daniel Colascione | 2019-01-15 18:42:39 -0500 |
| commit | 6b9fa8804533a695094a930d634d2d6617e2b6c7 (patch) | |
| tree | 469f017265239d1d217049f8425e6abc943fbc0e | |
| parent | 02976d67369699660add46d548f0d1593885334b (diff) | |
| download | emacs-6b9fa8804533a695094a930d634d2d6617e2b6c7.tar.gz emacs-6b9fa8804533a695094a930d634d2d6617e2b6c7.zip | |
Make sure dump-mode is nil after dump
* lisp/loadup.el (dump-mode): Bind dump-mode to nil before dumping
| -rw-r--r-- | lisp/loadup.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 0f0ca15cebc..100c3f700d1 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el | |||
| @@ -488,8 +488,9 @@ lost after dumping"))) | |||
| 488 | ;; same as invocation-directory. | 488 | ;; same as invocation-directory. |
| 489 | (let (success) | 489 | (let (success) |
| 490 | (unwind-protect | 490 | (unwind-protect |
| 491 | (progn | 491 | (let ((tmp-dump-mode dump-mode) |
| 492 | (if (member dump-mode '("pdump" "pbootstrap")) | 492 | (dump-mode nil)) |
| 493 | (if (member tmp-dump-mode '("pdump" "pbootstrap")) | ||
| 493 | (dump-emacs-portable (expand-file-name output invocation-directory)) | 494 | (dump-emacs-portable (expand-file-name output invocation-directory)) |
| 494 | (dump-emacs output "temacs") | 495 | (dump-emacs output "temacs") |
| 495 | (message "%d pure bytes used" pure-bytes-used)) | 496 | (message "%d pure bytes used" pure-bytes-used)) |