comparison src/fileio.c @ 28117:9fa9af3f0ca7

(Fread_file_name): Handle case that DIR contains a file name.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 12 Mar 2000 16:23:35 +0000
parents 8ef4ce88fa64
children 4b675266db04
comparison
equal deleted inserted replaced
28116:25edeaccc41f 28117:9fa9af3f0ca7
5594 #ifdef USE_MOTIF 5594 #ifdef USE_MOTIF
5595 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) 5595 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
5596 && use_dialog_box 5596 && use_dialog_box
5597 && have_menus_p ()) 5597 && have_menus_p ())
5598 { 5598 {
5599 /* If DIR contains a file name, split it. */
5600 Lisp_Object file;
5601 file = Ffile_name_nondirectory (dir);
5602 if (XSTRING (file)->size && NILP (default_filename))
5603 {
5604 default_filename = file;
5605 dir = Ffile_name_directory (dir);
5606 }
5607 default_filename = Fexpand_file_name (default_filename, dir);
5599 val = Fx_file_dialog (prompt, dir, default_filename, mustmatch); 5608 val = Fx_file_dialog (prompt, dir, default_filename, mustmatch);
5600 add_to_history = 1; 5609 add_to_history = 1;
5601 } 5610 }
5602 else 5611 else
5603 #endif 5612 #endif