From: Pip Cet <pipcet@protonmail.com>
Date: Mon, 5 Aug 2024 21:46:58 +0000 (+0000)
Subject: * src/search.c (Fre__describe_compiled): Use 'CHECK_STRING'.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a80d0d23826293a791ba3aea6b89493275b50665;p=emacs.git

* src/search.c (Fre__describe_compiled): Use 'CHECK_STRING'.

(cherry picked from commit ca258e81b81539dc20a06958f911fc5dcd3df922)
---

diff --git a/src/search.c b/src/search.c
index 2ff8b0599c4..087b99d87f3 100644
--- a/src/search.c
+++ b/src/search.c
@@ -3405,6 +3405,7 @@ DEFUN ("re--describe-compiled", Fre__describe_compiled, Sre__describe_compiled,
 If RAW is non-nil, just return the actual bytecode.  */)
   (Lisp_Object regexp, Lisp_Object raw)
 {
+  CHECK_STRING (regexp);
   struct regexp_cache *cache_entry
     = compile_pattern (regexp, NULL,
                        (!NILP (Vcase_fold_search)