Mercurial > hg > xemacs-beta

comparison src/chartab.c @ 249:83b3d10dcba9 r20-5b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b23
author cvs
date Mon, 13 Aug 2007 10:19:09 +0200
parents e45d5e7c476e
children 677f6a0ee643
comparison
equal deleted inserted replaced
248:ad40ac2754d8 249:83b3d10dcba9
593 ct = alloc_lcrecord_type (struct Lisp_Char_Table, lrecord_char_table); 593 ct = alloc_lcrecord_type (struct Lisp_Char_Table, lrecord_char_table);
594 ct->type = ty; 594 ct->type = ty;
595 if (ty == CHAR_TABLE_TYPE_SYNTAX) 595 if (ty == CHAR_TABLE_TYPE_SYNTAX)
596 { 596 {
597 ct->mirror_table = Fmake_char_table (Qgeneric); 597 ct->mirror_table = Fmake_char_table (Qgeneric);
598 fill_char_table (XCHAR_TABLE (ct->mirror_table),
599 make_int (Spunct));
598 } 600 }
599 else 601 else
600 ct->mirror_table = Qnil; 602 ct->mirror_table = Qnil;
601 ct->next_table = Qnil; 603 ct->next_table = Qnil;
602 XSETCHAR_TABLE (obj, ct); 604 XSETCHAR_TABLE (obj, ct);
643 ctenew->level2[i] = copy_char_table_entry (new); 645 ctenew->level2[i] = copy_char_table_entry (new);
644 else 646 else
645 ctenew->level2[i] = new; 647 ctenew->level2[i] = new;
646 } 648 }
647 649
648 XSETCHAR_TABLE_ENTRY (obj, cte); 650 XSETCHAR_TABLE_ENTRY (obj, ctenew);
649 return obj; 651 return obj;
650 } 652 }
651 653
652 #endif /* MULE */ 654 #endif /* MULE */
653 655