# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 846784736 0
# Node ID 65c729d461c382fbe2d1b8b08cecd69e4d3d92d6
# Parent  8e154ff6d4bf9fbfcff2d9f8c4c05863655a47a2
(main): Clear out *Messages* before init_callproc.

diff -r 8e154ff6d4bf -r 65c729d461c3 src/emacs.c
--- a/src/emacs.c	Thu Oct 31 17:58:01 1996 +0000
+++ b/src/emacs.c	Thu Oct 31 17:58:56 1996 +0000
@@ -862,6 +862,17 @@
 
   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 @@
 
   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,