changeset 30921:4f501e4f7a43

(command-line): Pop to *Messages* in case an error is signaled while loading user-init-file.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 17 Aug 2000 15:37:07 +0000
parents 67bba5cea7bf
children 6c3081f54e62
files lisp/startup.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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.