[Emacs-diffs] scratch/raeburn-startup 44f3368 11/17: Force purification off when using dumped.elc.

[Ken Raeburn]

branch: scratch/raeburn-startup
commit 44f336824313ab42289b2eb9691f1e25be4a1368
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 4a13003..ff8be33 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -556,6 +556,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))