Define the `mutexp' function.

diff --git a/src/data.c b/src/data.c
index 1263902d16f9785db43a0f1bf598fdc0e3db16d6..fa28b883ded0e0447a3d63e9d76e7c58cfd25c71 100644 (file)
--- 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 c2847b168c50c12ca57581b765e11d975152577c..857e184e3dee1c739f1a10f3cdc4f52a9458f44a 100644 (file)
--- 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);