From e44320953357900a80cd0b9a5e8e832f1005c457 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Wed, 19 May 1993 06:01:21 +0000
Subject: [PATCH] * fileio.c (Ffind_file_name_handler): Check that FILENAME is
 a 	string.

---
 src/fileio.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/fileio.c b/src/fileio.c
index 5e6f048b9c..ff79504430 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -174,6 +174,8 @@ A file name is handled if one of the regular expressions in\n\
 {
   /* This function must not munge the match data.  */
 
+  CHECK_STRING (filename, 0);
+
   Lisp_Object chain;
   for (chain = Vfile_name_handler_alist; XTYPE (chain) == Lisp_Cons;
        chain = XCONS (chain)->cdr)
-- 
2.20.1