Mercurial > emacs
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 |