From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 9 Dec 1996 06:38:01 +0000 (+0000)
Subject: (Fread_file_name_internal): Verify STRING is a string.
X-Git-Tag: emacs-20.1~3293
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58cc37108789f10599db013f2ceb526917d3f4ed;p=emacs.git

(Fread_file_name_internal): Verify STRING is a string.
(Fread_file_name): Don't insert DIR or INITIAL if it isn't a string.
---

diff --git a/src/fileio.c b/src/fileio.c
index 7e8dad19e8c..d8c0f263b3e 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4304,6 +4304,8 @@ DEFUN ("read-file-name-internal", Fread_file_name_internal, Sread_file_name_inte
   int changed;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
 
+  CHECK_STRING (string, 0);
+
   realdir = dir;
   name = string;
   orig_string = Qnil;
@@ -4409,7 +4411,7 @@ DIR defaults to current buffer's directory default.")
       XSTRING (dir)->data[0] = '~';
     }
 
-  if (insert_default_directory)
+  if (insert_default_directory && STRINGP (dir))
     {
       insdef = dir;
       if (!NILP (initial))
@@ -4425,7 +4427,7 @@ DIR defaults to current buffer's directory default.")
       else
 	insdef1 = double_dollars (insdef);
     }
-  else if (!NILP (initial))
+  else if (STRINGP (initial))
     {
       insdef = initial;
       insdef1 = Fcons (double_dollars (insdef), 0);