[Emacs-diffs] scratch/raeburn-startup 1c4b68d 03/43: Force purification off when using dumped.elc.

[Ken Raeburn]

branch: scratch/raeburn-startup
commit 1c4b68df215d567678c5f6e9dd37dfca344a963a
Author: Ken Raeburn <address@hidden>
Commit: Ken Raeburn <address@hidden>

    Force purification off when using dumped.elc.
    
    * lisp/loadup.el: Print a separate form at the start of dumped.elc
    setting purify-flag to nil, before the big progn form is read.
---
 lisp/loadup.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 9a05004..d8dd32f 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -564,6 +564,8 @@ lost after dumping")))
                 (print-length nil)
                 (print-escape-newlines t)
                 (standard-output (current-buffer)))
+            (print '(setq purify-flag nil))
+            (terpri)
             (print `(progn . ,cmds))
             (terpri)
             (print `(let ((css ',charsets))