* 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.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9839c7fcc9839ca0a06e9c2919dff96fa00183f0..dea7b2547fd30c5b678145b58414db6926d8399e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/alloc.c b/src/alloc.c
index e8b8f45e9b1b5ea0f8527b6908b7e1e5061ab29f..d7006ca6bfdda1961905f0e5f0cb9e6e018c9c02 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -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;
 }
 

diff --git a/src/process.c b/src/process.c
index 4a145f7376a0c9ef838d4f2a7f60e5eb226be985..210287a85f1d5b3390df757521aa6eb6d5fa5478 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -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);