982 |
(format "%s%s%s" |
(format "%s%s%s" |
983 |
(get (car error) 'error-message) |
(get (car error) 'error-message) |
984 |
(if (cdr error) ": " "") |
(if (cdr error) ": " "") |
985 |
(mapconcat 'prin1-to-string (cdr error) ", ")) |
(mapconcat (lambda (s) (prin1-to-string s t)) (cdr error) ", ")) |
986 |
"\n\n" |
"\n\n" |
987 |
"To ensure normal operation, you should investigate the cause\n" |
"To ensure normal operation, you should investigate and remove the\n" |
988 |
"of the error in your initialization file and remove it. Start\n" |
"cause of the error in your initialization file. Start Emacs with\n" |
989 |
"Emacs with the `--debug-init' option to view a complete error\n" |
"the `--debug-init' option to view a complete error backtrace.\n\n")) |
|
"backtrace\n")) |
|
990 |
(message "Error in init file: %s%s%s" |
(message "Error in init file: %s%s%s" |
991 |
(get (car error) 'error-message) |
(get (car error) 'error-message) |
992 |
(if (cdr error) ": " "") |
(if (cdr error) ": " "") |
993 |
(mapconcat 'prin1-to-string (cdr error) ", ")) |
(mapconcat 'prin1-to-string (cdr error) ", ")) |
994 |
(pop-to-buffer "*Messages*") |
(let ((pop-up-windows nil)) |
995 |
|
(pop-to-buffer "*Messages*")) |
996 |
(setq init-file-had-error t))))) |
(setq init-file-had-error t))))) |
997 |
|
|
998 |
;; If the user has a file of abbrevs, read it. |
;; If the user has a file of abbrevs, read it. |