mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-24 19:03:29 +00:00
Code Issues Releases Activity

(Fmsdos_downcase_filename): Don't change the argument, return a copy.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-05-12 17:45:36 +00:00
parent bef2adcfdb
commit 323fa9398e
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/msdos.c
View File

@ -2246,14 +2246,21 @@ msdos_downcase_filename (p)
DEFUN ("msdos-downcase-filename", Fmsdos_downcase_filename, Smsdos_downcase_filename,
1, 1, 0,
"Convert alphabetic characters in FILENAME to lower case and return that.\n\
When long filenames are supported, doesn't change FILENAME.")
When long filenames are supported, doesn't change FILENAME.\n\
If FILENAME is not a string, returns nil.\n\
The argument object is never altered--the value is a copy.")
(filename)
Lisp_Object filename;
{
char *fname = XSTRING (filename)->data;
char *fname;
Lisp_Object tem;
msdos_downcase_filename (fname);
return make_string (fname, XSTRING (filename)->size);
if (! STRINGP (filename))
return Qnil;
tem = Fcopy_sequence (filename);
msdos_downcase_filename (XSTRING (tem)->data);
return tem;
}
/* The Emacs root directory as determined by init_environment. */