From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Dec 2006 20:11:16 +0000 (+0000)
Subject: (Fread_file_name_internal): Pass Vread_file_name_predicate
X-Git-Tag: emacs-pretest-22.0.92~66
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aaf469fc3d293981e8ed3d50f558cb31b1614c97;p=emacs.git

(Fread_file_name_internal): Pass Vread_file_name_predicate
to Ffile_name_completion.
---

diff --git a/src/fileio.c b/src/fileio.c
index 50c5a40e6b2..3392a47be09 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -6159,7 +6159,7 @@ DEFUN ("read-file-name-internal", Fread_file_name_internal, Sread_file_name_inte
   if (NILP (action))
     {
       specdir = Ffile_name_directory (string);
-      val = Ffile_name_completion (name, realdir);
+      val = Ffile_name_completion (name, realdir, Vread_file_name_predicate);
       UNGCPRO;
       if (!STRINGP (val))
 	{