Mercurial > emacs
comparison src/emacs.c @ 7003:176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
when setting Vinstallation_directory.
(syms_of_emacs): Make Lisp vars invocation-name, invocation-directory
and installation-directory.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 21 Apr 1994 09:04:25 +0000 |
parents | e9667f7a0cbc |
children | 299e6e1e5ae6 |
comparison
equal
deleted
inserted
replaced
7002:e9667f7a0cbc | 7003:176bb79caecf |
---|---|
1022 This value is effective only if set before Emacs is dumped,\n\ | 1022 This value is effective only if set before Emacs is dumped,\n\ |
1023 and only if the Emacs executable is installed with setuid to permit\n\ | 1023 and only if the Emacs executable is installed with setuid to permit\n\ |
1024 it to change priority. (Emacs sets its uid back to the real uid.)"); | 1024 it to change priority. (Emacs sets its uid back to the real uid.)"); |
1025 emacs_priority = 0; | 1025 emacs_priority = 0; |
1026 | 1026 |
1027 staticpro (&Vinstallation_directory); | 1027 DEFVAR_LISP ("invocation-name", &Vinvocation_name, |
1028 "The program name that was used to run Emacs.\n\ | |
1029 Any directory names are omitted."); | |
1030 | |
1031 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory, | |
1032 "The directory in which the Emacs executable was found, to run it.\n\ | |
1033 The value is nil if that directory's name is not known."); | |
1034 | |
1035 DEFVAR_LISP ("installation-directory", &Vinstallation_directory, | |
1036 "A directory within which to look for the `lib-src' and `etc' directories.\n\ | |
1037 This is non-nil when we can't find those directories in their standard\n\ | |
1038 installed locations, but we can find them\n\ | |
1039 near where the Emacs executable was found."); | |
1028 Vinstallation_directory = Qnil; | 1040 Vinstallation_directory = Qnil; |
1029 | 1041 } |
1030 /* These have already been set, in init_cmdargs, so don't set them here. */ | |
1031 staticpro (&Vinvocation_name); | |
1032 staticpro (&Vinvocation_directory); | |
1033 } |