Commit f73f57bd authored by Jason Rumney's avatar Jason Rumney
Browse files

(Fread_file_name) [HAVE_NTGUI]: Use file dialog.

(Fread_file_name) [HAVE_NTGUI, USE_MOTIF]: Do not attempt to expand a
nil default_filename.
parent b40b05b6
......@@ -5662,7 +5662,7 @@ DIR defaults to current buffer's directory default.")
GCPRO2 (insdef, default_filename);
#ifdef USE_MOTIF
#if defined (USE_MOTIF) || defined (HAVE_NTGUI)
if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
&& use_dialog_box
&& have_menus_p ())
......@@ -5675,7 +5675,8 @@ DIR defaults to current buffer's directory default.")
default_filename = file;
dir = Ffile_name_directory (dir);
}
default_filename = Fexpand_file_name (default_filename, dir);
if (!NILP(default_filename))
default_filename = Fexpand_file_name (default_filename, dir);
val = Fx_file_dialog (prompt, dir, default_filename, mustmatch);
add_to_history = 1;
}
......
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