Mercurial > emacs
changeset 88822:9c92853c0d10
(make_sub_char_table): Remove unused var.
(Fset_char_table_default, Fmap_char_table): Doc fix.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 03 Jul 2002 22:03:46 +0000 |
| parents | 690d527d1ad2 |
| children | 61df12ee934b |
| files | src/chartab.c |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/chartab.c Wed Jul 03 22:01:54 2002 +0000 +++ b/src/chartab.c Wed Jul 03 22:03:46 2002 +0000 @@ -99,7 +99,6 @@ { Lisp_Object table; int size = VECSIZE (struct Lisp_Sub_Char_Table) - 1 + chartab_size[depth]; - int i; table = Fmake_vector (make_number (size), defalt); XSUB_CHAR_TABLE (table)->depth = make_number (depth); @@ -632,9 +631,7 @@ DEFUN ("set-char-table-default", Fset_char_table_default, Sset_char_table_default, 3, 3, 0, doc: /* -Set the default value in CHAR-TABLE for a generic character CHAR to VALUE. -The generic character specifies the group of characters. -See also the documentation of make-char. */) +This function is obsolete and has no effect. */) (char_table, ch, value) Lisp_Object char_table, ch, value; { @@ -652,7 +649,7 @@ { Lisp_Object value; value = Faref (table, make_number (ch)); - if (! INTEGERP (value)) + if (! INTEGERP (value)) /* fixme: use CHARACTERP? */ return ch; return XINT (value); } @@ -798,7 +795,7 @@ DEFUN ("map-char-table", Fmap_char_table, Smap_char_table, 2, 2, 0, doc: /* -Call FUNCTION for each (normal and generic) characters in CHAR-TABLE. +Call FUNCTION for each character in CHAR-TABLE. FUNCTION is called with two arguments--a key and a value. The key is always a possible IDX argument to `aref'. */) (function, char_table)