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 | b537a6c701656e0fd657ad48a45e3597e42df7d2 (patch) | |
| tree | 29176398d2364d2a51fe6d9fbe9d6941af61a64a | |
| parent | 94b041809bc2735d8aa2e813ed9a2d6528f3fa29 (diff) | |
| download | emacs-b537a6c701656e0fd657ad48a45e3597e42df7d2.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)) { |