procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* process.c (Fstart_process, Fmake_serial_process)
(Fmake_network_process, server_accept_connection):
Use empty_unibyte_string.
This commit is contained in:
Stefan Monnier 2011-02-18 12:37:30 -05:00
parent aa56f3613e
commit cbe81f1d96
3 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/ChangeLog
View file

@ -1,5 +1,11 @@
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.

1
src/alloc.c
View file

@ -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;
}

16
src/process.c
View file

@ -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);