diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-02-06 03:16:10 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-02-06 03:16:10 +0000 |
| commit | ca3199106fe185dd5d42e5086a7e5c4f7ea10659 (patch) | |
| tree | efb194ceb0a413d37973cfdebd24ab574c1d0d3c /src/process.c | |
| parent | f9ffa1eabb499f073b72015041ac2ed1d10f34e7 (diff) | |
| download | emacs-ca3199106fe185dd5d42e5086a7e5c4f7ea10659.tar.gz emacs-ca3199106fe185dd5d42e5086a7e5c4f7ea10659.tar.bz2 emacs-ca3199106fe185dd5d42e5086a7e5c4f7ea10659.zip | |
* process.c (Fstart_process):
* callproc.c (Fcall_process): Handle the case where
Funhandled_file_name_directory returns nil.
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/process.c b/src/process.c index e5546488aae..73da0db18a8 100644 --- a/src/process.c +++ b/src/process.c @@ -1614,9 +1614,12 @@ usage: (start-process NAME BUFFER PROGRAM &rest PROGRAM-ARGS) */) GCPRO2 (buffer, current_dir); - current_dir - = expand_and_dir_to_file (Funhandled_file_name_directory (current_dir), - Qnil); + current_dir = Funhandled_file_name_directory (current_dir); + if (NILP (current_dir)) + /* If the file name handler says that current_dir is unreachable, use + a sensible default. */ + current_dir = build_string ("~/"); + current_dir = expand_and_dir_to_file (current_dir, Qnil); if (NILP (Ffile_accessible_directory_p (current_dir))) report_file_error ("Setting current directory", Fcons (current_buffer->directory, Qnil)); |