From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:15:03 +0000 (+0000)
Subject: * casetab.c (check_case_table): Use CHECK_TYPE.
X-Git-Tag: emacs-pretest-22.0.90~1510
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5f07f6d92ca594888d553f7384ff408d1a093b7;p=emacs.git

* casetab.c (check_case_table): Use CHECK_TYPE.
---

diff --git a/src/casetab.c b/src/casetab.c
index 5c7530eb480..5483f5663fa 100644
--- a/src/casetab.c
+++ b/src/casetab.c
@@ -1,5 +1,5 @@
 /* GNU Emacs routines to deal with case tables.
-   Copyright (C) 1993, 1994, 2002, 2003, 2004, 
+   Copyright (C) 1993, 1994, 2002, 2003, 2004,
                  2005, 2006 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);
 }