# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 966526627 0
# Node ID 4f501e4f7a430aa98ff396fd90f393ccd16573a4
# Parent  67bba5cea7bfc76110bedcd7a16d7fab526bf298
(command-line): Pop to *Messages* in case an error
is signaled while loading user-init-file.

diff -r 67bba5cea7bf -r 4f501e4f7a43 lisp/startup.el
--- a/lisp/startup.el	Thu Aug 17 15:36:54 2000 +0000
+++ b/lisp/startup.el	Thu Aug 17 15:37:07 2000 +0000
@@ -735,6 +735,7 @@
 			  (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.