Commit c4c52bb7 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

2007-03-17 Richard M. Stallman <rms@gnu.org>

(file_name_completion): Gcpro NAME.
parent e3a1ed3b
......@@ -670,8 +670,15 @@ file_name_completion (file, dirname, all_flag, ver_flag, predicate)
if (!NILP (predicate))
{
Lisp_Object decoded;
Lisp_Object val;
struct gcpro gcpro1;
GCPRO1 (name);
decoded = Fexpand_file_name (DECODE_FILE (name), dirname);
if (NILP (call1 (predicate, decoded)))
val = call1 (predicate, decoded);
UNGCPRO;
if (NILP (val))
continue;
}
......@@ -694,7 +701,7 @@ file_name_completion (file, dirname, all_flag, ver_flag, predicate)
compare = min (bestmatchsize, len);
p1 = SDATA (bestmatch);
p2 = (unsigned char *) dp->d_name;
matchsize = scmp(p1, p2, compare);
matchsize = scmp (p1, p2, compare);
if (matchsize < 0)
matchsize = compare;
if (completion_ignore_case)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment