From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 7 May 1997 07:26:10 +0000 (+0000)
Subject: (Fread_file_name): Pass default to Fcompleting_read.
X-Git-Tag: emacs-20.1~2254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97d0510c9d629c1a6327159a89055871edb89f44;p=emacs.git

(Fread_file_name): Pass default to Fcompleting_read.
---

diff --git a/src/fileio.c b/src/fileio.c
index 6560f28bb70..9caa355dac5 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4854,7 +4854,7 @@ DIR defaults to current buffer's directory default.")
   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);