diff src/chartab.h @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 3d6bfa290dbd
children 19dcec799385
line wrap: on
line diff
--- a/src/chartab.h	Mon Aug 13 10:27:41 2007 +0200
+++ b/src/chartab.h	Mon Aug 13 10:28:48 2007 +0200
@@ -186,6 +186,11 @@
 			       Lisp_Object val, void *arg),
 		    void *arg);
 void prune_syntax_tables (int (*obj_marked_p) (Lisp_Object));
+
+EXFUN (Fcopy_char_table, 1);
+EXFUN (Fmake_char_table, 1);
+EXFUN (Fput_char_table, 3);
+
 extern Lisp_Object Vall_syntax_tables;
 
 
@@ -194,32 +199,33 @@
 int check_category_char(Emchar ch, Lisp_Object ctbl,
 		        unsigned int designator, unsigned int not);
 
-extern Lisp_Object Qcategory_table_p, Qcategory_designator_p;
-extern Lisp_Object Qcategory_table_value_p;
-
 extern Lisp_Object Vstandard_category_table;
 
 #define CATEGORY_DESIGNATORP(x) \
  (CHARP (x) && XCHAR (x) >= 32 && XCHAR (x) <= 126)
 
-#define CHECK_CATEGORY_DESIGNATOR(x)					\
-  do { if (!CATEGORY_DESIGNATORP (x))					\
-         dead_wrong_type_argument (Qcategory_designator_p, (x)); } while (0)
-#define CONCHECK_CATEGORY_DESIGNATOR(x)					\
-  do { if (!CATEGORY_DESIGNATORP (x))					\
-         x = wrong_type_argument (Qcategory_designator_p, (x)); } while (0)
+#define CHECK_CATEGORY_DESIGNATOR(x) do {			\
+  if (!CATEGORY_DESIGNATORP (x))				\
+    dead_wrong_type_argument (Qcategory_designator_p, x);	\
+} while (0)
+
+#define CONCHECK_CATEGORY_DESIGNATOR(x) do {			\
+  if (!CATEGORY_DESIGNATORP (x))				\
+    x = wrong_type_argument (Qcategory_designator_p, x);	\
+} while (0)
 
 #define CATEGORY_TABLE_VALUEP(x) \
  (NILP (x) || (BIT_VECTORP (x) && (bit_vector_length (XBIT_VECTOR (x)) == 95)))
 
-#define CHECK_CATEGORY_TABLE_VALUE(x)					\
-  do { if (!CATEGORY_TABLE_VALUEP (x))					\
-         dead_wrong_type_argument (Qcategory_table_value_p, (x)); }	\
-  while (0)
-#define CONCHECK_CATEGORY_TABLE_VALUE(x)				\
-  do { if (!CATEGORY_TABLE_VALUEP (x))					\
-         x = wrong_type_argument (Qcategory_table_value_p, (x)); }	\
-  while (0)
+#define CHECK_CATEGORY_TABLE_VALUE(x) do {			\
+  if (!CATEGORY_TABLE_VALUEP (x))				\
+    dead_wrong_type_argument (Qcategory_table_value_p, x);	\
+} while (0)
+
+#define CONCHECK_CATEGORY_TABLE_VALUE(x) do {			\
+  if (!CATEGORY_TABLE_VALUEP (x))				\
+    x = wrong_type_argument (Qcategory_table_value_p, x);	\
+} while (0)
 
 #endif /* MULE */