Parent Directory | Revision Log | Patch
revision 1.492.2.24 by handa, Mon Oct 4 01:21:43 2004 UTC | revision 1.492.2.25 by miles, Thu Nov 4 08:55:31 2004 UTC | |
---|---|---|
# | Line 6237 and `read-file-name-function'. */) | Line 6237 and `read-file-name-function'. */) |
6237 | } | } |
6238 | if (!NILP(default_filename)) | if (!NILP(default_filename)) |
6239 | default_filename = Fexpand_file_name (default_filename, dir); | default_filename = Fexpand_file_name (default_filename, dir); |
6240 | val = Fx_file_dialog (prompt, dir, default_filename, mustmatch); | val = Fx_file_dialog (prompt, dir, default_filename, mustmatch, |
6241 | EQ (predicate, Qfile_directory_p) ? Qt : Qnil); | |
6242 | add_to_history = 1; | add_to_history = 1; |
6243 | } | } |
6244 | else | else |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |