(command-line): Pop to *Messages* in case an error

is signaled while loading user-init-file.

diff --git a/lisp/startup.el b/lisp/startup.el
index 08082ed31cffb55a9eda261976e1dd763e2800e5..bd2b8a6d22e91f536baff89174913cc3ab673d13 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -735,6 +735,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
                          (get (car error) 'error-message)
                          (if (cdr error) ": " "")
                          (mapconcat 'prin1-to-string (cdr error) ", "))
+                (pop-to-buffer "*Messages*")
                 (setq init-file-had-error t))))
       ;; If we can tell that the init file altered debug-on-error,
       ;; arrange to preserve the value that it set up.