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 }