871 |
(sit-for 1)) |
(sit-for 1)) |
872 |
(setq user-init-file source)))) |
(setq user-init-file source)))) |
873 |
|
|
|
(when (stringp custom-file) |
|
|
(unless (assoc custom-file load-history) |
|
|
;; If the .emacs file has set `custom-file' but hasn't |
|
|
;; loaded the file yet, let's load it. |
|
|
(load custom-file t t))) |
|
|
|
|
874 |
(unless inhibit-default-init |
(unless inhibit-default-init |
875 |
(let ((inhibit-startup-message nil)) |
(let ((inhibit-startup-message nil)) |
876 |
;; Users are supposed to be told their rights. |
;; Users are supposed to be told their rights. |