From: Dave Love <fx@gnu.org>
Date: Wed, 3 Jul 2002 22:03:46 +0000 (+0000)
Subject: (make_sub_char_table): Remove unused var.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~597
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6e5cae04e9e086cbc5d61a0e3c7b5340e1da822;p=emacs.git

(make_sub_char_table): Remove unused var.
(Fset_char_table_default, Fmap_char_table): Doc fix.
---

diff --git a/src/chartab.c b/src/chartab.c
index e974824aa31..97292a3550c 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -99,7 +99,6 @@ make_sub_char_table (depth, min_char, defalt)
 {
   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 @@ a cons of character codes (for characters in the range), or a character code.  *
 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 @@ char_table_translate (table, ch)
 {
   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 @@ map_char_table (c_function, function, table, arg, depth, indices)
 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)