# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862989970 0
# Node ID ad3a8768539af3480139354d11f0d7c2e50e3989
# Parent  3fa9da85b3ea4ce1ea49712d073b47991280d07e
(Fread_file_name): Pass default to Fcompleting_read.

diff -r 3fa9da85b3ea -r ad3a8768539a src/fileio.c
--- a/src/fileio.c	Wed May 07 04:01:44 1997 +0000
+++ b/src/fileio.c	Wed May 07 07:26:10 1997 +0000
@@ -4854,7 +4854,7 @@
   GCPRO2 (insdef, default_filename);
   val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
 			  dir, mustmatch, insdef1,
-			  Qfile_name_history);
+			  Qfile_name_history, default_filename);
 
 #ifdef VMS
   unbind_to (count, Qnil);