mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

* src/w32fns.c (process_dropfiles): Fix cygw32 build (bug#74312).

Browse Source
This commit is contained in:
Eli Zaretskii 2024-11-11 18:04:52 +02:00
parent 1704fa4fb4
commit 6ddbe8c701
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/w32fns.c
View File

@ -2479,9 +2479,22 @@ static Lisp_Object
process_dropfiles (DROPFILES *files) process_dropfiles (DROPFILES *files)
{ {
char *start_of_files = (char *) files + files->pFiles; char *start_of_files = (char *) files + files->pFiles;
#ifndef NTGUI_UNICODE
char filename[MAX_UTF8_PATH]; char filename[MAX_UTF8_PATH];
#endif
Lisp_Object lisp_files = Qnil; Lisp_Object lisp_files = Qnil;
#ifdef NTGUI_UNICODE
WCHAR *p = (WCHAR *) start_of_files;
for (; *p; p += wcslen (p) + 1)
{
Lisp_Object fn = from_unicode_buffer (p);
#ifdef CYGWIN
fn = Fcygwin_convert_file_name_to_windows (fn, Qt);
#endif
lisp_files = Fcons (fn, lisp_files);
}
#else
if (files->fWide) if (files->fWide)
{ {
WCHAR *p = (WCHAR *) start_of_files; WCHAR *p = (WCHAR *) start_of_files;
@ -2502,6 +2515,7 @@ process_dropfiles (DROPFILES *files)
lisp_files); lisp_files);
} }
} }
#endif
return lisp_files; return lisp_files;
} }