diff options
Diffstat (limited to 'lisp/loadup.el')
| -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"))) ;; same as invocation-directory. (let (success) (unwind-protect - (progn - (if (member dump-mode '("pdump" "pbootstrap")) + (let ((tmp-dump-mode dump-mode) + (dump-mode nil)) + (if (member tmp-dump-mode '("pdump" "pbootstrap")) (dump-emacs-portable (expand-file-name output invocation-directory)) (dump-emacs output "temacs") (message "%d pure bytes used" pure-bytes-used)) |