X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/b434f199dbbc2694a69538ee95e5e583f6357f71..57cb2e6f261bb0aad81a9f7e6f3017b54adee068:/src/casetab.c

diff --git a/src/casetab.c b/src/casetab.c
index 89f9287c75..2245e8e8b4 100644
--- a/src/casetab.c
+++ b/src/casetab.c
@@ -1,6 +1,6 @@
 /* GNU Emacs routines to deal with case tables.
-   Copyright (C) 1993, 1994, 2002, 2003, 2004, 
-                 2005, 2006 Free Software Foundation, Inc.
+   Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
+                 2005, 2006, 2007  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -67,10 +67,7 @@ static Lisp_Object
 check_case_table (obj)
      Lisp_Object obj;
 {
-  register Lisp_Object tem;
-
-  while (tem = Fcase_table_p (obj), NILP (tem))
-    obj = wrong_type_argument (Qcase_table_p, obj);
+  CHECK_TYPE (!NILP (Fcase_table_p (obj)), Qcase_table_p, obj);
   return (obj);
 }
 
@@ -295,6 +292,9 @@ init_casetab_once ()
     }
 
   XCHAR_TABLE (down)->extras[2] = Fcopy_sequence (up);
+
+  /* Fill in what isn't filled in.  */
+  set_case_table (down, 1);
 }
 
 void