From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Aug 1997 00:44:34 +0000 (+0000)
Subject: (init_callproc): Don't warn about missing
X-Git-Tag: emacs-20.1~450
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d883eb62329a9c13a9307f973df18f91635f3905;p=emacs.git

(init_callproc): Don't warn about missing
arch-dep data directory, while preparing to dump.
---

diff --git a/src/callproc.c b/src/callproc.c
index 292e9af3957..201c5871537 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1253,10 +1253,15 @@ init_callproc ()
 	}
     }
 
-  tempdir = Fdirectory_file_name (Vexec_directory);
-  if (access (XSTRING (tempdir)->data, 0) < 0)
-    dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n",
-		 Vexec_directory);
+#ifndef CANNOT_DUMP
+  if (initialized)
+#endif
+    {
+      tempdir = Fdirectory_file_name (Vexec_directory);
+      if (access (XSTRING (tempdir)->data, 0) < 0)
+	dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n",
+		     Vexec_directory);
+    }
 
   tempdir = Fdirectory_file_name (Vdata_directory);
   if (access (XSTRING (tempdir)->data, 0) < 0)