From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 17 Aug 2000 15:37:07 +0000 (+0000)
Subject: (command-line): Pop to *Messages* in case an error
X-Git-Tag: emacs-pretest-21.0.90~2203
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aff3bff87b8f7c4a6a25378084269f4318ef240c;p=emacs.git

(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 08082ed31cf..bd2b8a6d22e 100644
--- 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.