[Emacs-diffs] Changes to emacs/src/casetab.c,v

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  06/07/12 13:15:03

Index: casetab.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/casetab.c,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- casetab.c   6 Feb 2006 15:23:20 -0000       1.36
+++ casetab.c   12 Jul 2006 13:15:03 -0000      1.37
@@ -67,10 +67,7 @@
 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);
 }