#include "buffer.h"
#include "character.h"
-Lisp_Object Qcase_table_p, Qcase_table;
-Lisp_Object Vascii_downcase_table, Vascii_upcase_table;
-Lisp_Object Vascii_canon_table, Vascii_eqv_table;
+static Lisp_Object Qcase_table_p, Qcase_table;
+Lisp_Object Vascii_downcase_table;
+static Lisp_Object Vascii_upcase_table;
+Lisp_Object Vascii_canon_table;
+static Lisp_Object Vascii_eqv_table;
static void set_canon (Lisp_Object case_table, Lisp_Object range, Lisp_Object elt);
static void set_identity (Lisp_Object table, Lisp_Object c, Lisp_Object elt);
return set_case_table (table, 0);
}
-DEFUN ("set-standard-case-table", Fset_standard_case_table, Sset_standard_case_table, 1, 1, 0,
+DEFUN ("set-standard-case-table", Fset_standard_case_table,
+ Sset_standard_case_table, 1, 1, 0,
doc: /* Select a new standard case table for new buffers.
See `set-case-table' for more info on case tables. */)
(Lisp_Object table)
{
if (NATNUMP (elt))
{
- int from, to;
+ int from;
+ unsigned to;
if (CONSP (c))
{
}
else
from = to = XINT (c);
- for (; from <= to; from++)
+ for (to++; from < to; from++)
CHAR_TABLE_SET (table, from, make_number (from));
}
}
{
if (NATNUMP (elt))
{
- int from, to;
+ int from;
+ unsigned to;
if (CONSP (c))
{
else
from = to = XINT (c);
- for (; from <= to; from++)
+ for (to++; from < to; from++)
{
Lisp_Object tem = Faref (table, elt);
Faset (table, elt, make_number (from));