From: Eric S. Raymond <esr@thyrsus.com>
Date: Wed, 9 Aug 2023 04:02:22 +0000 (-0400)
Subject: Add a string check to delete-file-internal.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dbca2e797abeaedb54a85c22ca004cc041ffec4d;p=emacs.git

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 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);