Mercurial > emacs

comparison src/emacs.c @ 16488:65c729d461c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(main): Clear out *Messages* before init_callproc.
author Richard M. Stallman <rms@gnu.org>
date Thu, 31 Oct 1996 17:58:56 +0000
parents e7e295c6add2
children 12915fed5a02
comparison
equal deleted inserted replaced
16487:8e154ff6d4bf 16488:65c729d461c3
860 860
861 init_buffer (); /* Init default directory of main buffer */ 861 init_buffer (); /* Init default directory of main buffer */
862 862
863 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */ 863 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
864 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */ 864 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
865
866 if (initialized)
867 {
868 /* Erase any pre-dump messages in the message log, to avoid confusion */
869 Lisp_Object old_log_max;
870 old_log_max = Vmessage_log_max;
871 XSETFASTINT (Vmessage_log_max, 0);
872 message_dolog ("", 0, 1);
873 Vmessage_log_max = old_log_max;
874 }
875
865 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */ 876 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
866 init_lread (); 877 init_lread ();
867 878
868 if (!noninteractive) 879 if (!noninteractive)
869 { 880 {
1008 #endif /* CANNOT_DUMP */ 1019 #endif /* CANNOT_DUMP */
1009 } 1020 }
1010 1021
1011 if (initialized) 1022 if (initialized)
1012 { 1023 {
1013 /* Erase any pre-dump messages in the message log, to avoid confusion */
1014 Lisp_Object old_log_max;
1015 old_log_max = Vmessage_log_max;
1016 XSETFASTINT (Vmessage_log_max, 0);
1017 message_dolog ("", 0, 1);
1018 Vmessage_log_max = old_log_max;
1019
1020 #ifdef HAVE_TZSET 1024 #ifdef HAVE_TZSET
1021 { 1025 {
1022 /* If the execution TZ happens to be the same as the dump TZ, 1026 /* If the execution TZ happens to be the same as the dump TZ,
1023 change it to some other value and then change it back, 1027 change it to some other value and then change it back,
1024 to force the underlying implementation to reload the TZ info. 1028 to force the underlying implementation to reload the TZ info.