949 |
(mapconcat 'prin1-to-string (cdr error) ", ")) |
(mapconcat 'prin1-to-string (cdr error) ", ")) |
950 |
(pop-to-buffer "*Messages*") |
(pop-to-buffer "*Messages*") |
951 |
(setq init-file-had-error t))))) |
(setq init-file-had-error t))))) |
952 |
|
|
953 |
|
;; If the user has a file of abbrevs, read it. |
954 |
|
(if (file-exists-p abbrev-file-name) |
955 |
|
(quietly-read-abbrev-file abbrev-file-name)) |
956 |
|
|
957 |
;; If we can tell that the init file altered debug-on-error, |
;; If we can tell that the init file altered debug-on-error, |
958 |
;; arrange to preserve the value that it set up. |
;; arrange to preserve the value that it set up. |
959 |
(or (eq debug-on-error debug-on-error-initial) |
(or (eq debug-on-error debug-on-error-initial) |