Mercurial > emacs
comparison src/callproc.c @ 91551:f14242124fd7
* process.c (Fstart_process):
* callproc.c (Fcall_process): Handle the case where
Funhandled_file_name_directory returns nil.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 06 Feb 2008 03:16:10 +0000 |
| parents | c70e45a7acfd |
| children | 8971ddf55736 |
comparison
equal
deleted
inserted
replaced
| 91550:83267bc0360a | 91551:f14242124fd7 |
|---|---|
| 374 | 374 |
| 375 current_dir = current_buffer->directory; | 375 current_dir = current_buffer->directory; |
| 376 | 376 |
| 377 GCPRO4 (infile, buffer, current_dir, error_file); | 377 GCPRO4 (infile, buffer, current_dir, error_file); |
| 378 | 378 |
| 379 current_dir | 379 current_dir = Funhandled_file_name_directory (current_dir); |
| 380 = expand_and_dir_to_file (Funhandled_file_name_directory (current_dir), | 380 if (NILP (current_dir)) |
| 381 Qnil); | 381 /* If the file name handler says that current_dir is unreachable, use |
| 382 a sensible default. */ | |
| 383 current_dir = build_string ("~/"); | |
| 384 current_dir = expand_and_dir_to_file (current_dir, Qnil); | |
| 382 if (NILP (Ffile_accessible_directory_p (current_dir))) | 385 if (NILP (Ffile_accessible_directory_p (current_dir))) |
| 383 report_file_error ("Setting current directory", | 386 report_file_error ("Setting current directory", |
| 384 Fcons (current_buffer->directory, Qnil)); | 387 Fcons (current_buffer->directory, Qnil)); |
| 385 | 388 |
| 386 if (STRING_MULTIBYTE (infile)) | 389 if (STRING_MULTIBYTE (infile)) |