(main): Clear out *Messages* before init_callproc.

This commit is contained in:
Richard M. Stallman 1996-10-31 17:58:56 +00:00
parent 85496b8cb5
commit 380e25b8ff

View file

@ -862,6 +862,17 @@ the Bugs section of the Emacs manual or the file BUGS.", argv[0]);
init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
if (initialized)
{
/* Erase any pre-dump messages in the message log, to avoid confusion */
Lisp_Object old_log_max;
old_log_max = Vmessage_log_max;
XSETFASTINT (Vmessage_log_max, 0);
message_dolog ("", 0, 1);
Vmessage_log_max = old_log_max;
}
init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
init_lread ();
@ -1010,13 +1021,6 @@ the Bugs section of the Emacs manual or the file BUGS.", argv[0]);
if (initialized)
{
/* Erase any pre-dump messages in the message log, to avoid confusion */
Lisp_Object old_log_max;
old_log_max = Vmessage_log_max;
XSETFASTINT (Vmessage_log_max, 0);
message_dolog ("", 0, 1);
Vmessage_log_max = old_log_max;
#ifdef HAVE_TZSET
{
/* If the execution TZ happens to be the same as the dump TZ,