Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3fcc88cc
Commit
3fcc88cc
authored
Mar 28, 1994
by
Richard M. Stallman
Browse files
(file_name_completion): Protect things from GC.
parent
73804d4b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
2 deletions
+7
-2
src/dired.c
src/dired.c
+7
-2
No files found.
src/dired.c
View file @
3fcc88cc
...
...
@@ -286,6 +286,8 @@ file_name_completion (file, dirname, all_flag, ver_flag)
int
directoryp
;
int
passcount
;
int
count
=
specpdl_ptr
-
specpdl
;
struct
gcpro
gcpro1
,
gcpro2
,
gcpro3
;
#ifdef VMS
extern
DIRENTRY
*
readdirver
();
...
...
@@ -305,8 +307,10 @@ file_name_completion (file, dirname, all_flag, ver_flag)
#ifdef FILE_SYSTEM_CASE
file
=
FILE_SYSTEM_CASE
(
file
);
#endif
dirname
=
Fexpand_file_name
(
dirname
,
Qnil
);
bestmatch
=
Qnil
;
dirname
=
Qnil
;
GCPRO3
(
file
,
dirname
,
bestmatch
);
dirname
=
Fexpand_file_name
(
dirname
,
Qnil
);
/* With passcount = 0, ignore files that end in an ignored extension.
If nothing found then try again with passcount = 1, don't ignore them.
...
...
@@ -451,7 +455,8 @@ file_name_completion (file, dirname, all_flag, ver_flag)
closedir
(
d
);
}
unbind_to
(
count
,
Qnil
);
UNGCPRO
;
bestmatch
=
unbind_to
(
count
,
bestmatch
);
if
(
all_flag
||
NILP
(
bestmatch
))
return
bestmatch
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment