Mercurial > emacs
comparison src/emacs.c @ 7869:3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Jun 1994 20:41:00 +0000 |
| parents | ddcb81020fa1 |
| children | ec7ec0e35e5e |
comparison
equal
deleted
inserted
replaced
| 7868:4951edd1b764 | 7869:3b27d2451f83 |
|---|---|
| 126 /* Value of Lisp variable `noninteractive'. | 126 /* Value of Lisp variable `noninteractive'. |
| 127 Normally same as C variable `noninteractive' | 127 Normally same as C variable `noninteractive' |
| 128 but nothing terrible happens if user sets this one. */ | 128 but nothing terrible happens if user sets this one. */ |
| 129 | 129 |
| 130 int noninteractive1; | 130 int noninteractive1; |
| 131 | |
| 132 /* Save argv and argc. */ | |
| 133 char **initial_argv; | |
| 134 int initial_argc; | |
| 131 | 135 |
| 132 /* Signal code for the fatal signal that was received */ | 136 /* Signal code for the fatal signal that was received */ |
| 133 int fatal_error_code; | 137 int fatal_error_code; |
| 134 | 138 |
| 135 /* Nonzero if handling a fatal error already */ | 139 /* Nonzero if handling a fatal error already */ |
| 189 char **argv; | 193 char **argv; |
| 190 int skip_args; | 194 int skip_args; |
| 191 { | 195 { |
| 192 register int i; | 196 register int i; |
| 193 Lisp_Object name, dir; | 197 Lisp_Object name, dir; |
| 198 | |
| 199 initial_argv = argv; | |
| 200 initial_argc = argc; | |
| 194 | 201 |
| 195 Vinvocation_name = Ffile_name_nondirectory (build_string (argv[0])); | 202 Vinvocation_name = Ffile_name_nondirectory (build_string (argv[0])); |
| 196 Vinvocation_directory = Ffile_name_directory (build_string (argv[0])); | 203 Vinvocation_directory = Ffile_name_directory (build_string (argv[0])); |
| 197 /* If we got no directory in argv[0], search PATH to find where | 204 /* If we got no directory in argv[0], search PATH to find where |
| 198 Emacs actually came from. */ | 205 Emacs actually came from. */ |