From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 30 Apr 2002 01:00:24 +0000 (+0000)
Subject: (Fcall_process): Update call to openp.
X-Git-Tag: ttn-vms-21-2-B4~15287
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c15096143974ef5d8931a221a2d6c95da9fe0e5;p=emacs.git

(Fcall_process): Update call to openp.
---

diff --git a/src/callproc.c b/src/callproc.c
index 7f4993c9bf7..196f8a669ac 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -381,7 +381,7 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
     struct gcpro gcpro1;
 
     GCPRO1 (current_dir);
-    openp (Vexec_path, args[0], Vexec_suffixes, &path, 1);
+    openp (Vexec_path, args[0], Vexec_suffixes, &path, make_number (X_OK));
     UNGCPRO;
   }
   if (NILP (path))