953 |
|
|
954 |
(run-hooks 'after-init-hook) |
(run-hooks 'after-init-hook) |
955 |
|
|
956 |
|
;; Decode all buffer names. |
957 |
|
(if (and default-enable-multibyte-characters locale-coding-system) |
958 |
|
(save-excursion |
959 |
|
(dolist (elt (buffer-list)) |
960 |
|
(set-buffer elt) |
961 |
|
(if default-directory |
962 |
|
(setq default-directory |
963 |
|
(decode-coding-string default-directory |
964 |
|
locale-coding-system t)))) |
965 |
|
(setq command-line-default-directory |
966 |
|
(decode-coding-string command-line-default-directory |
967 |
|
locale-coding-system t)))) |
968 |
|
|
969 |
;; 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. |
970 |
(if (get-buffer "*scratch*") |
(if (get-buffer "*scratch*") |
971 |
(with-current-buffer "*scratch*" |
(with-current-buffer "*scratch*" |