projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(word_constituent_p): Deleted.
[chise/xemacs-chise.git]
/
src
/
rangetab.c
diff --git
a/src/rangetab.c
b/src/rangetab.c
index
ee35b60
..
c580a47
100644
(file)
--- a/
src/rangetab.c
+++ b/
src/rangetab.c
@@
-47,7
+47,7
@@
mark_range_table (Lisp_Object obj, void (*markobj) (Lisp_Object))
int i;
for (i = 0; i < Dynarr_length (rt->entries); i++)
int i;
for (i = 0; i < Dynarr_length (rt->entries); i++)
- (markobj) (Dynarr_at (rt->entries, i).val);
+ markobj (Dynarr_at (rt->entries, i).val);
return Qnil;
}
return Qnil;
}
@@
-208,7
+208,7
@@
You can manipulate it using `put-range-table', `get-range-table',
{
Lisp_Object obj;
struct Lisp_Range_Table *rt = alloc_lcrecord_type (struct Lisp_Range_Table,
{
Lisp_Object obj;
struct Lisp_Range_Table *rt = alloc_lcrecord_type (struct Lisp_Range_Table,
- lrecord_range_table);
+ &lrecord_range_table);
rt->entries = Dynarr_new (range_table_entry);
XSETRANGE_TABLE (obj, rt);
return obj;
rt->entries = Dynarr_new (range_table_entry);
XSETRANGE_TABLE (obj, rt);
return obj;
@@
-226,7
+226,7
@@
ranges as the given table. The values will not themselves be copied.
CHECK_RANGE_TABLE (old_table);
rt = XRANGE_TABLE (old_table);
CHECK_RANGE_TABLE (old_table);
rt = XRANGE_TABLE (old_table);
- rtnew = alloc_lcrecord_type (struct Lisp_Range_Table, lrecord_range_table);
+ rtnew = alloc_lcrecord_type (struct Lisp_Range_Table, &lrecord_range_table);
rtnew->entries = Dynarr_new (range_table_entry);
Dynarr_add_many (rtnew->entries, Dynarr_atp (rt->entries, 0),
rtnew->entries = Dynarr_new (range_table_entry);
Dynarr_add_many (rtnew->entries, Dynarr_atp (rt->entries, 0),
@@
-242,15
+242,13
@@
If there is no corresponding value, return DEFAULT (defaults to nil).
(pos, table, default_))
{
struct Lisp_Range_Table *rt;
(pos, table, default_))
{
struct Lisp_Range_Table *rt;
- EMACS_INT po;
CHECK_RANGE_TABLE (table);
rt = XRANGE_TABLE (table);
CHECK_INT_COERCE_CHAR (pos);
CHECK_RANGE_TABLE (table);
rt = XRANGE_TABLE (table);
CHECK_INT_COERCE_CHAR (pos);
- po = XINT (pos);
- return get_range_table (po, Dynarr_length (rt->entries),
+ return get_range_table (XINT (pos), Dynarr_length (rt->entries),
Dynarr_atp (rt->entries, 0), default_);
}
Dynarr_atp (rt->entries, 0), default_);
}