From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 Jul 1999 14:15:48 +0000 (+0000)
Subject: (Fread_file_name): Check type of DEFAULT_FILENAME.
X-Git-Tag: emacs-20.4~40
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b537a6c701656e0fd657ad48a45e3597e42df7d2;p=emacs.git

(Fread_file_name): Check type of DEFAULT_FILENAME.
---

diff --git a/src/fileio.c b/src/fileio.c
index 893073d9cd7..702d9ac1299 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5451,7 +5451,10 @@ DIR defaults to current buffer's directory default.")
       XSTRING (default_filename)->data[0] = '~';
     }
   if (!NILP (default_filename))
-    default_filename = double_dollars (default_filename);
+    {
+      CHECK_STRING (default_filename, 3);
+      default_filename = double_dollars (default_filename);
+    }
 
   if (insert_default_directory && STRINGP (dir))
     {