Commit abd5b7f2 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fread_file_name): Expand DIR if not absolute.

parent 017e09ac
......@@ -6198,10 +6198,13 @@ provides a file dialog box. */)
if (NILP (dir))
dir = current_buffer->directory;
if (NILP (Ffile_name_absolute_p (dir)))
dir = Fexpand_file_name (dir, Qnil);
if (NILP (default_filename))
default_filename = !NILP (initial)
? Fexpand_file_name (initial, dir)
: current_buffer->filename;
default_filename
= (!NILP (initial)
? Fexpand_file_name (initial, dir)
: current_buffer->filename);
/* If dir starts with user's homedir, change that to ~. */
homedir = (char *) egetenv ("HOME");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment