mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(directory_files_internal_unwind, directory_files_internal)

Browse Source 
(file_name_completion): Add BLOCK_INPUT around opendir/closedir.
This commit is contained in:
YAMAMOTO Mitsuharu 2006-08-27 07:08:39 +00:00
parent f3c4a0e1d2
commit d15b573ed5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/dired.c
View File

@ -134,7 +134,9 @@ directory_files_internal_unwind (dh)
Lisp_Object dh;
{
DIR *d = (DIR *) XSAVE_VALUE (dh)->pointer;
BLOCK_INPUT;
closedir (d);
UNBLOCK_INPUT;
return Qnil;
}
@ -196,7 +198,9 @@ directory_files_internal (directory, full, match, nosort, attrs, id_format)
/* Now *bufp is the compiled form of MATCH; don't call anything
which might compile a new regexp until we're done with the loop! */
BLOCK_INPUT;
d = opendir (SDATA (dirfilename));
UNBLOCK_INPUT;
if (d == NULL)
report_file_error ("Opening directory", Fcons (directory, Qnil));
@ -321,7 +325,9 @@ directory_files_internal (directory, full, match, nosort, attrs, id_format)
}
}
BLOCK_INPUT;
closedir (d);
UNBLOCK_INPUT;
/* Discard the unwind protect. */
specpdl_ptr = specpdl + count;
@ -508,7 +514,9 @@ file_name_completion (file, dirname, all_flag, ver_flag)
{
int inner_count = SPECPDL_INDEX ();
BLOCK_INPUT;
d = opendir (SDATA (Fdirectory_file_name (encoded_dir)));
UNBLOCK_INPUT;
if (!d)
report_file_error ("Opening directory", Fcons (dirname, Qnil));