/[emacs]/emacs/src/category.c
ViewVC logotype

Diff of /emacs/src/category.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by raeburn, Mon Jul 15 00:00:35 2002 UTC revision 1.32 by lektu, Tue Feb 4 14:03:11 2003 UTC
# Line 167  check_category_table (table) Line 167  check_category_table (table)
167    while (tem = Fcategory_table_p (table), NILP (tem))    while (tem = Fcategory_table_p (table), NILP (tem))
168      table = wrong_type_argument (Qcategory_table_p, table);      table = wrong_type_argument (Qcategory_table_p, table);
169    return table;    return table;
170  }    }
171    
172  DEFUN ("category-table", Fcategory_table, Scategory_table, 0, 0, 0,  DEFUN ("category-table", Fcategory_table, Scategory_table, 0, 0, 0,
173         doc: /* Return the current category table.         doc: /* Return the current category table.
# Line 377  then delete CATEGORY from the category s Line 377  then delete CATEGORY from the category s
377    
378    if (NILP (CATEGORY_DOCSTRING (table, XFASTINT (category))))    if (NILP (CATEGORY_DOCSTRING (table, XFASTINT (category))))
379      error ("Undefined category: %c", XFASTINT (category));      error ("Undefined category: %c", XFASTINT (category));
380      
381    set_value = NILP (reset) ? Qt : Qnil;    set_value = NILP (reset) ? Qt : Qnil;
382    
383    if (c < CHAR_TABLE_SINGLE_BYTE_SLOTS)    if (c < CHAR_TABLE_SINGLE_BYTE_SLOTS)
# Line 534  init_category_once () Line 534  init_category_once ()
534    Fput (Qcategory_table, Qchar_table_extra_slots, make_number (2));    Fput (Qcategory_table, Qchar_table_extra_slots, make_number (2));
535    
536    Vstandard_category_table = Fmake_char_table (Qcategory_table, Qnil);    Vstandard_category_table = Fmake_char_table (Qcategory_table, Qnil);
537    /* Set a category set which contains nothing to the default.  */    /* Set a category set which contains nothing to the default.  */
538    XCHAR_TABLE (Vstandard_category_table)->defalt = MAKE_CATEGORY_SET;    XCHAR_TABLE (Vstandard_category_table)->defalt = MAKE_CATEGORY_SET;
539    Fset_char_table_extra_slot (Vstandard_category_table, make_number (0),    Fset_char_table_extra_slot (Vstandard_category_table, make_number (0),
540                                Fmake_vector (make_number (95), Qnil));                                Fmake_vector (make_number (95), Qnil));

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26