From f5b6cffdd7fc800a6aa288896a9242031d75fff1 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 21 Feb 2003 12:43:31 +0000 Subject: [PATCH] (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. --- lisp/startup.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index fcc69704d4..e0fb840c16 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -982,17 +982,17 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (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. -- 2.39.2