From: Richard M. Stallman Date: Wed, 6 May 1998 20:44:38 +0000 (+0000) Subject: (main): Call the syms_of_... and keys_of_... functions X-Git-Tag: emacs-20.3~1115 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8bb697c0d6306b1a9c6e3b5864540c9629bfee2b;p=emacs.git (main): Call the syms_of_... and keys_of_... functions earlier, before init_vms_input and init_display. --- diff --git a/src/emacs.c b/src/emacs.c index d0fed40077e..0a0f73a9842 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -1076,30 +1076,8 @@ the Bugs section of the Emacs manual or the file BUGS.\n", argv[0]); init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */ init_lread (); - if (!noninteractive) - { -#ifdef VMS - init_vms_input ();/* init_display calls get_frame_size, that needs this */ -#endif /* VMS */ - init_display (); /* Determine terminal type. init_sys_modes uses results */ - } - init_keyboard (); /* This too must precede init_sys_modes */ -#ifdef VMS - init_vmsproc (); /* And this too. */ -#endif /* VMS */ - init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */ - init_xdisp (); - init_macros (); - init_editfns (); -#ifdef LISP_FLOAT_TYPE - init_floatfns (); -#endif -#ifdef VMS - init_vmsfns (); -#endif /* VMS */ - init_process (); - -/* Intern the names of all standard functions and variables; define standard keys */ + /* Intern the names of all standard functions and variables; + define standard keys. */ if (!initialized) { @@ -1203,6 +1181,29 @@ the Bugs section of the Emacs manual or the file BUGS.\n", argv[0]); keys_of_frame (); } + if (!noninteractive) + { +#ifdef VMS + init_vms_input ();/* init_display calls get_frame_size, that needs this */ +#endif /* VMS */ + init_display (); /* Determine terminal type. init_sys_modes uses results */ + } + init_keyboard (); /* This too must precede init_sys_modes */ +#ifdef VMS + init_vmsproc (); /* And this too. */ +#endif /* VMS */ + init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */ + init_xdisp (); + init_macros (); + init_editfns (); +#ifdef LISP_FLOAT_TYPE + init_floatfns (); +#endif +#ifdef VMS + init_vmsfns (); +#endif /* VMS */ + init_process (); + if (!initialized) { char *file;