# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766919065 0
# Node ID 176bb79caecfc316721f457ee8a6a5a6228bd516
# Parent  e9667f7a0cbc3697c49c471ca46181aebc9d73cc
(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.

diff -r e9667f7a0cbc -r 176bb79caecf src/emacs.c
--- 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;
 }