Mercurial > hg > xemacs-beta
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;