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); |
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 |
{ |
{ |
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 |
} |
} |
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) |