6198 |
|
|
6199 |
if (NILP (dir)) |
if (NILP (dir)) |
6200 |
dir = current_buffer->directory; |
dir = current_buffer->directory; |
6201 |
|
if (NILP (Ffile_name_absolute_p (dir))) |
6202 |
|
dir = Fexpand_file_name (dir, Qnil); |
6203 |
if (NILP (default_filename)) |
if (NILP (default_filename)) |
6204 |
default_filename = !NILP (initial) |
default_filename |
6205 |
? Fexpand_file_name (initial, dir) |
= (!NILP (initial) |
6206 |
: current_buffer->filename; |
? Fexpand_file_name (initial, dir) |
6207 |
|
: current_buffer->filename); |
6208 |
|
|
6209 |
/* If dir starts with user's homedir, change that to ~. */ |
/* If dir starts with user's homedir, change that to ~. */ |
6210 |
homedir = (char *) egetenv ("HOME"); |
homedir = (char *) egetenv ("HOME"); |