X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fprocess.c;h=c3b493a61727219b1549aa07896b928d0551596f;hb=0a7e8462acb4861fe3fc2193319cec3552ea1c2f;hp=a9a91313ba47fa7a30d8d0186a3c9dec8ca353a4;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;p=chise%2Fxemacs-chise.git-

diff --git a/src/process.c b/src/process.c
index a9a9131..c3b493a 100644
--- a/src/process.c
+++ b/src/process.c
@@ -106,6 +106,8 @@ struct hash_table *usid_to_process;
 /* List of process objects. */
 Lisp_Object Vprocess_list;
 
+extern Lisp_Object Vlisp_EXEC_SUFFIXES;
+
 
 
 static Lisp_Object
@@ -184,7 +186,7 @@ finalize_process (void *header, int for_disksave)
 
 DEFINE_LRECORD_IMPLEMENTATION ("process", process,
                                mark_process, print_process, finalize_process,
-                               0, 0, struct Lisp_Process);
+                               0, 0, 0, struct Lisp_Process);
 
 /************************************************************************/
 /*                       basic process accessors                        */
@@ -415,7 +417,7 @@ make_process_internal (Lisp_Object name)
   Lisp_Object val, name1;
   int i;
   struct Lisp_Process *p =
-    alloc_lcrecord_type (struct Lisp_Process, lrecord_process);
+    alloc_lcrecord_type (struct Lisp_Process, &lrecord_process);
 
   /* If name is already in use, modify it until it is unused.  */
   name1 = name;
@@ -591,8 +593,7 @@ INCODE and OUTCODE specify the coding-system objects used in input/output
 
       tem = Qnil;
       NGCPRO1 (tem);
-      locate_file (Vexec_path, program, EXEC_SUFFIXES, &tem,
-		   X_OK);
+      locate_file (Vexec_path, program, Vlisp_EXEC_SUFFIXES, &tem, X_OK);
       if (NILP (tem))
 	report_file_error ("Searching for program", list1 (program));
       program = Fexpand_file_name (tem, Qnil);