From 55bdbaca41f7d1a7e7948e8ccabbbd6b63d4ab59 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 17 Jul 2002 17:10:26 +0000
Subject: [PATCH] (Fchar_ref_p): New function. (syms_of_data): Add new builtin
 function `char-ref-p'.

---
 src/data.c |    9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/data.c b/src/data.c
index 7651b02..6769058 100644
--- a/src/data.c
+++ b/src/data.c
@@ -461,6 +461,14 @@ confoundedness in older versions of E-Lisp.
 {
   return CHAR_OR_CHAR_INTP (object) || STRINGP (object) ? Qt : Qnil;
 }
+
+DEFUN ("char-ref-p", Fchar_ref_p, 1, 1, 0, /*
+Return t if OBJECT is a character-reference.
+*/
+       (object))
+{
+  return CONSP (object) && KEYWORDP (XCAR (object)) ? Qt : Qnil;
+}
 
 DEFUN ("integerp", Fintegerp, 1, 1, 0, /*
 Return t if OBJECT is an integer.
@@ -2159,6 +2167,7 @@ syms_of_data (void)
   DEFSUBR (Fchar_to_int);
   DEFSUBR (Fint_to_char);
   DEFSUBR (Fchar_or_char_int_p);
+  DEFSUBR (Fchar_ref_p);
   DEFSUBR (Fintegerp);
   DEFSUBR (Finteger_or_marker_p);
   DEFSUBR (Finteger_or_char_p);
-- 
1.7.10.4