Lazy load function documentation.

	* src/comp.c (native_function_doc): New function.
	(load_comp_unit): Do not load function doc during load.

	* src/comp.h: Extern 'native_function_doc'.

	* src/doc.c (Fdocumentation): Call 'native_function_doc' to
	retrive function doc.

	* src/pdumper.c (dump_native_comp_unit): Zero 'data_fdoc_h' before
	dumping.

1 files changed, 1 insertions, 4 deletions

diff --git a/src/doc.c b/src/doc.c
index 8191a914c6e..31ccee8079b 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -337,10 +337,7 @@ string is passed through `substitute-command-keys'.  */)
     fun = XCDR (fun);
 #ifdef HAVE_NATIVE_COMP
   if (!NILP (Fsubr_native_elisp_p (fun)))
-    doc =
-      Fgethash (make_fixnum (XSUBR (fun)->doc),
-                XNATIVE_COMP_UNIT (Fsubr_native_comp_unit (fun))->data_fdoc_h,
-                Qnil);
+    doc = native_function_doc (fun);
   else
 #endif
   if (SUBRP (fun))