From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 21 Apr 1994 09:04:25 +0000 (+0000)
Subject: (init_cmdargs): Check only for etc and lib-src subdirs
X-Git-Tag: emacs-19.34~8850
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f67de86ff670434940ee5f1fc00982181dc356d8;p=emacs.git

(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 --git a/src/emacs.c b/src/emacs.c
index d5b89b896d9..fd2a736e2d0 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1024,10 +1024,18 @@ and only if the Emacs executable is installed with setuid to permit\n\
 it to change priority.  (Emacs sets its uid back to the real uid.)");
   emacs_priority = 0;
 
-  staticpro (&Vinstallation_directory);
+  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.");
+
+  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;
-
-  /* These have already been set, in init_cmdargs, so don't set them here.  */
-  staticpro (&Vinvocation_name);
-  staticpro (&Vinvocation_directory);
 }