Add a new after-pdump-load-hook variable

* doc/lispref/internals.texi (Building Emacs): Document it.

* lisp/subr.el (after-pdump-load-hook): New variable.
* src/emacs.c (main): Run the new hook.

* src/pdumper.c (syms_of_pdumper): Define a symbol.

2 files changed, 7 insertions, 0 deletions

diff --git a/src/emacs.c b/src/emacs.c
index b178c6a06cf..1f6490fbc04 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -2333,6 +2333,11 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
   if (dump_mode)
     Vdump_mode = build_string (dump_mode);
 
+#ifdef HAVE_PDUMPER
+  /* Allow code to be run (mostly useful after redumping). */
+  safe_run_hooks (Qafter_pdump_load_hook);
+#endif
+
   /* Enter editor command loop.  This never returns.  */
   set_initial_minibuffer_mode ();
   Frecursive_edit ();
diff --git a/src/pdumper.c b/src/pdumper.c
index 96fbd56a236..6cf7b847cb7 100644
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -5706,6 +5706,7 @@ pdumper_load (const char *dump_filename, char *argv0)
     dump_mmap_release (&sections[i]);
   if (dump_fd >= 0)
     emacs_close (dump_fd);
+
   return err;
 }
 
@@ -5790,6 +5791,7 @@ syms_of_pdumper (void)
   DEFSYM (Qdumped_with_pdumper, "dumped-with-pdumper");
   DEFSYM (Qload_time, "load-time");
   DEFSYM (Qdump_file_name, "dump-file-name");
+  DEFSYM (Qafter_pdump_load_hook, "after-pdump-load-hook");
   defsubr (&Spdumper_stats);
 #endif /* HAVE_PDUMPER */
 }