From dbca2e797abeaedb54a85c22ca004cc041ffec4d Mon Sep 17 00:00:00 2001
From: Eric S. Raymond
Date: Wed, 9 Aug 2023 00:02:22 -0400
Subject: Add a string check to delete-file-internal.

* src/fileio.c (delete-file-internal): Argument should be a string.
---
 src/fileio.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/fileio.c b/src/fileio.c
index 4c00f1e5ff4..14e39445efa 100644
--- 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);
 
-- 
cgit v1.2.1