Mercurial > hg > xemacs-beta
comparison src/callproc.c @ 276:6330739388db r21-0b36
Import from CVS: tag r21-0b36
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:30:37 +0200 |
parents | ca9a9ec9c1c1 |
children | 558f606b08ae |
comparison
equal
deleted
inserted
replaced
275:a68ae4439f57 | 276:6330739388db |
---|---|
213 NGCPRO2 (current_dir, path); /* Caller gcprotects args[] */ | 213 NGCPRO2 (current_dir, path); /* Caller gcprotects args[] */ |
214 current_dir = current_buffer->directory; | 214 current_dir = current_buffer->directory; |
215 current_dir = Funhandled_file_name_directory (current_dir); | 215 current_dir = Funhandled_file_name_directory (current_dir); |
216 current_dir = expand_and_dir_to_file (current_dir, Qnil); | 216 current_dir = expand_and_dir_to_file (current_dir, Qnil); |
217 #if 0 | 217 #if 0 |
218 /* reportedly causes problems with ange-ftp-visited-files */ | 218 /* This is in FSF, but it breaks everything in the presence of |
219 ange-ftp-visited files, so away with it. */ | |
219 if (NILP (Ffile_accessible_directory_p (current_dir))) | 220 if (NILP (Ffile_accessible_directory_p (current_dir))) |
220 report_file_error ("Setting current directory", | 221 report_file_error ("Setting current directory", |
221 Fcons (current_buffer->directory, Qnil)); | 222 Fcons (current_buffer->directory, Qnil)); |
222 #endif /* 0 */ | 223 #endif /* 0 */ |
223 NUNGCPRO; | 224 NUNGCPRO; |