Commit d4b352af authored by Paul Eggert's avatar Paul Eggert
Browse files

remove_slash_colon need not be inline

* process.c, process.h (remove_slash_colon): No longer inline.
This saves text bytes without hurting runtime performance.
parent d7e26b44
2015-01-14 Paul Eggert <eggert@cs.ucla.edu>
remove_slash_colon need not be inline
* process.c, process.h (remove_slash_colon): No longer inline.
This saves text bytes without hurting runtime performance.
2015-01-14 Dmitry Antipov <dmantipov@yandex.ru>
 
Avoid extra multibyteness check in ENCODE_FILE users.
......
......@@ -3827,6 +3827,18 @@ Data that is unavailable is returned as nil. */)
#endif
}
/* If program file NAME starts with /: for quoting a magic
name, remove that, preserving the multibyteness of NAME. */
Lisp_Object
remove_slash_colon (Lisp_Object name)
{
return
((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':')
? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2,
SBYTES (name) - 2, STRING_MULTIBYTE (name))
: name);
}
/* Turn off input and output for process PROC. */
......
......@@ -237,17 +237,6 @@ extern Lisp_Object network_interface_list (void);
extern Lisp_Object network_interface_info (Lisp_Object);
#endif
/* If program file NAME starts with /: for quoting a magic
name, remove that, preserving the multibyteness of NAME. */
INLINE Lisp_Object
remove_slash_colon (Lisp_Object name)
{
return
((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':')
? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2,
SBYTES (name) - 2, STRING_MULTIBYTE (name))
: name);
}
extern Lisp_Object remove_slash_colon (Lisp_Object);
INLINE_HEADER_END
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