From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 31 Oct 1996 17:58:56 +0000 (+0000)
Subject: (main): Clear out *Messages* before init_callproc.
X-Git-Tag: emacs-20.1~3456
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=380e25b8ff3b90f5e532641c5c3f891eed6e00f0;p=emacs.git

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

diff --git a/src/emacs.c b/src/emacs.c
index 2bb7ff2038b..c395facaa8b 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -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,