Mercurial > hg > xemacs-beta

comparison src/callproc.c @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 0784d089fdc9
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
219 * called by various filename-hacking routines might relocate strings */ 219 * called by various filename-hacking routines might relocate strings */
220 /* Make sure that the child will be able to chdir to the current 220 /* Make sure that the child will be able to chdir to the current
221 buffer's current directory. We can't just have the child check 221 buffer's current directory. We can't just have the child check
222 for an error when it does the chdir, since it's in a vfork. */ 222 for an error when it does the chdir, since it's in a vfork. */
223 223
224 current_dir = current_buffer->directory;
224 NGCPRO2 (current_dir, path); /* Caller gcprotects args[] */ 225 NGCPRO2 (current_dir, path); /* Caller gcprotects args[] */
225 current_dir = current_buffer->directory;
226 current_dir = Funhandled_file_name_directory (current_dir); 226 current_dir = Funhandled_file_name_directory (current_dir);
227 current_dir = expand_and_dir_to_file (current_dir, Qnil); 227 current_dir = expand_and_dir_to_file (current_dir, Qnil);
228 #if 0 228 #if 0
229 /* This is in FSF, but it breaks everything in the presence of 229 /* This is in FSF, but it breaks everything in the presence of
230 ange-ftp-visited files, so away with it. */ 230 ange-ftp-visited files, so away with it. */