# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1045831411 0
# Node ID 99cc7aecbbec96596765cb58474a61411ab191cf
# Parent  28d840845e3332c9a30b455c0f2dd5a3139377d6
(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.

diff -r 28d840845e33 -r 99cc7aecbbec lisp/startup.el
--- 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.