aboutsummaryrefslogtreecommitdiffstats
path: root/src/process.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/process.c')
-rw-r--r--src/process.c39
1 files changed, 19 insertions, 20 deletions
diff --git a/src/process.c b/src/process.c
index dd508836f79..2c758a4c9a7 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4085,19 +4085,6 @@ Data that is unavailable is returned as nil. */)
4085#endif 4085#endif
4086} 4086}
4087 4087
4088/* If program file NAME starts with /: for quoting a magic
4089 name, remove that, preserving the multibyteness of NAME. */
4090
4091Lisp_Object
4092remove_slash_colon (Lisp_Object name)
4093{
4094 return
4095 ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':')
4096 ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2,
4097 SBYTES (name) - 2, STRING_MULTIBYTE (name))
4098 : name);
4099}
4100
4101/* Turn off input and output for process PROC. */ 4088/* Turn off input and output for process PROC. */
4102 4089
4103static void 4090static void
@@ -7118,6 +7105,19 @@ add_timer_wait_descriptor (int fd)
7118 7105
7119#endif /* HAVE_TIMERFD */ 7106#endif /* HAVE_TIMERFD */
7120 7107
7108/* If program file NAME starts with /: for quoting a magic
7109 name, remove that, preserving the multibyteness of NAME. */
7110
7111Lisp_Object
7112remove_slash_colon (Lisp_Object name)
7113{
7114 return
7115 ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':')
7116 ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2,
7117 SBYTES (name) - 2, STRING_MULTIBYTE (name))
7118 : name);
7119}
7120
7121/* Add DESC to the set of keyboard input descriptors. */ 7121/* Add DESC to the set of keyboard input descriptors. */
7122 7122
7123void 7123void
@@ -7643,13 +7643,6 @@ The variable takes effect when `start-process' is called. */);
7643 defsubr (&Sset_process_filter_multibyte); 7643 defsubr (&Sset_process_filter_multibyte);
7644 defsubr (&Sprocess_filter_multibyte_p); 7644 defsubr (&Sprocess_filter_multibyte_p);
7645 7645
7646#endif /* subprocesses */
7647
7648 defsubr (&Sget_buffer_process);
7649 defsubr (&Sprocess_inherit_coding_system_flag);
7650 defsubr (&Slist_system_processes);
7651 defsubr (&Sprocess_attributes);
7652
7653 { 7646 {
7654 Lisp_Object subfeatures = Qnil; 7647 Lisp_Object subfeatures = Qnil;
7655 const struct socket_options *sopt; 7648 const struct socket_options *sopt;
@@ -7684,4 +7677,10 @@ The variable takes effect when `start-process' is called. */);
7684 Fprovide (intern_c_string ("make-network-process"), subfeatures); 7677 Fprovide (intern_c_string ("make-network-process"), subfeatures);
7685 } 7678 }
7686 7679
7680#endif /* subprocesses */
7681
7682 defsubr (&Sget_buffer_process);
7683 defsubr (&Sprocess_inherit_coding_system_flag);
7684 defsubr (&Slist_system_processes);
7685 defsubr (&Sprocess_attributes);
7687} 7686}