From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 18 Sep 2019 10:06:10 +0000 (-0700)
Subject: Fix permission-denied issue in MS-Windows startup
X-Git-Tag: emacs-27.0.90~1551^2~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94ca934a5c4ef4908fdb7bcd78950bacf9c4ce88;p=emacs.git

Fix permission-denied issue in MS-Windows startup

* src/callproc.c (init_callproc): Use file_access_p rather
than Ffile_exists_p during startup (Bug#37445).
---

diff --git a/src/callproc.c b/src/callproc.c
index 1ac0bdc710a..dbbf15c792a 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1560,20 +1560,19 @@ init_callproc (void)
      source directory.  */
   if (data_dir == 0)
     {
-      Lisp_Object tem, tem1, srcdir;
+      Lisp_Object tem, srcdir;
       Lisp_Object lispdir = Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH, 0));
 
       srcdir = Fexpand_file_name (build_string ("../src/"), lispdir);
 
       tem = Fexpand_file_name (build_string ("NEWS"), Vdata_directory);
-      tem1 = Ffile_exists_p (tem);
-      if (!NILP (Fequal (srcdir, Vinvocation_directory)) || NILP (tem1))
+      if (!NILP (Fequal (srcdir, Vinvocation_directory))
+	  || !file_access_p (SSDATA (tem), F_OK))
 	{
 	  Lisp_Object newdir;
 	  newdir = Fexpand_file_name (build_string ("../etc/"), lispdir);
 	  tem = Fexpand_file_name (build_string ("NEWS"), newdir);
-	  tem1 = Ffile_exists_p (tem);
-	  if (!NILP (tem1))
+	  if (file_access_p (SSDATA (tem), F_OK))
 	    Vdata_directory = newdir;
 	}
     }