(Fcall_process): Update call to openp.

diff --git a/src/callproc.c b/src/callproc.c
index 7f4993c9bf7d89f657f954a4af59266e705dc1e8..196f8a669ac5ec99e53ea7f05f53930539c421e6 100644 (file)
--- 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))