From: Erik Naggum <erik@naggum.no>
Date: Mon, 23 Oct 1995 04:42:46 +0000 (+0000)
Subject: (map_char_table): Set size to CHAR_TABLE_ORDINARY_SLOTS.
X-Git-Tag: emacs-19.34~2583
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da19ac119eb68a88021542c68a0f99ab8cc02263;p=emacs.git

(map_char_table): Set size to CHAR_TABLE_ORDINARY_SLOTS.
---

diff --git a/src/fns.c b/src/fns.c
index 74f256eaca4..1bcb963e20f 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1336,7 +1336,7 @@ map_char_table (c_function, function, chartable, depth, indices)
      Lisp_Object (*c_function) (), function, chartable, depth, *indices;
 {
   int i;
-  int size = XCHAR_TABLE (chartable)->size;
+  int size = CHAR_TABLE_ORDINARY_SLOTS;
 
   /* Make INDICES longer if we are about to fill it up.  */
   if ((depth % 10) == 9)