Mercurial > emacs
changeset 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 | 0c4d3481bb1b |
| files | src/emacs.c |
| diffstat | 1 files changed, 13 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/emacs.c Thu Apr 21 08:43:33 1994 +0000 +++ b/src/emacs.c Thu Apr 21 09:04:25 1994 +0000 @@ -1024,10 +1024,18 @@ it to change priority. (Emacs sets its uid back to the real uid.)"); emacs_priority = 0; - staticpro (&Vinstallation_directory); - Vinstallation_directory = Qnil; + DEFVAR_LISP ("invocation-name", &Vinvocation_name, + "The program name that was used to run Emacs.\n\ +Any directory names are omitted."); + + DEFVAR_LISP ("invocation-directory", &Vinvocation_directory, + "The directory in which the Emacs executable was found, to run it.\n\ +The value is nil if that directory's name is not known."); - /* These have already been set, in init_cmdargs, so don't set them here. */ - staticpro (&Vinvocation_name); - staticpro (&Vinvocation_directory); + DEFVAR_LISP ("installation-directory", &Vinstallation_directory, + "A directory within which to look for the `lib-src' and `etc' directories.\n\ +This is non-nil when we can't find those directories in their standard\n\ +installed locations, but we can find them\n\ +near where the Emacs executable was found."); + Vinstallation_directory = Qnil; }