X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/368cb23fe249334bf9d230755ae07b6410ac6852..0c26f14b7e200b39134ec70c77fab8c467cf3290:/lisp/loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 53fc2215a9..db3c36d1f0 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -161,6 +161,12 @@
   ;; In case loaddefs hasn't been generated yet.
   (file-error (load "ldefs-boot.el")))
 
+(let ((new (make-hash-table :test 'equal)))
+  ;; Now that loaddefs has populated definition-prefixes, purify its contents.
+  (maphash (lambda (k v) (puthash (purecopy k) (purecopy v) new))
+           definition-prefixes)
+  (setq definition-prefixes new))
+
 (load "emacs-lisp/nadvice")
 (load "emacs-lisp/cl-preloaded")
 (load "minibuffer")            ;After loaddefs, for define-minor-mode.