[Emacs-diffs] Changes to emacs/src/dired.c,v

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  07/03/17 23:44:57

Index: dired.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/dired.c,v
retrieving revision 1.130
retrieving revision 1.131
diff -u -b -r1.130 -r1.131
--- dired.c     13 Jan 2007 21:45:34 -0000      1.130
+++ dired.c     17 Mar 2007 23:44:57 -0000      1.131
@@ -670,8 +670,15 @@
          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 @@
              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)