diff options
author | Gerd Moellmann <[email protected]> | 2000-08-17 15:37:07 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2000-08-17 15:37:07 +0000 |
commit | aff3bff87b8f7c4a6a25378084269f4318ef240c (patch) | |
tree | b76029b363735b6e28dc5c993819de8f5d00b204 /lisp/startup.el | |
parent | f0753a5f45466cf891aae79dabe1df33ca1530fb (diff) |
(command-line): Pop to *Messages* in case an error
is signaled while loading user-init-file.
Diffstat (limited to 'lisp/startup.el')
-rw-r--r-- | lisp/startup.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 08082ed31c..bd2b8a6d22 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. |