From f17afbf5c25bd0901eb5d9800a07b9e8b7981293 Mon Sep 17 00:00:00 2001 From: Giuseppe Scrivano Date: Mon, 29 Mar 2010 11:52:46 +0200 Subject: [PATCH] Define the `mutexp' function. --- src/data.c | 11 +++++++++++ src/lisp.h | 1 + 2 files changed, 12 insertions(+) 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); -- 2.39.5