From 62f0e46e2b012b73661e60d8bab65eee0c87169d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 Jul 1999 14:15:48 +0000 Subject: (Fread_file_name): Check type of DEFAULT_FILENAME. --- src/fileio.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)) { -- cgit v1.2.1