Mercurial > emacs
changeset 49897:99cc7aecbbec
(command-line): Clarify and tidy up the message
printed when there are errors in the user-init-file.
Do not encapsulate the error data; it's read by humans here.
Do not split windows when displaying the *Message* buffer.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 21 Feb 2003 12:43:31 +0000 |
| parents | 28d840845e33 |
| children | 53baa12e5cee |
| files | lisp/startup.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Fri Feb 21 08:08:03 2003 +0000 +++ b/lisp/startup.el Fri Feb 21 12:43:31 2003 +0000 @@ -982,17 +982,17 @@ (format "%s%s%s" (get (car error) 'error-message) (if (cdr error) ": " "") - (mapconcat 'prin1-to-string (cdr error) ", ")) + (mapconcat (lambda (s) (prin1-to-string s t)) (cdr error) ", ")) "\n\n" - "To ensure normal operation, you should investigate the cause\n" - "of the error in your initialization file and remove it. Start\n" - "Emacs with the `--debug-init' option to view a complete error\n" - "backtrace\n")) + "To ensure normal operation, you should investigate and remove the\n" + "cause of the error in your initialization file. Start Emacs with\n" + "the `--debug-init' option to view a complete error backtrace.\n\n")) (message "Error in init file: %s%s%s" (get (car error) 'error-message) (if (cdr error) ": " "") (mapconcat 'prin1-to-string (cdr error) ", ")) - (pop-to-buffer "*Messages*") + (let ((pop-up-windows nil)) + (pop-to-buffer "*Messages*")) (setq init-file-had-error t))))) ;; If the user has a file of abbrevs, read it.