Add a string check to delete-file-internal.

* src/fileio.c (delete-file-internal): Argument should be a string.
2023-08-09 00:02:22 -04:00
parent 5af838769d
commit dbca2e797a
1 changed files with 1 additions and 0 deletions
--- 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);