Mercurial > emacs
changeset 71828:10b94d33e0d8
* casetab.c (check_case_table): Use CHECK_TYPE.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 12 Jul 2006 13:15:03 +0000 |
| parents | 5e4428007299 |
| children | 8adcaaf366b4 |
| files | src/casetab.c |
| diffstat | 1 files changed, 2 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/casetab.c Wed Jul 12 13:14:51 2006 +0000 +++ b/src/casetab.c Wed Jul 12 13:15:03 2006 +0000 @@ -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 @@ 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); }