Define the `mutexp' function.

2 files changed, 12 insertions, 0 deletions

diff --git a/src/data.c b/src/data.c
index 1263902d16f..fa28b883ded 100644
--- a/src/data.c
+++ b/src/data.c
@@ -426,6 +426,16 @@ DEFUN ("subrp", Fsubrp, Ssubrp, 1, 1, 0,
   return Qnil;
 }
 
+DEFUN ("mutexp", Fmutexp, Smutexp, 1, 1, 0,
+       doc: /* Return t if OBJECT is a mutex.  */)
+     (object)
+     Lisp_Object object;
+{
+  if (MUTEXP (object))
+    return Qt;
+  return Qnil;
+}
+
 DEFUN ("byte-code-function-p", Fbyte_code_function_p, Sbyte_code_function_p,
        1, 1, 0,
        doc: /* Return t if OBJECT is a byte-compiled function object.  */)
@@ -3448,6 +3458,7 @@ syms_of_data ()
   defsubr (&Sbufferp);
   defsubr (&Smarkerp);
   defsubr (&Ssubrp);
+  defsubr (&Smutexp);
   defsubr (&Sbyte_code_function_p);
   defsubr (&Schar_or_string_p);
   defsubr (&Scar);
diff --git a/src/lisp.h b/src/lisp.h
index c2847b168c5..857e184e3de 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2312,6 +2312,7 @@ EXFUN (Fsequencep, 1);
 EXFUN (Fbufferp, 1);
 EXFUN (Fmarkerp, 1);
 EXFUN (Fsubrp, 1);
+EXFUN (Fmutexp, 1);
 EXFUN (Fchar_or_string_p, 1);
 EXFUN (Finteger_or_marker_p, 1);
 EXFUN (Ffloatp, 1);