* 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 2ff8b0599c4baa625e8e1b11edd9371cca10c93d..087b99d87f3f73e6f1261198392e2f2f7f04f359 100644 (file)
--- 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)