From 7764bd73c587296ac18a589d5eae310a7b5dfe41 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Sun, 11 Jun 2017 17:03:52 -0400 Subject: [PATCH] * lisp/loadup.el: Load uniquify quietly. Put fewer newlines in dump file. --- lisp/loadup.el | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/lisp/loadup.el b/lisp/loadup.el index 8ca80ee7dca..4ef0e7e7ce0 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -654,7 +654,6 @@ lost after dumping"))) (print '(setq purify-flag nil)) (print '(get-buffer-create "*Messages*")) (print `(progn . ,cmds)) - (terpri) ;; Now that make-abbrev-table is defined, use it. (print `(let ((scratch-abbrev-tables (make-vector ,abbrev-counter 0))) ,@(nreverse abbrev-make-cmds) @@ -673,10 +672,8 @@ lost after dumping"))) ;; (message "Defining charset %S...postponed" ;; cs) (push cs css))))))) - (terpri) (print `(dolist (cs ',charset-aliases) (define-charset-alias (car cs) (cdr cs)))) - (terpri) (print `(let ((css ',coding-systems)) (dotimes (i 3) (dolist (cs (prog1 css (setq css nil))) @@ -695,21 +692,20 @@ lost after dumping"))) (print `(dolist (f ',faces) (face-spec-set f (get f 'face-defface-spec) 'face-defface-spec))) - (terpri) + ;; This creates some rather large data structures that are + ;; more quickly reconstructed than read from the dumped + ;; Lisp state. (print '(load "international/characters" nil t)) ;; This sets advice on a subr, so cannot be preloaded. - (print '(load "uniquify")) - (terpri) + (print '(load "uniquify" nil t)) ;; 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) (print `(progn ;; (message "Done preloading!") ;; (message "custom-delayed-init-variables = %S" @@ -719,8 +715,7 @@ lost after dumping"))) (use-global-map global-map) (eval top-level) ;; (message "top-level done!?") - )) - (terpri)) + ))) (goto-char (point-min)) (while (re-search-forward " (\\(defvar\\|setplist\\|fset\\) " nil t) (goto-char (match-beginning 0)) -- 2.39.5