From: Giuseppe Scrivano Date: Mon, 29 Mar 2010 09:52:46 +0000 (+0200) Subject: Define the `mutexp' function. X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f17afbf5c25bd0901eb5d9800a07b9e8b7981293;p=emacs.git Define the `mutexp' function. --- 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);