diff src/rangetab.c @ 280:7df0dd720c89 r21-0b38

Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents c5d627a313b1
children c42ec1d1cded
line wrap: on
line diff
--- a/src/rangetab.c	Mon Aug 13 10:31:30 2007 +0200
+++ b/src/rangetab.c	Mon Aug 13 10:32:22 2007 +0200
@@ -23,35 +23,7 @@
 
 /* Written by Ben Wing, August 1995. */
 
-#include <config.h>
-#include "lisp.h"
-
-typedef struct range_table_entry range_table_entry;
-struct range_table_entry
-{
-  EMACS_INT first;
-  EMACS_INT last;
-  Lisp_Object val;
-};
-
-typedef struct
-{
-  Dynarr_declare (range_table_entry);
-} range_table_entry_dynarr;
-
-struct Lisp_Range_Table
-{
-  struct lcrecord_header header;
-  range_table_entry_dynarr *entries;
-};
-
-DECLARE_LRECORD (range_table, struct Lisp_Range_Table);
-#define XRANGE_TABLE(x) \
-  XRECORD (x, range_table, struct Lisp_Range_Table)
-#define XSETRANGE_TABLE(x, p) XSETRECORD (x, p, range_table)
-#define RANGE_TABLEP(x) RECORDP (x, range_table)
-#define GC_RANGE_TABLEP(x) GC_RECORDP (x, range_table)
-#define CHECK_RANGE_TABLE(x) CHECK_RECORD (x, range_table)
+#include "rangetab.h"
 
 Lisp_Object Qrange_tablep;
 Lisp_Object Qrange_table;