From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 27 Dec 2018 16:52:30 +0000 (+0200)
Subject: Avoid assertion violation in directory-files
X-Git-Tag: emacs-27.0.90~3909
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8576aba8fa45549985566bc8be4921dce508dd9;p=emacs.git

Avoid assertion violation in directory-files

* src/dired.c (directory_files_internal): Make sure MATCH is
either nil or a string.  (Bug#33889)
---

diff --git a/src/dired.c b/src/dired.c
index b81e35384ea..3f5c93b5732 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -236,6 +236,9 @@ directory_files_internal (Lisp_Object directory, Lisp_Object full,
 #endif
     ;
 
+  if (!NILP (match))
+    CHECK_STRING (match);
+
   /* Loop reading directory entries.  */
   for (struct dirent *dp; (dp = read_dirent (d, directory)); )
     {