932 |
(sit-for 1)) |
(sit-for 1)) |
933 |
(setq user-init-file source)))) |
(setq user-init-file source)))) |
934 |
|
|
935 |
|
(when (and (stringp custom-file) |
936 |
|
(not (assoc custom-file load-history))) |
937 |
|
;; If the .emacs file has set `custom-file' but hasn't |
938 |
|
;; loaded the file yet, let's load it. |
939 |
|
(load custom-file t t)) |
940 |
|
|
941 |
(or inhibit-default-init |
(or inhibit-default-init |
942 |
(let ((inhibit-startup-message nil)) |
(let ((inhibit-startup-message nil)) |
943 |
;; Users are supposed to be told their rights. |
;; Users are supposed to be told their rights. |
1024 |
|
|
1025 |
;; If *scratch* exists and init file didn't change its mode, initialize it. |
;; If *scratch* exists and init file didn't change its mode, initialize it. |
1026 |
(if (get-buffer "*scratch*") |
(if (get-buffer "*scratch*") |
1027 |
(save-excursion |
(with-current-buffer "*scratch*" |
|
(set-buffer "*scratch*") |
|
1028 |
(if (eq major-mode 'fundamental-mode) |
(if (eq major-mode 'fundamental-mode) |
1029 |
(funcall initial-major-mode)))) |
(funcall initial-major-mode)))) |
1030 |
|
|