projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(BUFBYTE_FIRST_BYTE_P): Moved to mb-utf-8.h.
[chise/xemacs-chise.git-]
/
src
/
process.c
diff --git
a/src/process.c
b/src/process.c
index
a9a9131
..
c3b493a
100644
(file)
--- 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;
/* List of process objects. */
Lisp_Object Vprocess_list;
+extern Lisp_Object Vlisp_EXEC_SUFFIXES;
+
\f
static Lisp_Object
\f
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,
DEFINE_LRECORD_IMPLEMENTATION ("process", process,
mark_process, print_process, finalize_process,
- 0, 0, struct Lisp_Process);
+ 0, 0, 0, struct Lisp_Process);
\f
/************************************************************************/
/* basic process accessors */
\f
/************************************************************************/
/* basic process accessors */
@@
-415,7
+417,7
@@
make_process_internal (Lisp_Object name)
Lisp_Object val, name1;
int i;
struct Lisp_Process *p =
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;
/* 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);
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);
if (NILP (tem))
report_file_error ("Searching for program", list1 (program));
program = Fexpand_file_name (tem, Qnil);