Mercurial > emacs
comparison lisp/startup.el @ 30921:4f501e4f7a43
(command-line): Pop to *Messages* in case an error
is signaled while loading user-init-file.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 17 Aug 2000 15:37:07 +0000 |
| parents | 429c384fc024 |
| children | dd71356a722a |
comparison
equal
deleted
inserted
replaced
| 30920:67bba5cea7bf | 30921:4f501e4f7a43 |
|---|---|
| 733 (setq init-file-had-error nil)) | 733 (setq init-file-had-error nil)) |
| 734 (error (message "Error in init file: %s%s%s" | 734 (error (message "Error in init file: %s%s%s" |
| 735 (get (car error) 'error-message) | 735 (get (car error) 'error-message) |
| 736 (if (cdr error) ": " "") | 736 (if (cdr error) ": " "") |
| 737 (mapconcat 'prin1-to-string (cdr error) ", ")) | 737 (mapconcat 'prin1-to-string (cdr error) ", ")) |
| 738 (pop-to-buffer "*Messages*") | |
| 738 (setq init-file-had-error t)))) | 739 (setq init-file-had-error t)))) |
| 739 ;; If we can tell that the init file altered debug-on-error, | 740 ;; If we can tell that the init file altered debug-on-error, |
| 740 ;; arrange to preserve the value that it set up. | 741 ;; arrange to preserve the value that it set up. |
| 741 (or (eq debug-on-error debug-on-error-initial) | 742 (or (eq debug-on-error debug-on-error-initial) |
| 742 (setq debug-on-error-should-be-set t | 743 (setq debug-on-error-should-be-set t |