# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 952878215 0
# Node ID 9fa9af3f0ca772ef5a43de12416bed70998a977f
# Parent  25edeaccc41fe48eb0a3093e003d26d591cf534c
(Fread_file_name): Handle case that DIR contains a
file name.

diff -r 25edeaccc41f -r 9fa9af3f0ca7 src/fileio.c
--- a/src/fileio.c	Sun Mar 12 16:22:19 2000 +0000
+++ b/src/fileio.c	Sun Mar 12 16:23:35 2000 +0000
@@ -5596,6 +5596,15 @@
       && use_dialog_box
       && have_menus_p ())
     {
+      /* If DIR contains a file name, split it.  */
+      Lisp_Object file;
+      file = Ffile_name_nondirectory (dir);
+      if (XSTRING (file)->size && NILP (default_filename))
+	{
+	  default_filename = file;
+	  dir = Ffile_name_directory (dir);
+	}
+      default_filename = Fexpand_file_name (default_filename, dir);
       val = Fx_file_dialog (prompt, dir, default_filename, mustmatch);
       add_to_history = 1;
     }