Commit cbe81f1d authored by Stefan Monnier's avatar Stefan Monnier

* alloc.c (make_unibyte_string): Don't SET_UNIBYTE redundantly.

* process.c (Fstart_process, Fmake_serial_process)
(Fmake_network_process, server_accept_connection):
Use empty_unibyte_string.
parent aa56f361
2011-02-18 Stefan Monnier <monnier@iro.umontreal.ca>
* process.c (Fstart_process, Fmake_serial_process)
(Fmake_network_process, server_accept_connection):
Use empty_unibyte_string.
* alloc.c (make_unibyte_string): Don't SET_UNIBYTE redundantly.
* lread.c (Qdir_ok): New constant.
(syms_of_lread): Initialize it.
(openp): Don't ignore directories if the predicate returns dir-ok.
......@@ -2301,7 +2301,6 @@ make_unibyte_string (const char *contents, EMACS_INT length)
register Lisp_Object val;
val = make_uninit_string (length);
memcpy (SDATA (val), contents, length);
STRING_SET_UNIBYTE (val);
return val;
}
......
......@@ -1660,9 +1660,9 @@ usage: (start-process NAME BUFFER PROGRAM &rest PROGRAM-ARGS) */)
}
XPROCESS (proc)->decoding_buf = make_uninit_string (0);
XPROCESS (proc)->decoding_buf = empty_unibyte_string;
XPROCESS (proc)->decoding_carryover = 0;
XPROCESS (proc)->encoding_buf = make_uninit_string (0);
XPROCESS (proc)->encoding_buf = empty_unibyte_string;
XPROCESS (proc)->inherit_coding_system_flag
= !(NILP (buffer) || !inherit_process_coding_system);
......@@ -2918,9 +2918,9 @@ usage: (make-serial-process &rest ARGS) */)
p->encode_coding_system = val;
setup_process_coding_systems (proc);
p->decoding_buf = make_uninit_string (0);
p->decoding_buf = empty_unibyte_string;
p->decoding_carryover = 0;
p->encoding_buf = make_uninit_string (0);
p->encoding_buf = empty_unibyte_string;
p->inherit_coding_system_flag
= !(!NILP (tem) || NILP (buffer) || !inherit_process_coding_system);
......@@ -3787,9 +3787,9 @@ usage: (make-network-process &rest ARGS) */)
}
setup_process_coding_systems (proc);
p->decoding_buf = make_uninit_string (0);
p->decoding_buf = empty_unibyte_string;
p->decoding_carryover = 0;
p->encoding_buf = make_uninit_string (0);
p->encoding_buf = empty_unibyte_string;
p->inherit_coding_system_flag
= !(!NILP (tem) || NILP (buffer) || !inherit_process_coding_system);
......@@ -4364,9 +4364,9 @@ server_accept_connection (Lisp_Object server, int channel)
p->encode_coding_system = ps->encode_coding_system;
setup_process_coding_systems (proc);
p->decoding_buf = make_uninit_string (0);
p->decoding_buf = empty_unibyte_string;
p->decoding_carryover = 0;
p->encoding_buf = make_uninit_string (0);
p->encoding_buf = empty_unibyte_string;
p->inherit_coding_system_flag
= (NILP (buffer) ? 0 : ps->inherit_coding_system_flag);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment