]> git.eshelyaron.com Git - emacs.git/commitdiff
Load uniquify after dump/reload.
authorKen Raeburn <raeburn@raeburn.org>
Tue, 30 May 2017 06:49:20 +0000 (02:49 -0400)
committerKen Raeburn <raeburn@raeburn.org>
Sat, 22 Jul 2017 08:36:22 +0000 (04:36 -0400)
* lisp/loadup.el: Don't load uniquify before dumping; load it if we
don't dump, or if we do dump, write out instructions to load it at
startup.  Don't explicitly filter out rename-buffer when checking for
function definitions that need writing out.

lisp/loadup.el

index aeba14a10f91aff7fa0c583beb9064f8154f239a..e3d8dc5a59ac521decdf5e5c551c8253221190fe 100644 (file)
 
 (load "vc/vc-hooks")
 (load "vc/ediff-hook")
-(load "uniquify")
 (load "electric")
 (load "emacs-lisp/eldoc")
 (load "cus-start") ;Late to reduce customize-rogue (needs loaddefs.el anyway)
@@ -513,12 +512,8 @@ lost after dumping")))
                  ;; subr objects aren't readable!
                  (unless (equal (symbol-name s) (subr-name (symbol-function s)))
                    (push `(fset ',s (symbol-function ',(intern (subr-name (symbol-function s))))) cmds))
-               (if (memq s '(rename-buffer))
-                   ;; FIXME: We need these, but they contain
-                   ;; unprintable objects.
-                   nil
-                 (push `(fset ',s ,(macroexp-quote (symbol-function s)))
-                       cmds))))
+               (push `(fset ',s ,(macroexp-quote (symbol-function s)))
+                     cmds)))
            (when (and (default-boundp s)
                       (not (macroexp--const-symbol-p s 'any-value))
                       ;; I think we don't need/want these!
@@ -691,6 +686,8 @@ lost after dumping")))
                                      'face-defface-spec)))
             (terpri)
             (print '(load "international/characters" nil t))
+            ;; This sets advice on a subr, so cannot be preloaded.
+            (print '(load "uniquify"))
             (terpri)
             ;; Lisp functions have their DOC file offsets stored
             ;; already, but for a subr it's hidden away from Lisp.
@@ -725,6 +722,8 @@ lost after dumping")))
 
       (kill-emacs)))
 
+(load "uniquify")
+
 ;; For machines with CANNOT_DUMP defined in config.h,
 ;; this file must be loaded each time Emacs is run.
 ;; So run the startup code now.  First, remove `-l loadup' from args.