From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 22 Feb 1994 23:50:27 +0000 (+0000)
Subject: (syms_of_callproc): New variable Vdoc_directory.
X-Git-Tag: emacs-19.34~9821
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35a2f4b8cb708de85ef78e24e544ff2fbb4b4588;p=emacs.git

(syms_of_callproc): New variable Vdoc_directory.
(init_callproc_1): Initialize it.
---

diff --git a/src/callproc.c b/src/callproc.c
index 69f2dc9e3c8..ae10f2f2012 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -75,7 +75,7 @@ extern char **environ;
 Lisp_Object Vbinary_process;
 #endif
 
-Lisp_Object Vexec_path, Vexec_directory, Vdata_directory;
+Lisp_Object Vexec_path, Vexec_directory, Vdata_directory, Vdoc_directory;
 Lisp_Object Vconfigure_info_directory;
 
 Lisp_Object Vshell_file_name;
@@ -756,10 +756,14 @@ egetenv (var)
 init_callproc_1 ()
 {
   char *data_dir = egetenv ("EMACSDATA");
-    
+  char *doc_dir = egetenv ("EMACSDOC");
+
   Vdata_directory
     = Ffile_name_as_directory (build_string (data_dir ? data_dir 
 					     : PATH_DATA));
+  Vdoc_directory
+    = Ffile_name_as_directory (build_string (doc_dir ? doc_dir
+					     : PATH_DOC));
 
   /* Check the EMACSPATH environment variable, defaulting to the
      PATH_EXEC path from paths.h.  */
@@ -862,6 +866,10 @@ especially executable programs intended for Emacs to invoke.");
     "Directory of architecture-independent files that come with GNU Emacs,\n\
 intended for Emacs to use.");
 
+  DEFVAR_LISP ("doc-directory", &Vdoc_directory,
+    "Directory containing the DOC file that comes with GNU Emacs.\n\
+This is usually the same as data-directory.");
+
   DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory,
     "For internal use by the build procedure only.\n\
 This is the name of the directory in which the build procedure installed\n\