Mercurial > hg > xemacs-beta

comparison src/rangetab.c @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents c42ec1d1cded
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
45 { 45 {
46 struct Lisp_Range_Table *rt = XRANGE_TABLE (obj); 46 struct Lisp_Range_Table *rt = XRANGE_TABLE (obj);
47 int i; 47 int i;
48 48
49 for (i = 0; i < Dynarr_length (rt->entries); i++) 49 for (i = 0; i < Dynarr_length (rt->entries); i++)
50 (markobj) (Dynarr_at (rt->entries, i).val); 50 markobj (Dynarr_at (rt->entries, i).val);
51 return Qnil; 51 return Qnil;
52 } 52 }
53 53
54 static void 54 static void
55 print_range_table (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 55 print_range_table (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
240 If there is no corresponding value, return DEFAULT (defaults to nil). 240 If there is no corresponding value, return DEFAULT (defaults to nil).
241 */ 241 */
242 (pos, table, default_)) 242 (pos, table, default_))
243 { 243 {
244 struct Lisp_Range_Table *rt; 244 struct Lisp_Range_Table *rt;
245 EMACS_INT po;
246 245
247 CHECK_RANGE_TABLE (table); 246 CHECK_RANGE_TABLE (table);
248 rt = XRANGE_TABLE (table); 247 rt = XRANGE_TABLE (table);
249 248
250 CHECK_INT_COERCE_CHAR (pos); 249 CHECK_INT_COERCE_CHAR (pos);
251 po = XINT (pos); 250
252 251 return get_range_table (XINT (pos), Dynarr_length (rt->entries),
253 return get_range_table (po, Dynarr_length (rt->entries),
254 Dynarr_atp (rt->entries, 0), default_); 252 Dynarr_atp (rt->entries, 0), default_);
255 } 253 }
256 254
257 void 255 void
258 put_range_table (Lisp_Object table, EMACS_INT first, 256 put_range_table (Lisp_Object table, EMACS_INT first,