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

Diff of /emacs/src/chartab.c

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

revision 1.1.2.3 by handa, Wed Jun 12 00:14:15 2002 UTC revision 1.1.2.4 by fx, Wed Jul 3 22:03:46 2002 UTC
# Line 99  make_sub_char_table (depth, min_char, de Line 99  make_sub_char_table (depth, min_char, de
99  {  {
100    Lisp_Object table;    Lisp_Object table;
101    int size = VECSIZE (struct Lisp_Sub_Char_Table) - 1 + chartab_size[depth];    int size = VECSIZE (struct Lisp_Sub_Char_Table) - 1 + chartab_size[depth];
   int i;  
102    
103    table = Fmake_vector (make_number (size), defalt);    table = Fmake_vector (make_number (size), defalt);
104    XSUB_CHAR_TABLE (table)->depth = make_number (depth);    XSUB_CHAR_TABLE (table)->depth = make_number (depth);
# Line 632  a cons of character codes (for character Line 631  a cons of character codes (for character
631  DEFUN ("set-char-table-default", Fset_char_table_default,  DEFUN ("set-char-table-default", Fset_char_table_default,
632         Sset_char_table_default, 3, 3, 0,         Sset_char_table_default, 3, 3, 0,
633         doc: /*         doc: /*
634  Set the default value in CHAR-TABLE for a generic character CHAR to VALUE.  This function is obsolete and has no effect.  */)
 The generic character specifies the group of characters.  
 See also the documentation of make-char.  */)  
635       (char_table, ch, value)       (char_table, ch, value)
636       Lisp_Object char_table, ch, value;       Lisp_Object char_table, ch, value;
637  {  {
# Line 652  char_table_translate (table, ch) Line 649  char_table_translate (table, ch)
649  {  {
650    Lisp_Object value;    Lisp_Object value;
651    value = Faref (table, make_number (ch));    value = Faref (table, make_number (ch));
652    if (! INTEGERP (value))    if (! INTEGERP (value))       /* fixme: use CHARACTERP? */
653      return ch;      return ch;
654    return XINT (value);    return XINT (value);
655  }  }
# Line 798  map_char_table (c_function, function, ta Line 795  map_char_table (c_function, function, ta
795  DEFUN ("map-char-table", Fmap_char_table, Smap_char_table,  DEFUN ("map-char-table", Fmap_char_table, Smap_char_table,
796    2, 2, 0,    2, 2, 0,
797         doc: /*         doc: /*
798  Call FUNCTION for each (normal and generic) characters in CHAR-TABLE.  Call FUNCTION for each character in CHAR-TABLE.
799  FUNCTION is called with two arguments--a key and a value.  FUNCTION is called with two arguments--a key and a value.
800  The key is always a possible IDX argument to `aref'.  */)  The key is always a possible IDX argument to `aref'.  */)
801       (function, char_table)       (function, char_table)

Legend:
Removed from v.1.1.2.3  
changed lines
  Added in v.1.1.2.4

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