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 0dfe1622971..9f2d379c330 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4278,19 +4278,6 @@ Data that is unavailable is returned as nil. */)
4278#endif 4278#endif
4279} 4279}
4280 4280
4281/* If program file NAME starts with /: for quoting a magic
4282 name, remove that, preserving the multibyteness of NAME. */
4283
4284Lisp_Object
4285remove_slash_colon (Lisp_Object name)
4286{
4287 return
4288 ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':')
4289 ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2,
4290 SBYTES (name) - 2, STRING_MULTIBYTE (name))
4291 : name);
4292}
4293
4294/* Turn off input and output for process PROC. */ 4281/* Turn off input and output for process PROC. */
4295 4282
4296static void 4283static void
@@ -7483,6 +7470,19 @@ add_timer_wait_descriptor (int fd)
7483 7470
7484#endif /* HAVE_TIMERFD */ 7471#endif /* HAVE_TIMERFD */
7485 7472
7473/* If program file NAME starts with /: for quoting a magic
7474 name, remove that, preserving the multibyteness of NAME. */
7475
7476Lisp_Object
7477remove_slash_colon (Lisp_Object name)
7478{
7479 return
7480 ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':')
7481 ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2,
7482 SBYTES (name) - 2, STRING_MULTIBYTE (name))
7483 : name);
7484}
7485
7486/* Add DESC to the set of keyboard input descriptors. */ 7486/* Add DESC to the set of keyboard input descriptors. */
7487 7487
7488void 7488void
@@ -8010,13 +8010,6 @@ The variable takes effect when `start-process' is called. */);
8010 defsubr (&Sset_process_filter_multibyte); 8010 defsubr (&Sset_process_filter_multibyte);
8011 defsubr (&Sprocess_filter_multibyte_p); 8011 defsubr (&Sprocess_filter_multibyte_p);
8012 8012
8013#endif /* subprocesses */
8014
8015 defsubr (&Sget_buffer_process);
8016 defsubr (&Sprocess_inherit_coding_system_flag);
8017 defsubr (&Slist_system_processes);
8018 defsubr (&Sprocess_attributes);
8019
8020 { 8013 {
8021 Lisp_Object subfeatures = Qnil; 8014 Lisp_Object subfeatures = Qnil;
8022 const struct socket_options *sopt; 8015 const struct socket_options *sopt;
@@ -8049,4 +8042,10 @@ The variable takes effect when `start-process' is called. */);
8049 Fprovide (intern_c_string ("make-network-process"), subfeatures); 8042 Fprovide (intern_c_string ("make-network-process"), subfeatures);
8050 } 8043 }
8051 8044
8045#endif /* subprocesses */
8046
8047 defsubr (&Sget_buffer_process);
8048 defsubr (&Sprocess_inherit_coding_system_flag);
8049 defsubr (&Slist_system_processes);
8050 defsubr (&Sprocess_attributes);
8052} 8051}