diff options
Diffstat (limited to 'src/fileio.c')
-rw-r--r-- | src/fileio.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index c10969378b..68ca97cf57 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -6321,7 +6321,8 @@ and `read-file-name-function'. */) } if (!NILP(default_filename)) default_filename = Fexpand_file_name (default_filename, dir); - val = Fx_file_dialog (prompt, dir, default_filename, mustmatch); + val = Fx_file_dialog (prompt, dir, default_filename, mustmatch, + EQ (predicate, Qfile_directory_p) ? Qt : Qnil); add_to_history = 1; } else |