From: Ken Raeburn <raeburn@raeburn.org>
Date: Wed, 8 Feb 2017 09:42:00 +0000 (-0500)
Subject: Load documentation at startup.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6faa843adf72b262acd45d9682224b867b0faab3;p=emacs.git

Load documentation at startup.

Documentation pointers for Lisp subrs are currently only loadable via
Snarf-documentation.

* lisp/loadup.el: Make dumped.elc attempt to reload the DOC file.
Warn but continue if it fails.
---

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 188446ab129..956ee790bea 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -634,6 +634,13 @@ lost after dumping")))
             (terpri)
             (print '(load "international/characters" nil t))
             (terpri)
+            ;; Lisp functions have their DOC file offsets stored
+            ;; already, but for a subr it's hidden away from Lisp.
+            (print '(condition-case nil
+                        (Snarf-documentation "DOC")
+                      (file-missing
+                       (message "Couldn't load DOC file"))))
+            (terpri)
             (print `(dolist (cs ',coding-system-aliases)
                       (define-coding-system-alias (car cs) (cdr cs))))
             (terpri)