diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-07-01 14:15:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-07-01 14:15:48 +0000 |
| commit | 62f0e46e2b012b73661e60d8bab65eee0c87169d (patch) | |
| tree | 214b54a48f2c91b80df290eca8afd7436d552085 | |
| parent | f1ea90755e72bbe1391614564fef6d2691b706df (diff) | |
| download | emacs-62f0e46e2b012b73661e60d8bab65eee0c87169d.tar.gz | |
(Fread_file_name): Check type of DEFAULT_FILENAME.
| -rw-r--r-- | src/fileio.c | 5 |
1 files changed, 4 insertions, 1 deletions
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)) { |