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;