1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00

(quote_file_name): Quote with &, not \.

Quote `-' only at start of file name.  Terminate the value string.
This commit is contained in:
Richard M. Stallman 1996-09-02 17:43:32 +00:00
parent e5446a46ef
commit f1db6a73ef

View File

@ -104,8 +104,8 @@ print_help_and_exit ()
exit (1);
}
/* Return a copy of NAME, inserting a \
before each \, each -, and each space.
/* Return a copy of NAME, inserting a &
before each &, each space, and any initial -.
Change spaces to underscores, too, so that the
return value never contains a space. */
@ -122,17 +122,18 @@ quote_file_name (name)
{
if (*p == ' ')
{
*q++ = '\\';
*q++ = '&';
*q++ = '_';
p++;
}
else
{
if (*p == '\\' || *p == '-')
*q++ = '\\';
if (*p == '&' || (*p == '-' && p == name))
*q++ = '&';
*q++ = *p++;
}
}
*q++ = 0;
return copy;
}