*** empty log message ***
[emacs.git] / src / emacs.c
blob00812cfbbbacaf27994ffae1cf25c7c5dc3101c9
1 /* Fully extensible Emacs, running on Unix, intended for GNU.
2 Copyright (C) 1985,86,87,93,94,95,97,98,1999,2001
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
10 any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
23 #include <config.h>
24 #include <signal.h>
25 #include <errno.h>
26 #include <stdio.h>
28 #include <sys/types.h>
29 #include <sys/file.h>
31 #ifdef VMS
32 #include <ssdef.h>
33 #endif
35 #ifdef HAVE_UNISTD_H
36 #include <unistd.h>
37 #endif
39 #ifdef BSD_SYSTEM
40 #include <sys/ioctl.h>
41 #endif
43 #include "lisp.h"
44 #include "commands.h"
45 #include "intervals.h"
46 #include "buffer.h"
48 #include "systty.h"
49 #include "blockinput.h"
50 #include "syssignal.h"
51 #include "process.h"
52 #include "termhooks.h"
53 #include "keyboard.h"
55 #ifdef HAVE_SETLOCALE
56 #include <locale.h>
57 #endif
59 #ifdef HAVE_SETRLIMIT
60 #include <sys/time.h>
61 #include <sys/resource.h>
62 #endif
64 #ifndef O_RDWR
65 #define O_RDWR 2
66 #endif
68 #ifdef HAVE_SETPGID
69 #if !defined (USG) || defined (BSD_PGRPS)
70 #undef setpgrp
71 #define setpgrp setpgid
72 #endif
73 #endif
75 extern void malloc_warning P_ ((char *));
76 extern void set_time_zone_rule P_ ((char *));
77 #ifdef HAVE_INDEX
78 extern char *index P_ ((const char *, int));
79 #endif
81 /* Make these values available in GDB, which doesn't see macros. */
83 EMACS_INT gdb_valbits = VALBITS;
84 EMACS_INT gdb_gctypebits = GCTYPEBITS;
85 EMACS_INT gdb_emacs_intbits = sizeof (EMACS_INT) * BITS_PER_CHAR;
86 #ifdef DATA_SEG_BITS
87 EMACS_INT gdb_data_seg_bits = DATA_SEG_BITS;
88 #else
89 EMACS_INT gdb_data_seg_bits = 0;
90 #endif
91 EMACS_INT PVEC_FLAG = PSEUDOVECTOR_FLAG;
93 /* Command line args from shell, as list of strings */
94 Lisp_Object Vcommand_line_args;
96 /* The name under which Emacs was invoked, with any leading directory
97 names discarded. */
98 Lisp_Object Vinvocation_name;
100 /* The directory name from which Emacs was invoked. */
101 Lisp_Object Vinvocation_directory;
103 /* The directory name in which to find subdirs such as lisp and etc.
104 nil means get them only from PATH_LOADSEARCH. */
105 Lisp_Object Vinstallation_directory;
107 /* Hook run by `kill-emacs' before it does really anything. */
108 Lisp_Object Vkill_emacs_hook;
110 #ifdef SIGUSR1
111 /* Hooks for signal USR1 and USR2 handing */
112 Lisp_Object Vsignal_USR1_hook;
113 #ifdef SIGUSR2
114 Lisp_Object Vsignal_USR2_hook;
115 #endif
116 #endif
118 /* Search path separator. */
119 Lisp_Object Vpath_separator;
121 /* Set nonzero after Emacs has started up the first time.
122 Prevents reinitialization of the Lisp world and keymaps
123 on subsequent starts. */
124 int initialized;
126 #ifdef DOUG_LEA_MALLOC
127 /* Preserves a pointer to the memory allocated that copies that
128 static data inside glibc's malloc. */
129 void *malloc_state_ptr;
130 /* From glibc, a routine that returns a copy of the malloc internal state. */
131 extern void *malloc_get_state ();
132 /* From glibc, a routine that overwrites the malloc internal state. */
133 extern void malloc_set_state ();
134 /* Non-zero if the MALLOC_CHECK_ enviroment variable was set while
135 dumping. Used to work around a bug in glibc's malloc. */
136 int malloc_using_checking;
137 #endif
139 /* Variable whose value is symbol giving operating system type. */
140 Lisp_Object Vsystem_type;
142 /* Variable whose value is string giving configuration built for. */
143 Lisp_Object Vsystem_configuration;
145 /* Variable whose value is string giving configuration options,
146 for use when reporting bugs. */
147 Lisp_Object Vsystem_configuration_options;
149 Lisp_Object Qfile_name_handler_alist;
151 /* Current and previous system locales for messages and time. */
152 Lisp_Object Vsystem_messages_locale;
153 Lisp_Object Vprevious_system_messages_locale;
154 Lisp_Object Vsystem_time_locale;
155 Lisp_Object Vprevious_system_time_locale;
157 /* If non-zero, emacs should not attempt to use an window-specific code,
158 but instead should use the virtual terminal under which it was started */
159 int inhibit_window_system;
161 /* If nonzero, set Emacs to run at this priority. This is also used
162 in child_setup and sys_suspend to make sure subshells run at normal
163 priority; Those functions have their own extern declaration. */
164 int emacs_priority;
166 /* If non-zero a filter or a sentinel is running. Tested to save the match
167 data on the first attempt to change it inside asynchronous code. */
168 int running_asynch_code;
170 #ifdef BSD_PGRPS
171 /* See sysdep.c. */
172 extern int inherited_pgroup;
173 #endif
175 #ifdef HAVE_X_WINDOWS
176 /* If non-zero, -d was specified, meaning we're using some window system. */
177 int display_arg;
178 #endif
180 /* An address near the bottom of the stack.
181 Tells GC how to save a copy of the stack. */
182 char *stack_bottom;
184 #ifdef HAVE_WINDOW_SYSTEM
185 extern Lisp_Object Vwindow_system;
186 #endif /* HAVE_WINDOW_SYSTEM */
188 extern Lisp_Object Vauto_save_list_file_name;
190 #ifdef USG_SHARED_LIBRARIES
191 /* If nonzero, this is the place to put the end of the writable segment
192 at startup. */
194 unsigned int bss_end = 0;
195 #endif
197 /* Nonzero means running Emacs without interactive terminal. */
199 int noninteractive;
201 /* Value of Lisp variable `noninteractive'.
202 Normally same as C variable `noninteractive'
203 but nothing terrible happens if user sets this one. */
205 int noninteractive1;
207 /* Save argv and argc. */
208 char **initial_argv;
209 int initial_argc;
211 static void sort_args ();
212 void syms_of_emacs ();
214 #define USAGE1 "\
215 Usage: %s [OPTION-OR-FILENAME]...\n\
217 Run Emacs, the extensible, customizable, self-documenting real-time\n\
218 display editor. The recommended way to start Emacs for normal editing\n\
219 is with no options at all.\n\
221 Run M-x info RET m emacs RET m command arguments RET inside Emacs to\n\
222 read the main documentation for these command-line arguments.\n\
224 Initialization options:\n\
226 --batch do not do interactive display; implies -q\n\
227 --debug-init enable Emacs Lisp debugger during init file\n\
228 --help display this help message and exit\n\
229 --multibyte, --no-unibyte run Emacs in multibyte mode\n\
230 --no-init-file, -q load neither ~/.emacs nor default.el\n\
231 --no-shared-memory, -nl do not use shared memory\n\
232 --no-site-file do not load site-start.el\n\
233 --no-windows, -nw don't communicate with X, ignoring $DISPLAY\n\
234 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
235 --unibyte, --no-multibyte run Emacs in unibyte mode\n\
236 --user, -u USER load ~USER/.emacs instead of your own\n\
237 --version display version information and exit\n\
239 Action options:\n\
241 FILE visit FILE using find-file\n\
242 +LINENUM FILE visit FILE using find-file, then go to line LINENUM\n\
243 --directory, -L DIR add DIR to variable load-path\n\
244 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
245 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
246 --find-file FILE visit FILE\n\
247 --funcall, -f FUNC call Emacs function FUNC with no arguments\n\
248 --insert FILE insert contents of FILE into current buffer\n\
249 --kill exit without asking for confirmation\n\
250 --load, -l FILE load FILE of Emacs Lisp code using the load function\n\
251 --visit FILE visit FILE\n\
254 #define USAGE2 "\
255 Display options:\n\
257 --background-color, -bg COLOR window background color\n\
258 --border-color, -bd COLOR main border color\n\
259 --border-width, -bw WIDTH width of main border\n\
260 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
261 --display, -d DISPLAY use X server DISPLAY\n\
262 --font, -fn FONT default font; must be fixed-widthp\n\
263 --foreground-color, -fg COLOR window foreground color\n\
264 --geometry, -g GEOMETRY window geometry\n\
265 --iconic start Emacs in iconified state\n\
266 --icon-type, -i use picture of gnu for Emacs icon\n\
267 --internal-border, -ib WIDTH width between text and main border\n\
268 --line-spacing, -lsp PIXELS additional space to put between lines\n\
269 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
270 --name NAME title of main Emacs window\n\
271 --reverse-video, -r, -rv switch foreground and background\n\
272 --title, -T, -wn, TITLE title for Emacs windows\n\
273 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
274 --xrm XRESOURCES set additional X resources\n\
276 You can generally also specify long option names with a single -; for\n\
277 example, -batch as well as --batch. You can use any unambiguous\n\
278 abbreviation for a --option.\n\
280 Various environment variables and window system resources also affect\n\
281 Emacs' operation. See the main documentation.\n\
283 Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs\n\
284 section of the Emacs manual or the file BUGS.\n"
287 /* Signal code for the fatal signal that was received */
288 int fatal_error_code;
290 /* Nonzero if handling a fatal error already */
291 int fatal_error_in_progress;
293 #ifdef SIGUSR1
294 SIGTYPE
295 handle_USR1_signal (sig)
296 int sig;
298 struct input_event buf;
300 bzero (&buf, sizeof buf);
301 buf.kind = USER_SIGNAL_EVENT;
302 buf.frame_or_window = selected_frame;
304 kbd_buffer_store_event (&buf);
306 #endif /* SIGUSR1 */
308 #ifdef SIGUSR2
309 SIGTYPE
310 handle_USR2_signal (sig)
311 int sig;
313 struct input_event buf;
315 bzero (&buf, sizeof buf);
316 buf.kind = USER_SIGNAL_EVENT;
317 buf.code = 1;
318 buf.frame_or_window = selected_frame;
320 kbd_buffer_store_event (&buf);
322 #endif /* SIGUSR2 */
324 /* Handle bus errors, invalid instruction, etc. */
325 SIGTYPE
326 fatal_error_signal (sig)
327 int sig;
329 fatal_error_code = sig;
330 signal (sig, SIG_DFL);
332 TOTALLY_UNBLOCK_INPUT;
334 /* If fatal error occurs in code below, avoid infinite recursion. */
335 if (! fatal_error_in_progress)
337 fatal_error_in_progress = 1;
339 shut_down_emacs (sig, 0, Qnil);
342 #ifdef VMS
343 LIB$STOP (SS$_ABORT);
344 #else
345 /* Signal the same code; this time it will really be fatal.
346 Remember that since we're in a signal handler, the signal we're
347 going to send is probably blocked, so we have to unblock it if we
348 want to really receive it. */
349 #ifndef MSDOS
350 sigunblock (sigmask (fatal_error_code));
351 #endif
352 kill (getpid (), fatal_error_code);
353 #endif /* not VMS */
356 #ifdef SIGDANGER
358 /* Handler for SIGDANGER. */
359 SIGTYPE
360 memory_warning_signal (sig)
361 int sig;
363 signal (sig, memory_warning_signal);
365 malloc_warning ("Operating system warns that virtual memory is running low.\n");
367 /* It might be unsafe to call do_auto_save now. */
368 force_auto_save_soon ();
370 #endif
372 /* We define abort, rather than using it from the library,
373 so that GDB can return from a breakpoint here.
374 MSDOS has its own definition on msdos.c */
376 #if ! defined (DOS_NT) && ! defined (NO_ABORT)
378 #ifndef ABORT_RETURN_TYPE
379 #define ABORT_RETURN_TYPE void
380 #endif
382 ABORT_RETURN_TYPE
383 abort ()
385 kill (getpid (), SIGABRT);
386 /* This shouldn't be executed, but it prevents a warning. */
387 exit (1);
389 #endif
392 /* Code for dealing with Lisp access to the Unix command line */
394 static void
395 init_cmdargs (argc, argv, skip_args)
396 int argc;
397 char **argv;
398 int skip_args;
400 register int i;
401 Lisp_Object name, dir, tem;
402 int count = specpdl_ptr - specpdl;
403 Lisp_Object raw_name;
405 initial_argv = argv;
406 initial_argc = argc;
408 raw_name = build_string (argv[0]);
410 /* Add /: to the front of the name
411 if it would otherwise be treated as magic. */
412 tem = Ffind_file_name_handler (raw_name, Qt);
413 if (! NILP (tem))
414 raw_name = concat2 (build_string ("/:"), raw_name);
416 Vinvocation_name = Ffile_name_nondirectory (raw_name);
417 Vinvocation_directory = Ffile_name_directory (raw_name);
419 /* If we got no directory in argv[0], search PATH to find where
420 Emacs actually came from. */
421 if (NILP (Vinvocation_directory))
423 Lisp_Object found;
424 int yes = openp (Vexec_path, Vinvocation_name,
425 EXEC_SUFFIXES, &found, 1);
426 if (yes == 1)
428 /* Add /: to the front of the name
429 if it would otherwise be treated as magic. */
430 tem = Ffind_file_name_handler (found, Qt);
431 if (! NILP (tem))
432 found = concat2 (build_string ("/:"), found);
433 Vinvocation_directory = Ffile_name_directory (found);
437 if (!NILP (Vinvocation_directory)
438 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
439 /* Emacs was started with relative path, like ./emacs.
440 Make it absolute. */
441 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil);
443 Vinstallation_directory = Qnil;
445 if (!NILP (Vinvocation_directory))
447 dir = Vinvocation_directory;
448 name = Fexpand_file_name (Vinvocation_name, dir);
449 while (1)
451 Lisp_Object tem, lib_src_exists;
452 Lisp_Object etc_exists, info_exists;
454 /* See if dir contains subdirs for use by Emacs.
455 Check for the ones that would exist in a build directory,
456 not including lisp and info. */
457 tem = Fexpand_file_name (build_string ("lib-src"), dir);
458 lib_src_exists = Ffile_exists_p (tem);
460 #ifdef MSDOS
461 /* MSDOS installations frequently remove lib-src, but we still
462 must set installation-directory, or else info won't find
463 its files (it uses the value of installation-directory). */
464 tem = Fexpand_file_name (build_string ("info"), dir);
465 info_exists = Ffile_exists_p (tem);
466 #else
467 info_exists = Qnil;
468 #endif
470 if (!NILP (lib_src_exists) || !NILP (info_exists))
472 tem = Fexpand_file_name (build_string ("etc"), dir);
473 etc_exists = Ffile_exists_p (tem);
474 if (!NILP (etc_exists))
476 Vinstallation_directory
477 = Ffile_name_as_directory (dir);
478 break;
482 /* See if dir's parent contains those subdirs. */
483 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
484 lib_src_exists = Ffile_exists_p (tem);
487 #ifdef MSDOS
488 /* See the MSDOS commentary above. */
489 tem = Fexpand_file_name (build_string ("../info"), dir);
490 info_exists = Ffile_exists_p (tem);
491 #else
492 info_exists = Qnil;
493 #endif
495 if (!NILP (lib_src_exists) || !NILP (info_exists))
497 tem = Fexpand_file_name (build_string ("../etc"), dir);
498 etc_exists = Ffile_exists_p (tem);
499 if (!NILP (etc_exists))
501 tem = Fexpand_file_name (build_string (".."), dir);
502 Vinstallation_directory
503 = Ffile_name_as_directory (tem);
504 break;
508 /* If the Emacs executable is actually a link,
509 next try the dir that the link points into. */
510 tem = Ffile_symlink_p (name);
511 if (!NILP (tem))
513 name = Fexpand_file_name (tem, dir);
514 dir = Ffile_name_directory (name);
516 else
517 break;
521 Vcommand_line_args = Qnil;
523 for (i = argc - 1; i >= 0; i--)
525 if (i == 0 || i > skip_args)
526 Vcommand_line_args
527 = Fcons (build_string (argv[i]), Vcommand_line_args);
530 unbind_to (count, Qnil);
533 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
534 "Return the program name that was used to run Emacs.\n\
535 Any directory names are omitted.")
538 return Fcopy_sequence (Vinvocation_name);
541 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
542 0, 0, 0,
543 "Return the directory name in which the Emacs executable was located")
546 return Fcopy_sequence (Vinvocation_directory);
550 #ifdef VMS
551 #ifdef LINK_CRTL_SHARE
552 #ifdef SHARABLE_LIB_BUG
553 extern noshare char **environ;
554 #endif /* SHARABLE_LIB_BUG */
555 #endif /* LINK_CRTL_SHARE */
556 #endif /* VMS */
558 #ifdef HAVE_TZSET
559 /* A valid but unlikely value for the TZ environment value.
560 It is OK (though a bit slower) if the user actually chooses this value. */
561 static char dump_tz[] = "UtC0";
562 #endif
564 #ifndef ORDINARY_LINK
565 /* We don't include crtbegin.o and crtend.o in the link,
566 so these functions and variables might be missed.
567 Provide dummy definitions to avoid error.
568 (We don't have any real constructors or destructors.) */
569 #ifdef __GNUC__
570 #ifndef GCC_CTORS_IN_LIBC
571 void __do_global_ctors ()
573 void __do_global_ctors_aux ()
575 void __do_global_dtors ()
577 /* Linux has a bug in its library; avoid an error. */
578 #ifndef LINUX
579 char * __CTOR_LIST__[2] = { (char *) (-1), 0 };
580 #endif
581 char * __DTOR_LIST__[2] = { (char *) (-1), 0 };
582 #endif /* GCC_CTORS_IN_LIBC */
583 void __main ()
585 #endif /* __GNUC__ */
586 #endif /* ORDINARY_LINK */
588 /* Test whether the next argument in ARGV matches SSTR or a prefix of
589 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
590 (the argument is supposed to have a value) store in *VALPTR either
591 the next argument or the portion of this one after the equal sign.
592 ARGV is read starting at position *SKIPPTR; this index is advanced
593 by the number of arguments used.
595 Too bad we can't just use getopt for all of this, but we don't have
596 enough information to do it right. */
598 static int
599 argmatch (argv, argc, sstr, lstr, minlen, valptr, skipptr)
600 char **argv;
601 int argc;
602 char *sstr;
603 char *lstr;
604 int minlen;
605 char **valptr;
606 int *skipptr;
608 char *p = NULL;
609 int arglen;
610 char *arg;
612 /* Don't access argv[argc]; give up in advance. */
613 if (argc <= *skipptr + 1)
614 return 0;
616 arg = argv[*skipptr+1];
617 if (arg == NULL)
618 return 0;
619 if (strcmp (arg, sstr) == 0)
621 if (valptr != NULL)
623 *valptr = argv[*skipptr+2];
624 *skipptr += 2;
626 else
627 *skipptr += 1;
628 return 1;
630 arglen = (valptr != NULL && (p = index (arg, '=')) != NULL
631 ? p - arg : strlen (arg));
632 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
633 return 0;
634 else if (valptr == NULL)
636 *skipptr += 1;
637 return 1;
639 else if (p != NULL)
641 *valptr = p+1;
642 *skipptr += 1;
643 return 1;
645 else if (argv[*skipptr+2] != NULL)
647 *valptr = argv[*skipptr+2];
648 *skipptr += 2;
649 return 1;
651 else
653 return 0;
657 #ifdef DOUG_LEA_MALLOC
659 /* malloc can be invoked even before main (e.g. by the dynamic
660 linker), so the dumped malloc state must be restored as early as
661 possible using this special hook. */
663 static void
664 malloc_initialize_hook ()
666 #ifndef USE_CRT_DLL
667 extern char **environ;
668 #endif
670 if (initialized)
672 if (!malloc_using_checking)
673 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
674 ignored if the heap to be restored was constructed without
675 malloc checking. Can't use unsetenv, since that calls malloc. */
677 char **p;
679 for (p = environ; p && *p; p++)
680 if (strncmp (*p, "MALLOC_CHECK_=", 14) == 0)
683 *p = p[1];
684 while (*++p);
685 break;
689 malloc_set_state (malloc_state_ptr);
690 free (malloc_state_ptr);
692 else
693 malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
696 void (*__malloc_initialize_hook) () = malloc_initialize_hook;
698 #endif /* DOUG_LEA_MALLOC */
700 /* ARGSUSED */
702 main (argc, argv, envp)
703 int argc;
704 char **argv;
705 char **envp;
707 #if GC_MARK_STACK
708 Lisp_Object dummy;
709 #endif
710 char stack_bottom_variable;
711 int do_initial_setlocale;
712 int skip_args = 0;
713 #ifndef USE_CRT_DLL
714 extern int errno;
715 extern int sys_nerr;
716 #endif
717 #ifdef HAVE_SETRLIMIT
718 struct rlimit rlim;
719 #endif
720 int no_loadup = 0;
722 #if GC_MARK_STACK
723 extern Lisp_Object *stack_base;
724 stack_base = &dummy;
725 #endif
727 #ifdef LINUX_SBRK_BUG
728 __sbrk (1);
729 #endif
731 #ifdef RUN_TIME_REMAP
732 if (initialized)
733 run_time_remap (argv[0]);
734 #endif
736 sort_args (argc, argv);
737 argc = 0;
738 while (argv[argc]) argc++;
740 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args)
741 /* We don't know the version number unless this is a dumped Emacs.
742 So ignore --version otherwise. */
743 && initialized)
745 Lisp_Object tem;
746 tem = Fsymbol_value (intern ("emacs-version"));
747 if (!STRINGP (tem))
749 fprintf (stderr, "Invalid value of `emacs-version'\n");
750 exit (1);
752 else
754 printf ("GNU Emacs %s\n", XSTRING (tem)->data);
755 printf ("Copyright (C) 2001 Free Software Foundation, Inc.\n");
756 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
757 printf ("You may redistribute copies of Emacs\n");
758 printf ("under the terms of the GNU General Public License.\n");
759 printf ("For more information about these matters, ");
760 printf ("see the file named COPYING.\n");
761 exit (0);
765 /* Map in shared memory, if we are using that. */
766 #ifdef HAVE_SHM
767 if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args))
769 map_in_data (0);
770 /* The shared memory was just restored, which clobbered this. */
771 skip_args = 1;
773 else
775 map_in_data (1);
776 /* The shared memory was just restored, which clobbered this. */
777 skip_args = 0;
779 #endif
781 #ifdef NeXT
783 extern int malloc_cookie;
784 /* This helps out unexnext.c. */
785 if (initialized)
786 if (malloc_jumpstart (malloc_cookie) != 0)
787 printf ("malloc jumpstart failed!\n");
789 #endif /* NeXT */
791 #ifdef VMS
792 /* If -map specified, map the data file in */
794 char *file;
795 if (argmatch (argv, argc, "-map", "--map-data", 3, &mapin_file, &skip_args))
796 mapin_data (file);
799 #ifdef LINK_CRTL_SHARE
800 #ifdef SHARABLE_LIB_BUG
801 /* Bletcherous shared libraries! */
802 if (!stdin)
803 stdin = fdopen (0, "r");
804 if (!stdout)
805 stdout = fdopen (1, "w");
806 if (!stderr)
807 stderr = fdopen (2, "w");
808 if (!environ)
809 environ = envp;
810 #endif /* SHARABLE_LIB_BUG */
811 #endif /* LINK_CRTL_SHARE */
812 #endif /* VMS */
814 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
815 /* Extend the stack space available.
816 Don't do that if dumping, since some systems (e.g. DJGPP)
817 might define a smaller stack limit at that time. */
818 if (1
819 #ifndef CANNOT_DUMP
820 && (!noninteractive || initialized)
821 #endif
822 && !getrlimit (RLIMIT_STACK, &rlim))
824 long newlim;
825 extern int re_max_failures;
826 /* Approximate the amount regex.c needs per unit of re_max_failures. */
827 int ratio = 20 * sizeof (char *);
828 /* Then add 33% to cover the size of the smaller stacks that regex.c
829 successively allocates and discards, on its way to the maximum. */
830 ratio += ratio / 3;
831 /* Add in some extra to cover
832 what we're likely to use for other reasons. */
833 newlim = re_max_failures * ratio + 200000;
834 #ifdef __NetBSD__
835 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
836 stack allocation routine for new process that the allocation
837 fails if stack limit is not on page boundary. So, round up the
838 new limit to page boundary. */
839 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize();
840 #endif
841 if (newlim > rlim.rlim_max)
843 newlim = rlim.rlim_max;
844 /* Don't let regex.c overflow the stack we have. */
845 re_max_failures = (newlim - 200000) / ratio;
847 if (rlim.rlim_cur < newlim)
848 rlim.rlim_cur = newlim;
850 setrlimit (RLIMIT_STACK, &rlim);
852 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
854 /* Record (approximately) where the stack begins. */
855 stack_bottom = &stack_bottom_variable;
857 #ifdef USG_SHARED_LIBRARIES
858 if (bss_end)
859 brk ((void *)bss_end);
860 #endif
862 clearerr (stdin);
864 #ifndef SYSTEM_MALLOC
865 /* Arrange to get warning messages as memory fills up. */
866 memory_warnings (0, malloc_warning);
868 /* Call malloc at least once, to run the initial __malloc_hook.
869 Also call realloc and free for consistency. */
870 free (realloc (malloc (4), 4));
872 /* Arrange to disable interrupt input inside malloc etc. */
873 uninterrupt_malloc ();
874 #endif /* not SYSTEM_MALLOC */
876 #ifdef MSDOS
877 /* We do all file input/output as binary files. When we need to translate
878 newlines, we do that manually. */
879 _fmode = O_BINARY;
881 #if __DJGPP__ >= 2
882 if (!isatty (fileno (stdin)))
883 setmode (fileno (stdin), O_BINARY);
884 if (!isatty (fileno (stdout)))
886 fflush (stdout);
887 setmode (fileno (stdout), O_BINARY);
889 #else /* not __DJGPP__ >= 2 */
890 (stdin)->_flag &= ~_IOTEXT;
891 (stdout)->_flag &= ~_IOTEXT;
892 (stderr)->_flag &= ~_IOTEXT;
893 #endif /* not __DJGPP__ >= 2 */
894 #endif /* MSDOS */
896 #ifdef SET_EMACS_PRIORITY
897 if (emacs_priority)
898 nice (emacs_priority);
899 setuid (getuid ());
900 #endif /* SET_EMACS_PRIORITY */
902 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
903 The build procedure uses this while dumping, to ensure that the
904 dumped Emacs does not have its system locale tables initialized,
905 as that might cause screwups when the dumped Emacs starts up. */
907 char *lc_all = getenv ("LC_ALL");
908 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
911 /* Set locale now, so that initial error messages are localized properly.
912 fixup_locale must wait until later, since it builds strings. */
913 if (do_initial_setlocale)
914 setlocale (LC_ALL, "");
916 #ifdef EXTRA_INITIALIZE
917 EXTRA_INITIALIZE;
918 #endif
920 inhibit_window_system = 0;
922 /* Handle the -t switch, which specifies filename to use as terminal */
923 while (1)
925 char *term;
926 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
928 int result;
929 emacs_close (0);
930 emacs_close (1);
931 result = emacs_open (term, O_RDWR, 0);
932 if (result < 0)
934 char *errstring = strerror (errno);
935 fprintf (stderr, "emacs: %s: %s\n", term, errstring);
936 exit (1);
938 dup (0);
939 if (! isatty (0))
941 fprintf (stderr, "emacs: %s: not a tty\n", term);
942 exit (1);
944 fprintf (stderr, "Using %s\n", term);
945 #ifdef HAVE_WINDOW_SYSTEM
946 inhibit_window_system = 1; /* -t => -nw */
947 #endif
949 else
950 break;
953 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
954 inhibit_window_system = 1;
956 /* Handle the -batch switch, which means don't do interactive display. */
957 noninteractive = 0;
958 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
959 noninteractive = 1;
961 /* Handle the --help option, which gives a usage message.. */
962 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
964 printf (USAGE1, argv[0]);
965 printf (USAGE2);
966 exit (0);
969 if (! noninteractive)
971 #ifdef BSD_PGRPS
972 if (initialized)
974 inherited_pgroup = EMACS_GETPGRP (0);
975 setpgrp (0, getpid ());
977 #else
978 #if defined (USG5) && defined (INTERRUPT_INPUT)
979 setpgrp ();
980 #endif
981 #endif
984 init_signals ();
986 /* Don't catch SIGHUP if dumping. */
987 if (1
988 #ifndef CANNOT_DUMP
989 && initialized
990 #endif
993 sigblock (sigmask (SIGHUP));
994 /* In --batch mode, don't catch SIGHUP if already ignored.
995 That makes nohup work. */
996 if (! noninteractive
997 || signal (SIGHUP, SIG_IGN) != SIG_IGN)
998 signal (SIGHUP, fatal_error_signal);
999 sigunblock (sigmask (SIGHUP));
1002 if (
1003 #ifndef CANNOT_DUMP
1004 ! noninteractive || initialized
1005 #else
1007 #endif
1010 /* Don't catch these signals in batch mode if dumping.
1011 On some machines, this sets static data that would make
1012 signal fail to work right when the dumped Emacs is run. */
1013 signal (SIGQUIT, fatal_error_signal);
1014 signal (SIGILL, fatal_error_signal);
1015 signal (SIGTRAP, fatal_error_signal);
1016 #ifdef SIGUSR1
1017 signal (SIGUSR1, handle_USR1_signal);
1018 #ifdef SIGUSR2
1019 signal (SIGUSR2, handle_USR2_signal);
1020 #endif
1021 #endif
1022 #ifdef SIGABRT
1023 signal (SIGABRT, fatal_error_signal);
1024 #endif
1025 #ifdef SIGHWE
1026 signal (SIGHWE, fatal_error_signal);
1027 #endif
1028 #ifdef SIGPRE
1029 signal (SIGPRE, fatal_error_signal);
1030 #endif
1031 #ifdef SIGORE
1032 signal (SIGORE, fatal_error_signal);
1033 #endif
1034 #ifdef SIGUME
1035 signal (SIGUME, fatal_error_signal);
1036 #endif
1037 #ifdef SIGDLK
1038 signal (SIGDLK, fatal_error_signal);
1039 #endif
1040 #ifdef SIGCPULIM
1041 signal (SIGCPULIM, fatal_error_signal);
1042 #endif
1043 #ifdef SIGIOT
1044 /* This is missing on some systems - OS/2, for example. */
1045 signal (SIGIOT, fatal_error_signal);
1046 #endif
1047 #ifdef SIGEMT
1048 signal (SIGEMT, fatal_error_signal);
1049 #endif
1050 signal (SIGFPE, fatal_error_signal);
1051 #ifdef SIGBUS
1052 signal (SIGBUS, fatal_error_signal);
1053 #endif
1054 signal (SIGSEGV, fatal_error_signal);
1055 #ifdef SIGSYS
1056 signal (SIGSYS, fatal_error_signal);
1057 #endif
1058 signal (SIGTERM, fatal_error_signal);
1059 #ifdef SIGXCPU
1060 signal (SIGXCPU, fatal_error_signal);
1061 #endif
1062 #ifdef SIGXFSZ
1063 signal (SIGXFSZ, fatal_error_signal);
1064 #endif /* SIGXFSZ */
1066 #ifdef SIGDANGER
1067 /* This just means available memory is getting low. */
1068 signal (SIGDANGER, memory_warning_signal);
1069 #endif
1071 #ifdef AIX
1072 /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU. */
1073 signal (SIGXCPU, fatal_error_signal);
1074 #ifndef _I386
1075 signal (SIGIOINT, fatal_error_signal);
1076 #endif
1077 signal (SIGGRANT, fatal_error_signal);
1078 signal (SIGRETRACT, fatal_error_signal);
1079 signal (SIGSOUND, fatal_error_signal);
1080 signal (SIGMSG, fatal_error_signal);
1081 #endif /* AIX */
1084 noninteractive1 = noninteractive;
1086 /* Perform basic initializations (not merely interning symbols) */
1088 if (!initialized)
1090 init_alloc_once ();
1091 init_obarray ();
1092 init_eval_once ();
1093 init_charset_once ();
1094 init_coding_once ();
1095 init_syntax_once (); /* Create standard syntax table. */
1096 init_category_once (); /* Create standard category table. */
1097 /* Must be done before init_buffer */
1098 init_casetab_once ();
1099 init_buffer_once (); /* Create buffer table and some buffers */
1100 init_minibuf_once (); /* Create list of minibuffers */
1101 /* Must precede init_window_once */
1103 /* Call syms_of_xfaces before init_window_once because that
1104 function creates Vterminal_frame. Termcap frames now use
1105 faces, and the face implementation uses some symbols as
1106 face names. */
1107 syms_of_xfaces ();
1108 /* Call syms_of_keyboard before init_window_once because
1109 keyboard sets up symbols that include some face names that
1110 the X support will want to use. This can happen when
1111 CANNOT_DUMP is defined. */
1112 syms_of_keyboard ();
1114 #ifdef macintosh
1115 /* init_window_once calls make_terminal_frame which on Mac OS
1116 creates a full-fledge output_mac type frame. This does not
1117 work correctly before syms_of_textprop, syms_of_macfns,
1118 syms_of_ccl, syms_of_fontset, syms_of_xterm, syms_of_search,
1119 syms_of_frame, x_term_init, and init_keyboard have already
1120 been called. */
1121 syms_of_textprop ();
1122 syms_of_macfns ();
1123 syms_of_ccl ();
1124 syms_of_fontset ();
1125 syms_of_macterm ();
1126 syms_of_macmenu ();
1127 syms_of_data ();
1128 syms_of_search ();
1129 syms_of_frame ();
1131 x_term_init ();
1132 init_keyboard ();
1133 #endif
1135 init_window_once (); /* Init the window system */
1136 init_fileio_once (); /* Must precede any path manipulation. */
1139 init_alloc ();
1141 if (do_initial_setlocale)
1143 fixup_locale ();
1144 Vsystem_messages_locale = Vprevious_system_messages_locale;
1145 Vsystem_time_locale = Vprevious_system_time_locale;
1148 init_eval ();
1149 init_data ();
1150 #ifdef CLASH_DETECTION
1151 init_filelock ();;
1152 #endif
1153 init_atimer ();
1154 running_asynch_code = 0;
1156 /* Handle --unibyte and the EMACS_UNIBYTE envvar,
1157 but not while dumping. */
1158 if (
1159 #ifndef CANNOT_DUMP
1160 ! noninteractive || initialized
1161 #else
1163 #endif
1166 int inhibit_unibyte = 0;
1168 /* --multibyte overrides EMACS_UNIBYTE. */
1169 if (argmatch (argv, argc, "-no-unibyte", "--no-unibyte", 4, NULL, &skip_args)
1170 || argmatch (argv, argc, "-multibyte", "--multibyte", 4, NULL, &skip_args))
1171 inhibit_unibyte = 1;
1173 /* --unibyte requests that we set up to do everything with single-byte
1174 buffers and strings. We need to handle this before calling
1175 init_lread, init_editfns and other places that generate Lisp strings
1176 from text in the environment. */
1177 /* Actually this shouldn't be needed as of 20.4 in a generally
1178 unibyte environment. As handa says, environment values
1179 aren't now decoded; also existing buffers are now made
1180 unibyte during startup if .emacs sets unibyte. Tested with
1181 8-bit data in environment variables and /etc/passwd, setting
1182 unibyte and Latin-1 in .emacs. -- Dave Love */
1183 if (argmatch (argv, argc, "-unibyte", "--unibyte", 4, NULL, &skip_args)
1184 || argmatch (argv, argc, "-no-multibyte", "--no-multibyte", 4, NULL, &skip_args)
1185 || (getenv ("EMACS_UNIBYTE") && !inhibit_unibyte))
1187 Lisp_Object old_log_max;
1188 Lisp_Object symbol, tail;
1190 symbol = intern ("default-enable-multibyte-characters");
1191 Fset (symbol, Qnil);
1193 if (initialized)
1195 /* Erase pre-dump messages in *Messages* now so no abort. */
1196 old_log_max = Vmessage_log_max;
1197 XSETFASTINT (Vmessage_log_max, 0);
1198 message_dolog ("", 0, 1, 0);
1199 Vmessage_log_max = old_log_max;
1202 for (tail = Vbuffer_alist; CONSP (tail);
1203 tail = XCDR (tail))
1205 Lisp_Object buffer;
1207 buffer = Fcdr (XCAR (tail));
1208 /* Verify that all buffers are empty now, as they
1209 ought to be. */
1210 if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer)))
1211 abort ();
1212 /* It is safe to do this crudely in an empty buffer. */
1213 XBUFFER (buffer)->enable_multibyte_characters = Qnil;
1218 no_loadup
1219 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1222 #ifdef HAVE_X_WINDOWS
1223 /* Stupid kludge to catch command-line display spec. We can't
1224 handle this argument entirely in window system dependent code
1225 because we don't even know which window system dependent code
1226 to run until we've recognized this argument. */
1228 char *displayname = 0;
1229 int count_before = skip_args;
1231 /* Skip any number of -d options, but only use the last one. */
1232 while (1)
1234 int count_before_this = skip_args;
1236 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1237 display_arg = 1;
1238 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1239 display_arg = 1;
1240 else
1241 break;
1243 count_before = count_before_this;
1246 /* If we have the form --display=NAME,
1247 convert it into -d name.
1248 This requires inserting a new element into argv. */
1249 if (displayname != 0 && skip_args - count_before == 1)
1251 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
1252 int j;
1254 for (j = 0; j < count_before + 1; j++)
1255 new[j] = argv[j];
1256 new[count_before + 1] = "-d";
1257 new[count_before + 2] = displayname;
1258 for (j = count_before + 2; j <argc; j++)
1259 new[j + 1] = argv[j];
1260 argv = new;
1261 argc++;
1263 /* Change --display to -d, when its arg is separate. */
1264 else if (displayname != 0 && skip_args > count_before
1265 && argv[count_before + 1][1] == '-')
1266 argv[count_before + 1] = "-d";
1268 /* Don't actually discard this arg. */
1269 skip_args = count_before;
1271 #endif
1273 /* argmatch must not be used after here,
1274 except when bulding temacs
1275 because the -d argument has not been skipped in skip_args. */
1277 #ifdef MSDOS
1278 /* Call early 'cause init_environment needs it. */
1279 init_dosfns ();
1280 /* Set defaults for several environment variables. */
1281 if (initialized)
1282 init_environment (argc, argv, skip_args);
1283 else
1284 tzset ();
1285 #endif /* MSDOS */
1287 #ifdef WINDOWSNT
1288 /* Initialize environment from registry settings. */
1289 init_environment (argv);
1290 init_ntproc (); /* must precede init_editfns */
1291 #endif
1293 /* egetenv is a pretty low-level facility, which may get called in
1294 many circumstances; it seems flimsy to put off initializing it
1295 until calling init_callproc. */
1296 set_process_environment ();
1297 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1298 if this is not done. Do it after set_process_environment so that we
1299 don't pollute Vprocess_environment. */
1300 /* Setting LANG here will defeat the startup locale processing... */
1301 #ifdef AIX3_2
1302 putenv ("LANG=C");
1303 #endif
1305 init_buffer (); /* Init default directory of main buffer */
1307 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1308 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
1310 if (initialized)
1312 /* Erase any pre-dump messages in the message log, to avoid confusion */
1313 Lisp_Object old_log_max;
1314 old_log_max = Vmessage_log_max;
1315 XSETFASTINT (Vmessage_log_max, 0);
1316 message_dolog ("", 0, 1, 0);
1317 Vmessage_log_max = old_log_max;
1320 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1321 init_lread ();
1323 /* Intern the names of all standard functions and variables;
1324 define standard keys. */
1326 if (!initialized)
1328 /* The basic levels of Lisp must come first */
1329 /* And data must come first of all
1330 for the sake of symbols like error-message */
1331 #ifndef macintosh
1332 /* Called before init_window_once for Mac OS. */
1333 syms_of_data ();
1334 #endif
1335 syms_of_alloc ();
1336 syms_of_lread ();
1337 syms_of_print ();
1338 syms_of_eval ();
1339 syms_of_fns ();
1340 syms_of_floatfns ();
1342 syms_of_abbrev ();
1343 syms_of_buffer ();
1344 syms_of_bytecode ();
1345 syms_of_callint ();
1346 syms_of_casefiddle ();
1347 syms_of_casetab ();
1348 syms_of_callproc ();
1349 syms_of_category ();
1350 #ifndef macintosh
1351 /* Called before init_window_once for Mac OS. */
1352 syms_of_ccl ();
1353 #endif
1354 syms_of_charset ();
1355 syms_of_cmds ();
1356 #ifndef NO_DIR_LIBRARY
1357 syms_of_dired ();
1358 #endif /* not NO_DIR_LIBRARY */
1359 syms_of_display ();
1360 syms_of_doc ();
1361 syms_of_editfns ();
1362 syms_of_emacs ();
1363 syms_of_fileio ();
1364 syms_of_coding (); /* This should be after syms_of_fileio. */
1365 #ifdef CLASH_DETECTION
1366 syms_of_filelock ();
1367 #endif /* CLASH_DETECTION */
1368 syms_of_indent ();
1369 syms_of_insdel ();
1370 syms_of_keymap ();
1371 syms_of_macros ();
1372 syms_of_marker ();
1373 syms_of_minibuf ();
1374 syms_of_mocklisp ();
1375 syms_of_process ();
1376 #ifndef macintosh
1377 /* Called before init_window_once for Mac OS. */
1378 syms_of_search ();
1379 syms_of_frame ();
1380 #endif
1381 syms_of_syntax ();
1382 syms_of_term ();
1383 syms_of_undo ();
1384 #ifdef HAVE_SOUND
1385 syms_of_sound ();
1386 #endif
1387 #ifndef macintosh
1388 /* Called before init_window_once for Mac OS. */
1389 syms_of_textprop ();
1390 #endif
1391 syms_of_composite ();
1392 #ifdef VMS
1393 syms_of_vmsproc ();
1394 #endif /* VMS */
1395 #ifdef WINDOWSNT
1396 syms_of_ntproc ();
1397 #endif /* WINDOWSNT */
1398 syms_of_window ();
1399 syms_of_xdisp ();
1400 #ifdef HAVE_X_WINDOWS
1401 syms_of_xterm ();
1402 syms_of_xfns ();
1403 syms_of_fontset ();
1404 #ifdef HAVE_X11
1405 syms_of_xselect ();
1406 #endif
1407 #endif /* HAVE_X_WINDOWS */
1409 #ifndef HAVE_NTGUI
1410 #ifndef macintosh
1411 syms_of_xmenu ();
1412 #endif
1413 #endif
1415 #ifdef HAVE_NTGUI
1416 syms_of_w32term ();
1417 syms_of_w32fns ();
1418 syms_of_w32select ();
1419 syms_of_w32menu ();
1420 syms_of_fontset ();
1421 #endif /* HAVE_NTGUI */
1423 #ifdef SYMS_SYSTEM
1424 SYMS_SYSTEM;
1425 #endif
1427 #ifdef SYMS_MACHINE
1428 SYMS_MACHINE;
1429 #endif
1431 keys_of_casefiddle ();
1432 keys_of_cmds ();
1433 keys_of_buffer ();
1434 keys_of_keyboard ();
1435 keys_of_keymap ();
1436 keys_of_macros ();
1437 keys_of_minibuf ();
1438 keys_of_window ();
1439 keys_of_frame ();
1442 if (!noninteractive)
1444 #ifdef VMS
1445 init_vms_input ();/* init_display calls get_frame_size, that needs this */
1446 #endif /* VMS */
1447 init_display (); /* Determine terminal type. init_sys_modes uses results */
1449 #ifndef macintosh
1450 /* Called before init_window_once for Mac OS. */
1451 init_keyboard (); /* This too must precede init_sys_modes */
1452 #endif
1453 #ifdef VMS
1454 init_vmsproc (); /* And this too. */
1455 #endif /* VMS */
1456 init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */
1457 #ifdef HAVE_X_WINDOWS
1458 init_xfns ();
1459 #endif /* HAVE_X_WINDOWS */
1460 init_fns ();
1461 init_xdisp ();
1462 init_macros ();
1463 init_editfns ();
1464 init_floatfns ();
1465 #ifdef VMS
1466 init_vmsfns ();
1467 #endif /* VMS */
1468 init_process ();
1469 #ifdef HAVE_SOUND
1470 init_sound ();
1471 #endif
1472 init_window ();
1474 if (!initialized)
1476 char *file;
1477 /* Handle -l loadup, args passed by Makefile. */
1478 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1479 Vtop_level = Fcons (intern ("load"),
1480 Fcons (build_string (file), Qnil));
1481 #ifdef CANNOT_DUMP
1482 /* Unless next switch is -nl, load "loadup.el" first thing. */
1483 if (! no_loadup)
1484 Vtop_level = Fcons (intern ("load"),
1485 Fcons (build_string ("loadup.el"), Qnil));
1486 #endif /* CANNOT_DUMP */
1489 if (initialized)
1491 #ifdef HAVE_TZSET
1493 /* If the execution TZ happens to be the same as the dump TZ,
1494 change it to some other value and then change it back,
1495 to force the underlying implementation to reload the TZ info.
1496 This is needed on implementations that load TZ info from files,
1497 since the TZ file contents may differ between dump and execution. */
1498 char *tz = getenv ("TZ");
1499 if (tz && !strcmp (tz, dump_tz))
1501 ++*tz;
1502 tzset ();
1503 --*tz;
1506 #endif
1509 /* Set up for profiling. This is known to work on FreeBSD and
1510 GNU/Linux. It might work on some other systems too. Give it a
1511 try and tell us if it works on your system. To compile for
1512 profiling use something like `make CFLAGS="-pg -g -O -DPROFILING=1'. */
1513 #if defined (__FreeBSD__) || defined (__linux)
1514 #ifdef PROFILING
1515 if (initialized)
1517 extern void _mcleanup ();
1518 extern char etext;
1519 extern void safe_bcopy ();
1520 extern void dump_opcode_frequencies ();
1522 atexit (_mcleanup);
1523 /* This uses safe_bcopy because that function comes first in the
1524 Emacs executable. It might be better to use something that
1525 gives the start of the text segment, but start_of_text is not
1526 defined on all systems now. */
1527 monstartup (safe_bcopy, &etext);
1529 else
1530 moncontrol (0);
1531 #endif
1532 #endif
1534 initialized = 1;
1536 #ifdef LOCALTIME_CACHE
1537 /* Some versions of localtime have a bug. They cache the value of the time
1538 zone rather than looking it up every time. Since localtime() is
1539 called to bolt the undumping time into the undumped emacs, this
1540 results in localtime ignoring the TZ environment variable.
1541 This flushes the new TZ value into localtime. */
1542 tzset ();
1543 #endif /* defined (LOCALTIME_CACHE) */
1545 /* Enter editor command loop. This never returns. */
1546 Frecursive_edit ();
1547 /* NOTREACHED */
1548 return 0;
1551 /* Sort the args so we can find the most important ones
1552 at the beginning of argv. */
1554 /* First, here's a table of all the standard options. */
1556 struct standard_args
1558 char *name;
1559 char *longname;
1560 int priority;
1561 int nargs;
1564 struct standard_args standard_args[] =
1566 { "-version", "--version", 150, 0 },
1567 #ifdef HAVE_SHM
1568 { "-nl", "--no-shared-memory", 140, 0 },
1569 #endif
1570 #ifdef VMS
1571 { "-map", "--map-data", 130, 0 },
1572 #endif
1573 { "-t", "--terminal", 120, 1 },
1574 { "-nw", "--no-windows", 110, 0 },
1575 { "-batch", "--batch", 100, 0 },
1576 { "-help", "--help", 90, 0 },
1577 { "-no-unibyte", "--no-unibyte", 83, 0 },
1578 { "-multibyte", "--multibyte", 82, 0 },
1579 { "-unibyte", "--unibyte", 81, 0 },
1580 { "-no-multibyte", "--no-multibyte", 80, 0 },
1581 #ifdef CANNOT_DUMP
1582 { "-nl", "--no-loadup", 70, 0 },
1583 #endif
1584 /* -d must come last before the options handled in startup.el. */
1585 { "-d", "--display", 60, 1 },
1586 { "-display", 0, 60, 1 },
1587 /* Now for the options handled in startup.el. */
1588 { "-q", "--no-init-file", 50, 0 },
1589 { "-no-init-file", 0, 50, 0 },
1590 { "-no-site-file", "--no-site-file", 40, 0 },
1591 { "-u", "--user", 30, 1 },
1592 { "-user", 0, 30, 1 },
1593 { "-debug-init", "--debug-init", 20, 0 },
1594 { "-i", "--icon-type", 15, 0 },
1595 { "-itype", 0, 15, 0 },
1596 { "-iconic", "--iconic", 15, 0 },
1597 { "-bg", "--background-color", 10, 1 },
1598 { "-background", 0, 10, 1 },
1599 { "-fg", "--foreground-color", 10, 1 },
1600 { "-foreground", 0, 10, 1 },
1601 { "-bd", "--border-color", 10, 1 },
1602 { "-bw", "--border-width", 10, 1 },
1603 { "-ib", "--internal-border", 10, 1 },
1604 { "-ms", "--mouse-color", 10, 1 },
1605 { "-cr", "--cursor-color", 10, 1 },
1606 { "-fn", "--font", 10, 1 },
1607 { "-font", 0, 10, 1 },
1608 { "-g", "--geometry", 10, 1 },
1609 { "-geometry", 0, 10, 1 },
1610 { "-T", "--title", 10, 1 },
1611 { "-title", 0, 10, 1 },
1612 { "-name", "--name", 10, 1 },
1613 { "-xrm", "--xrm", 10, 1 },
1614 { "-r", "--reverse-video", 5, 0 },
1615 { "-rv", 0, 5, 0 },
1616 { "-reverse", 0, 5, 0 },
1617 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1618 { "-vb", "--vertical-scroll-bars", 5, 0 },
1619 /* These have the same priority as ordinary file name args,
1620 so they are not reordered with respect to those. */
1621 { "-L", "--directory", 0, 1 },
1622 { "-directory", 0, 0, 1 },
1623 { "-l", "--load", 0, 1 },
1624 { "-load", 0, 0, 1 },
1625 { "-f", "--funcall", 0, 1 },
1626 { "-funcall", 0, 0, 1 },
1627 { "-eval", "--eval", 0, 1 },
1628 { "-execute", "--execute", 0, 1 },
1629 { "-find-file", "--find-file", 0, 1 },
1630 { "-visit", "--visit", 0, 1 },
1631 { "-file", "--file", 0, 1 },
1632 { "-insert", "--insert", 0, 1 },
1633 /* This should be processed after ordinary file name args and the like. */
1634 { "-kill", "--kill", -10, 0 },
1637 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1638 so that the highest priority ones come first.
1639 Do not change the order of elements of equal priority.
1640 If an option takes an argument, keep it and its argument together.
1642 If an option that takes no argument appears more
1643 than once, eliminate all but one copy of it. */
1645 static void
1646 sort_args (argc, argv)
1647 int argc;
1648 char **argv;
1650 char **new = (char **) xmalloc (sizeof (char *) * argc);
1651 /* For each element of argv,
1652 the corresponding element of options is:
1653 0 for an option that takes no arguments,
1654 1 for an option that takes one argument, etc.
1655 -1 for an ordinary non-option argument. */
1656 int *options = (int *) xmalloc (sizeof (int) * argc);
1657 int *priority = (int *) xmalloc (sizeof (int) * argc);
1658 int to = 1;
1659 int incoming_used = 1;
1660 int from;
1661 int i;
1663 /* Categorize all the options,
1664 and figure out which argv elts are option arguments. */
1665 for (from = 1; from < argc; from++)
1667 options[from] = -1;
1668 priority[from] = 0;
1669 if (argv[from][0] == '-')
1671 int match, thislen;
1672 char *equals;
1674 /* If we have found "--", don't consider
1675 any more arguments as options. */
1676 if (argv[from][1] == '-' && argv[from][2] == 0)
1678 /* Leave the "--", and everything following it, at the end. */
1679 for (; from < argc; from++)
1681 priority[from] = -100;
1682 options[from] = -1;
1684 break;
1687 /* Look for a match with a known old-fashioned option. */
1688 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1689 if (!strcmp (argv[from], standard_args[i].name))
1691 options[from] = standard_args[i].nargs;
1692 priority[from] = standard_args[i].priority;
1693 if (from + standard_args[i].nargs >= argc)
1694 fatal ("Option `%s' requires an argument\n", argv[from]);
1695 from += standard_args[i].nargs;
1696 goto done;
1699 /* Look for a match with a known long option.
1700 MATCH is -1 if no match so far, -2 if two or more matches so far,
1701 >= 0 (the table index of the match) if just one match so far. */
1702 if (argv[from][1] == '-')
1704 match = -1;
1705 thislen = strlen (argv[from]);
1706 equals = index (argv[from], '=');
1707 if (equals != 0)
1708 thislen = equals - argv[from];
1710 for (i = 0;
1711 i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1712 if (standard_args[i].longname
1713 && !strncmp (argv[from], standard_args[i].longname,
1714 thislen))
1716 if (match == -1)
1717 match = i;
1718 else
1719 match = -2;
1722 /* If we found exactly one match, use that. */
1723 if (match >= 0)
1725 options[from] = standard_args[match].nargs;
1726 priority[from] = standard_args[match].priority;
1727 /* If --OPTION=VALUE syntax is used,
1728 this option uses just one argv element. */
1729 if (equals != 0)
1730 options[from] = 0;
1731 if (from + options[from] >= argc)
1732 fatal ("Option `%s' requires an argument\n", argv[from]);
1733 from += options[from];
1736 done: ;
1740 /* Copy the arguments, in order of decreasing priority, to NEW. */
1741 new[0] = argv[0];
1742 while (incoming_used < argc)
1744 int best = -1;
1745 int best_priority = -9999;
1747 /* Find the highest priority remaining option.
1748 If several have equal priority, take the first of them. */
1749 for (from = 1; from < argc; from++)
1751 if (argv[from] != 0 && priority[from] > best_priority)
1753 best_priority = priority[from];
1754 best = from;
1756 /* Skip option arguments--they are tied to the options. */
1757 if (options[from] > 0)
1758 from += options[from];
1761 if (best < 0)
1762 abort ();
1764 /* Copy the highest priority remaining option, with its args, to NEW.
1765 Unless it is a duplicate of the previous one. */
1766 if (! (options[best] == 0
1767 && ! strcmp (new[to - 1], argv[best])))
1769 new[to++] = argv[best];
1770 for (i = 0; i < options[best]; i++)
1771 new[to++] = argv[best + i + 1];
1774 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
1776 /* Clear out this option in ARGV. */
1777 argv[best] = 0;
1778 for (i = 0; i < options[best]; i++)
1779 argv[best + i + 1] = 0;
1782 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1783 while (to < argc)
1784 new[to++] = 0;
1786 bcopy (new, argv, sizeof (char *) * argc);
1788 free (options);
1789 free (new);
1790 free (priority);
1793 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
1794 "Exit the Emacs job and kill it.\n\
1795 If ARG is an integer, return ARG as the exit program code.\n\
1796 If ARG is a string, stuff it as keyboard input.\n\n\
1797 The value of `kill-emacs-hook', if not void,\n\
1798 is a list of functions (of no args),\n\
1799 all of which are called before Emacs is actually killed.")
1800 (arg)
1801 Lisp_Object arg;
1803 struct gcpro gcpro1;
1805 GCPRO1 (arg);
1807 if (feof (stdin))
1808 arg = Qt;
1810 if (!NILP (Vrun_hooks) && !noninteractive)
1811 call1 (Vrun_hooks, intern ("kill-emacs-hook"));
1813 UNGCPRO;
1815 /* Is it really necessary to do this deassign
1816 when we are going to exit anyway? */
1817 /* #ifdef VMS
1818 stop_vms_input ();
1819 #endif */
1821 shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil);
1823 /* If we have an auto-save list file,
1824 kill it because we are exiting Emacs deliberately (not crashing).
1825 Do it after shut_down_emacs, which does an auto-save. */
1826 if (STRINGP (Vauto_save_list_file_name))
1827 unlink (XSTRING (Vauto_save_list_file_name)->data);
1829 exit (INTEGERP (arg) ? XINT (arg)
1830 #ifdef VMS
1832 #else
1834 #endif
1836 /* NOTREACHED */
1840 /* Perform an orderly shutdown of Emacs. Autosave any modified
1841 buffers, kill any child processes, clean up the terminal modes (if
1842 we're in the foreground), and other stuff like that. Don't perform
1843 any redisplay; this may be called when Emacs is shutting down in
1844 the background, or after its X connection has died.
1846 If SIG is a signal number, print a message for it.
1848 This is called by fatal signal handlers, X protocol error handlers,
1849 and Fkill_emacs. */
1851 void
1852 shut_down_emacs (sig, no_x, stuff)
1853 int sig, no_x;
1854 Lisp_Object stuff;
1856 /* Prevent running of hooks from now on. */
1857 Vrun_hooks = Qnil;
1859 /* If we are controlling the terminal, reset terminal modes */
1860 #ifdef EMACS_HAVE_TTY_PGRP
1862 int pgrp = EMACS_GETPGRP (0);
1864 int tpgrp;
1865 if (EMACS_GET_TTY_PGRP (0, &tpgrp) != -1
1866 && tpgrp == pgrp)
1868 fflush (stdout);
1869 reset_sys_modes ();
1870 if (sig && sig != SIGTERM)
1871 fprintf (stderr, "Fatal error (%d).", sig);
1874 #else
1875 fflush (stdout);
1876 reset_sys_modes ();
1877 #endif
1879 stuff_buffered_input (stuff);
1881 kill_buffer_processes (Qnil);
1882 Fdo_auto_save (Qt, Qnil);
1884 #ifdef CLASH_DETECTION
1885 unlock_all_files ();
1886 #endif
1888 #ifdef VMS
1889 kill_vms_processes ();
1890 #endif
1892 #if 0 /* This triggers a bug in XCloseDisplay and is not needed. */
1893 #ifdef HAVE_X_WINDOWS
1894 /* It's not safe to call intern here. Maybe we are crashing. */
1895 if (!noninteractive && SYMBOLP (Vwindow_system)
1896 && XSYMBOL (Vwindow_system)->name->size == 1
1897 && XSYMBOL (Vwindow_system)->name->data[0] == 'x'
1898 && ! no_x)
1899 Fx_close_current_connection ();
1900 #endif /* HAVE_X_WINDOWS */
1901 #endif
1903 #ifdef SIGIO
1904 /* There is a tendency for a SIGIO signal to arrive within exit,
1905 and cause a SIGHUP because the input descriptor is already closed. */
1906 unrequest_sigio ();
1907 signal (SIGIO, SIG_IGN);
1908 #endif
1910 #ifdef WINDOWSNT
1911 term_ntproc ();
1912 #endif
1914 check_glyph_memory ();
1915 check_message_stack ();
1917 #ifdef MSDOS
1918 dos_cleanup ();
1919 #endif
1924 #ifndef CANNOT_DUMP
1926 #ifdef HAVE_SHM
1928 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0,
1929 "Dump current state of Emacs into data file FILENAME.\n\
1930 This function exists on systems that use HAVE_SHM.")
1931 (filename)
1932 Lisp_Object filename;
1934 extern char my_edata[];
1935 Lisp_Object tem;
1937 CHECK_STRING (filename, 0);
1938 filename = Fexpand_file_name (filename, Qnil);
1940 tem = Vpurify_flag;
1941 Vpurify_flag = Qnil;
1943 fflush (stdout);
1944 /* Tell malloc where start of impure now is */
1945 /* Also arrange for warnings when nearly out of space. */
1946 #ifndef SYSTEM_MALLOC
1947 memory_warnings (my_edata, malloc_warning);
1948 #endif
1949 map_out_data (XSTRING (filename)->data);
1951 Vpurify_flag = tem;
1953 return Qnil;
1956 #else /* not HAVE_SHM */
1958 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
1959 "Dump current state of Emacs into executable file FILENAME.\n\
1960 Take symbols from SYMFILE (presumably the file you executed to run Emacs).\n\
1961 This is used in the file `loadup.el' when building Emacs.\n\
1963 You must run Emacs in batch mode in order to dump it.")
1964 (filename, symfile)
1965 Lisp_Object filename, symfile;
1967 extern char my_edata[];
1968 Lisp_Object tem;
1969 Lisp_Object symbol;
1970 int count = specpdl_ptr - specpdl;
1972 if (! noninteractive)
1973 error ("Dumping Emacs works only in batch mode");
1975 /* Bind `command-line-processed' to nil before dumping,
1976 so that the dumped Emacs will process its command line
1977 and set up to work with X windows if appropriate. */
1978 symbol = intern ("command-line-process");
1979 specbind (symbol, Qnil);
1981 CHECK_STRING (filename, 0);
1982 filename = Fexpand_file_name (filename, Qnil);
1983 if (!NILP (symfile))
1985 CHECK_STRING (symfile, 0);
1986 if (XSTRING (symfile)->size)
1987 symfile = Fexpand_file_name (symfile, Qnil);
1990 tem = Vpurify_flag;
1991 Vpurify_flag = Qnil;
1993 #ifdef HAVE_TZSET
1994 set_time_zone_rule (dump_tz);
1995 #ifndef LOCALTIME_CACHE
1996 /* Force a tz reload, since set_time_zone_rule doesn't. */
1997 tzset ();
1998 #endif
1999 #endif
2001 fflush (stdout);
2002 #ifdef VMS
2003 mapout_data (XSTRING (filename)->data);
2004 #else
2005 /* Tell malloc where start of impure now is */
2006 /* Also arrange for warnings when nearly out of space. */
2007 #ifndef SYSTEM_MALLOC
2008 #ifndef WINDOWSNT
2009 /* On Windows, this was done before dumping, and that once suffices.
2010 Meanwhile, my_edata is not valid on Windows. */
2011 memory_warnings (my_edata, malloc_warning);
2012 #endif /* not WINDOWSNT */
2013 #endif
2014 #ifdef DOUG_LEA_MALLOC
2015 malloc_state_ptr = malloc_get_state ();
2016 #endif
2018 #ifdef USE_MMAP_FOR_BUFFERS
2019 mmap_set_vars (0);
2020 #endif
2021 unexec (XSTRING (filename)->data,
2022 !NILP (symfile) ? XSTRING (symfile)->data : 0, my_edata, 0, 0);
2023 #ifdef USE_MMAP_FOR_BUFFERS
2024 mmap_set_vars (1);
2025 #endif
2026 #ifdef DOUG_LEA_MALLOC
2027 free (malloc_state_ptr);
2028 #endif
2029 #endif /* not VMS */
2031 Vpurify_flag = tem;
2033 return unbind_to (count, Qnil);
2036 #endif /* not HAVE_SHM */
2038 #endif /* not CANNOT_DUMP */
2040 #if HAVE_SETLOCALE
2041 /* Recover from setlocale (LC_ALL, ""). */
2042 void
2043 fixup_locale ()
2045 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2046 so that numbers are read and printed properly for Emacs Lisp. */
2047 setlocale (LC_NUMERIC, "C");
2050 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2051 DESIRED_LOCALE. */
2052 static void
2053 synchronize_locale (category, plocale, desired_locale)
2054 int category;
2055 Lisp_Object *plocale;
2056 Lisp_Object desired_locale;
2058 if (! EQ (*plocale, desired_locale))
2060 *plocale = desired_locale;
2061 setlocale (category, (STRINGP (desired_locale)
2062 ? (char *)(XSTRING (desired_locale)->data)
2063 : ""));
2067 /* Set system time locale to match Vsystem_time_locale, if possible. */
2068 void
2069 synchronize_system_time_locale ()
2071 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2072 Vsystem_time_locale);
2075 /* Set system messages locale to match Vsystem_messages_locale, if
2076 possible. */
2077 void
2078 synchronize_system_messages_locale ()
2080 #ifdef LC_MESSAGES
2081 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2082 Vsystem_messages_locale);
2083 #endif
2085 #endif /* HAVE_SETLOCALE */
2087 #ifndef SEPCHAR
2088 #define SEPCHAR ':'
2089 #endif
2091 Lisp_Object
2092 decode_env_path (evarname, defalt)
2093 char *evarname, *defalt;
2095 register char *path, *p;
2096 Lisp_Object lpath, element, tem;
2098 /* It's okay to use getenv here, because this function is only used
2099 to initialize variables when Emacs starts up, and isn't called
2100 after that. */
2101 if (evarname != 0)
2102 path = (char *) getenv (evarname);
2103 else
2104 path = 0;
2105 if (!path)
2106 path = defalt;
2107 #ifdef DOS_NT
2108 /* Ensure values from the environment use the proper directory separator. */
2109 if (path)
2111 p = alloca (strlen (path) + 1);
2112 strcpy (p, path);
2113 path = p;
2115 if ('/' == DIRECTORY_SEP)
2116 dostounix_filename (path);
2117 else
2118 unixtodos_filename (path);
2120 #endif
2121 lpath = Qnil;
2122 while (1)
2124 p = index (path, SEPCHAR);
2125 if (!p) p = path + strlen (path);
2126 element = (p - path ? make_string (path, p - path)
2127 : build_string ("."));
2129 /* Add /: to the front of the name
2130 if it would otherwise be treated as magic. */
2131 tem = Ffind_file_name_handler (element, Qt);
2132 if (! NILP (tem))
2133 element = concat2 (build_string ("/:"), element);
2135 lpath = Fcons (element, lpath);
2136 if (*p)
2137 path = p + 1;
2138 else
2139 break;
2141 return Fnreverse (lpath);
2144 void
2145 syms_of_emacs ()
2147 Qfile_name_handler_alist = intern ("file-name-handler-alist");
2148 staticpro (&Qfile_name_handler_alist);
2150 #ifndef CANNOT_DUMP
2151 #ifdef HAVE_SHM
2152 defsubr (&Sdump_emacs_data);
2153 #else
2154 defsubr (&Sdump_emacs);
2155 #endif
2156 #endif
2158 defsubr (&Skill_emacs);
2160 defsubr (&Sinvocation_name);
2161 defsubr (&Sinvocation_directory);
2163 DEFVAR_LISP ("command-line-args", &Vcommand_line_args,
2164 "Args passed by shell to Emacs, as a list of strings.");
2166 DEFVAR_LISP ("system-type", &Vsystem_type,
2167 "Value is symbol indicating type of operating system you are using.");
2168 Vsystem_type = intern (SYSTEM_TYPE);
2170 DEFVAR_LISP ("system-configuration", &Vsystem_configuration,
2171 "Value is string indicating configuration Emacs was built for.\n\
2172 On MS-Windows, the value reflects the OS flavor and version on which\n\
2173 Emacs is running.");
2174 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2176 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options,
2177 "String containing the configuration options Emacs was built with.");
2178 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2180 DEFVAR_BOOL ("noninteractive", &noninteractive1,
2181 "Non-nil means Emacs is running without interactive terminal.");
2183 DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook,
2184 "Hook to be run whenever kill-emacs is called.\n\
2185 Since kill-emacs may be invoked when the terminal is disconnected (or\n\
2186 in other similar situations), functions placed on this hook should not\n\
2187 expect to be able to interact with the user. To ask for confirmation,\n\
2188 see `kill-emacs-query-functions' instead.");
2189 Vkill_emacs_hook = Qnil;
2191 #ifdef SIGUSR1
2192 DEFVAR_LISP ("signal-USR1-hook", &Vsignal_USR1_hook,
2193 "Hook to be run whenever emacs receives a USR1 signal");
2194 Vsignal_USR1_hook = Qnil;
2195 #ifdef SIGUSR2
2196 DEFVAR_LISP ("signal-USR2-hook", &Vsignal_USR2_hook,
2197 "Hook to be run whenever emacs receives a USR2 signal");
2198 Vsignal_USR2_hook = Qnil;
2199 #endif
2200 #endif
2203 DEFVAR_INT ("emacs-priority", &emacs_priority,
2204 "Priority for Emacs to run at.\n\
2205 This value is effective only if set before Emacs is dumped,\n\
2206 and only if the Emacs executable is installed with setuid to permit\n\
2207 it to change priority. (Emacs sets its uid back to the real uid.)\n\
2208 Currently, you need to define SET_EMACS_PRIORITY in `config.h'\n\
2209 before you compile Emacs, to enable the code for this feature.");
2210 emacs_priority = 0;
2212 DEFVAR_LISP ("path-separator", &Vpath_separator,
2213 "The directory separator in search paths, as a string.");
2215 char c = SEPCHAR;
2216 Vpath_separator = make_string (&c, 1);
2219 DEFVAR_LISP ("invocation-name", &Vinvocation_name,
2220 "The program name that was used to run Emacs.\n\
2221 Any directory names are omitted.");
2223 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory,
2224 "The directory in which the Emacs executable was found, to run it.\n\
2225 The value is nil if that directory's name is not known.");
2227 DEFVAR_LISP ("installation-directory", &Vinstallation_directory,
2228 "A directory within which to look for the `lib-src' and `etc' directories.\n\
2229 This is non-nil when we can't find those directories in their standard\n\
2230 installed locations, but we can find them\n\
2231 near where the Emacs executable was found.");
2232 Vinstallation_directory = Qnil;
2234 DEFVAR_LISP ("system-messages-locale", &Vsystem_messages_locale,
2235 "System locale for messages.");
2236 Vsystem_messages_locale = Qnil;
2238 DEFVAR_LISP ("previous-system-messages-locale",
2239 &Vprevious_system_messages_locale,
2240 "Most recently used system locale for messages.");
2241 Vprevious_system_messages_locale = Qnil;
2243 DEFVAR_LISP ("system-time-locale", &Vsystem_time_locale,
2244 "System locale for time.");
2245 Vsystem_time_locale = Qnil;
2247 DEFVAR_LISP ("previous-system-time-locale", &Vprevious_system_time_locale,
2248 "Most recently used system locale for time.");
2249 Vprevious_system_time_locale = Qnil;