[Emacs-diffs] scratch/raeburn-startup 980e22f 2/2: Load documentation at startup.

[Ken Raeburn]

branch: scratch/raeburn-startup
commit 980e22f3240a71fe60cdfa2793393c603a01e1fb
Author: Ken Raeburn <address@hidden>
Commit: Ken Raeburn <address@hidden>

    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.
---
 lisp/loadup.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/loadup.el b/lisp/loadup.el
index f008654..12abbb2 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -631,6 +631,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)