Add a string check to delete-file-internal.

* src/fileio.c (delete-file-internal): Argument should be a string.

diff --git a/src/fileio.c b/src/fileio.c
index 4c00f1e5ff4dfb6621cbf6114b01e98bccf6d8c7..14e39445efadf53855d74ba696e11e6cc912ce1f 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2592,6 +2592,7 @@ If file has multiple names, it continues to exist with the other names. */)
 {
   Lisp_Object encoded_file;
 
+  CHECK_STRING (filename);
   filename = Fexpand_file_name (filename, Qnil);
   encoded_file = ENCODE_FILE (filename);