1 files changed, 19 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 407c48b9a90..7b6236b7cbb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,22 @@
+2002-05-28  Kim F. Storm  <storm@cua.dk>
+
+        * fileio.c: (Vread_file_name_function, Vread_file_name_predicate):
+        New variables.
+        (syms_of_fileio): DEFVAR_LISP them.
+        (read_file_name_cleanup): New unwind function.
+        (Fread_file_name_internal): Only return completions satifying
+        Vread_file_name_predicate.  Temporarily unwind protect and rebind
+        default-directory while checking completions against the predicate.
+        (Fread_file_name): Added PREDICATE argument.  Specbind it to
+        Vread_file_name_predicate during completion.
+        Call Vread_file_name_function to read the file name if non-nil.
+
+        * lisp.h (Fread_file_name): Now has 6 args.
+        
+        * callint.c (Fcall_interactively) <"D">: Supply Qfile_directory_p
+        predicate for Fread_file_name when reading directory name.
+        Supply Qnil for predicate in other calls to Fread_file_name.
+
 2002-05-26  Miles Bader  <miles@gnu.org>
 
         * term.c (tty_capable_p): New function.