From ca3199106fe185dd5d42e5086a7e5c4f7ea10659 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 6 Feb 2008 03:16:10 +0000 Subject: * process.c (Fstart_process): * callproc.c (Fcall_process): Handle the case where Funhandled_file_name_directory returns nil. --- src/process.c | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/process.c') diff --git a/src/process.c b/src/process.c index e5546488aa..73da0db18a 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)); -- cgit v1.2.3